先发图 各位老师看看有没有必要组合一下

[ 本帖最后由 shongshu 于 2008-9-25 15:24 编辑 ]

要求

源码在下一贴发出

VOL
VOL,LINETHICK3,VOLSTICK;
每股收益:FINANCE(33),LINETHICK0,COLORRED;
流通盘:FINANCE( 7),LINETHICK0,COLORRED;
量比:vol/MA(VOL,5),LINETHICK0,COLORRED;
市盈率:DYNAINFO(39),LINETHICK0,COLORRED;
换手:VOL / CAPITAL * 100,LINETHICK0,COLORRED;
MA1:MA(VOL,M1);
MA2:MA(VOL,M2);
MA3:MA(VOL,M3),colorred,LINETHICK2;

陈氏量能线
Q:=1;
(VOL * Q),VOLSTICK;
当天换手:=(((VOL / CAPITAL) * 100) * Q);
AAA:=((SUM(VOL,5) / 3) * Q);
量能线:MA(AAA,3),colorFF00;
K5:=(VOL > (REF(HHV(VOL,10),1) * 2));
DRAWTEXT((K5 > 0),(VOL * 1.3),''),colorFFFF;
STICKLINE((K5 > 0),0,VOL,6,0),colorFFFF;
量能异动:(VOL > 量能线),colorFFFF;
DRAWICON((VOL > 量能线),量能线,11);
DRAWICON(((CLOSE > REF(CLOSE,1)) AND (VOL > 量能线)),0,8);
收益:FINANCE(33),LINETHICK0,colorFF00FF;
流通盘:FINANCE(7),LINETHICK0,colorFFFFFF;
市值:((FINANCE(7) * CLOSE) / 10000),LINETHICK0,colorFF00FF;
VAR15:=((WINNER(CLOSE) * 100) * Q);
筹码穿透:CROSS(VAR15,50),LINETHICK0,colorFFFF;
今天换手:((VOL / CAPITAL) * 100),LINETHICK0;
DRAWTEXT((DATE = 1060301),((6 * CAPITAL) / 100),''),colorFF00FF;
DRAWTEXT((DATE = 1060301),((3 * CAPITAL) / 100),''),colorFF00FF;

VAR1:=1;
VAR2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
获利盘: WINNER(CLOSE)*100*VAR1;
VAR3:=SMA(VAR2,3,1)*VAR1;
VAR4:=SMA(VAR3,N2,1)*VAR1;
VAR5:=3*VAR3-2*VAR4*VAR1;
VAR6:=VOL*VAR1;
量比: VOL/MA(VOL,5)*VAR1;
涨跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100*VAR1;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100*VAR1;
换手: VOL/CAPITAL*100*VAR1;
VAR7:=SUM(换手,30)*VAR1;
VAR8:=LLV(INDEXL,5)*VAR1;
VAR9:=HHV(INDEXH,5)*VAR1;
VARA:=EMA((INDEXC-VAR8)/(VAR9-VAR8)*100,4);
VARB:=MA(EMA(0.667*REF(VARA,1)+0.333*VARA,2),9);
VARC:=MA(VARB,30);
VARD:=EMA(获利盘,4)*VAR1;
本盘亿股: CAPITAL/1000000;
振幅: (HIGH-LOW)/REF(CLOSE,1)*100;
V5: MA(VOL,5)*2*VAR1,COLORCYAN;
VARE:=MA(V5,3);
V34: MA(VOL,34)*2*VAR1,COLORMAGENTA;
VARF:=(涨跌>VARD AND 角度<-30 AND 涨跌>3)*VAR1;
CROSS(VARB,VARC) AND VARC<29*VAR1;
STICKLINE(VOL AND VAR5>VAR4,0,VOL,2,0),COLORRED;
STICKLINE(VOL AND VAR5<VAR4,0,VOL,2,0),COLORGREEN;
STICKLINE(VOL AND VAR4<N4,-10,VOL*0.5,2,0),COLORBLUE;

[ 本帖最后由 shongshu 于 2008-9-25 15:10 编辑 ]

希望出现的效果 见图

[ 本帖最后由 shongshu 于 2008-9-25 15:15 编辑 ]

陈氏量能线
量能异动 效果非常显著 容易引起注意
VOL  的M3线 代表着量能的安全区域
希望引起各位老师的兴趣 出手组合一下

我是只会看 不会编程 呵呵

没有顶帖啊 看来这个效果 喜欢的人不多 在贴一个图

一起顶!!!!!

你把公式发出来啊,.

DRAWGBK(c=c,COLORRGB(130,130,130),COLORRGB(30,30,30),1);

input:n(27,1,30),n2(9,1,10),n3(3,1,5),n4(16,1,18);


Q:=1;
(VOL * Q),VOLSTICK;
当天换手:=(((VOL / CAPITAL) * 100) * Q);
AAA:=((SUM(VOL,5) / 3) * Q);
量能线:MA(AAA,3),colorFF00,LINETHICK2;
K5:=(VOL > (REF(HHV(VOL,10),1) * 2));
DRAWTEXT((K5 > 0),(VOL * 1.3),''),colorFFFF;
STICKLINE((K5 > 0),0,VOL,6,0),colorFFFF;
量能异动:(VOL > 量能线),colorFFFF;
DRAWICON((VOL > 量能线),量能线,11);
DRAWICON(((CLOSE > REF(CLOSE,1)) AND (VOL > 量能线)),0,8);
收益:FINANCE(33),LINETHICK0,colorFF00FF;
流通盘:FINANCE(7),LINETHICK0,colorFFFFFF;
市值:((FINANCE(7) * CLOSE) / 10000),LINETHICK0,colorFF00FF;
VAR15:=((WINNER(CLOSE) * 100) * Q);
筹码穿透:CROSS(VAR15,50),LINETHICK0,colorFFFF;
今天换手:((VOL / CAPITAL) * 100),LINETHICK0;
MA60:MA(VOL,60),colorred,LINETHICK2;
//////////
VAR1:=1;
VAR2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
获利盘: WINNER(CLOSE)*100*VAR1;
VAR3:=SMA(VAR2,3,1)*VAR1;
VAR4:=SMA(VAR3,N2,1)*VAR1;
VAR5:=3*VAR3-2*VAR4*VAR1;
VAR6:=VOL*VAR1;
量比: VOL/MA(VOL,5)*VAR1;
涨跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100*VAR1;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100*VAR1;
换手: VOL/CAPITAL*100*VAR1;
VAR7:=SUM(换手,30)*VAR1;
VAR8:=LLV(INDEXL,5)*VAR1;
VAR9:=HHV(INDEXH,5)*VAR1;
VARA:=EMA((INDEXC-VAR8)/(VAR9-VAR8)*100,4);
VARB:=MA(EMA(0.667*REF(VARA,1)+0.333*VARA,2),9);
VARC:=MA(VARB,30);
VARD:=EMA(获利盘,4)*VAR1;
本盘亿股: CAPITAL/1000000;
振幅: (HIGH-LOW)/REF(CLOSE,1)*100;
V5: MA(VOL,5)*2*VAR1,COLORCYAN;
VARE:=MA(V5,3);
V34: MA(VOL,34)*2*VAR1,COLORMAGENTA;
VARF:=(涨跌>VARD AND 角度<-30 AND 涨跌>3)*VAR1;
CROSS(VARB,VARC) AND VARC<29*VAR1;
STICKLINE(VOL AND VAR5>VAR4,0,VOL,2,0),COLORRED;
STICKLINE(VOL AND VAR5<VAR4,0,VOL,2,0),COLORGREEN;
STICKLINE(VOL AND VAR4<N4,-10,VOL*0.5,2,0),COLORBLUE;

DRAWTEXT((DATE = 1060301),((6 * CAPITAL) / 100),''),colorFF00FF;
DRAWTEXT((DATE = 1060301),((3 * CAPITAL) / 100),''),colorFF00FF;

LZ,我粗看了一下，暂时就这样吧，有空再认真修正下再发上来，希望能对你有帮助



[ 本帖最后由 cnjt2006 于 2008-9-25 20:27 编辑 ]

引用:

原帖由 cnjt2006 于 2008-9-25 20:26 发表
LZ,我粗看了一下，暂时就这样吧，有空再认真修正下再发上来，希望能对你有帮助

1010875

感谢楼主

最好是像颜色叠加中间的线条太细 有时间在修改一下  再次感谢

一起顶!!!!!

看看符合你的意思不？
＝＝＝＝＝＝＝＝＝
input:n(27,1,30),n2(9,1,10),n3(3,1,5),n4(16,1,18);


Q:=1;
V1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:IF(CLOSE>OPEN,V1*(HIGH-LOW),IF(CLOSE<OPEN,V1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),Color6d0076,POINTDOT,LINETHICK0;
主卖:IF(CLOSE>OPEN,0-V1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-V1*(HIGH-LOW),0-VOL/2)),ColorFFD1BE,POINTDOT,LINETHICK0;
净买:主买+主卖,COLORRED,LINETHICK0;
STICKLINE(主买<(-主卖) , v,0,8,1) COLORCYAN;
STICKLINE(主买>=(-主卖) , v*1.01,0,8,1) colorred,LINETHICK2;
K5:=(VOL > (REF(HHV(VOL,10),1) * 2));
DRAWTEXT((K5 > 0),(VOL * 1.05),'关注'),COLORWHITE,ALIGN;
STICKLINE((K5 > 0),0,VOL,7,0),colorFFFF;


VAR1:=1;
VAR2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
VAR3:=SMA(VAR2,3,1)*VAR1;
VAR4:=SMA(VAR3,N2,1)*VAR1;
VAR5:=3*VAR3-2*VAR4*VAR1;
VAR6:=VOL*VAR1;
STICKLINE(VOL AND VAR5>VAR4,0,VOL,3,0),COLORMAGENTA;
STICKLINE(VOL AND VAR5<VAR4,0,VOL,3,0),COLORGREEN;
STICKLINE(VOL AND VAR4<N4,-10,VOL*0.5,3,0),COLORBLUE;


MA60:MA(VOL,60),colorred,LINETHICK2;
V5: MA(VOL,5),COLORWHITE;
V34: MA(VOL,34),COLORYELLOW;
获利盘: WINNER(CLOSE)*100*VAR1;
量比: VOL/MA(VOL,5)*VAR1;
涨跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100*VAR1;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100*VAR1;
换手: VOL/CAPITAL*100*VAR1;
VAR7:=SUM(换手,30)*VAR1;
VAR8:=LLV(INDEXL,5)*VAR1;
VAR9:=HHV(INDEXH,5)*VAR1;
VARA:=EMA((INDEXC-VAR8)/(VAR9-VAR8)*100,4);
VARB:=MA(EMA(0.667*REF(VARA,1)+0.333*VARA,2),9);
VARC:=MA(VARB,30);
VARD:=EMA(获利盘,4)*VAR1;
振幅: (HIGH-LOW)/REF(CLOSE,1)*100;
VARE:=MA(V5,3);
VARF:=(涨跌>VARD AND 角度<-30 AND 涨跌>3)*VAR1;
abc:CROSS(VARB,VARC) AND VARC<29*VAR1;

当天换手:=(((VOL / CAPITAL) * 100) * Q);
AAA:=((SUM(VOL,5) / 3) * Q);
量能线:MA(AAA,3),COLORBROWN,LINETHICK2;
量能异动:(VOL > 量能线),COLORBROWN;
DRAWICON((VOL > 量能线),量能线,12);
DRAWICON(((CLOSE > REF(CLOSE,1)) AND (VOL > 量能线)),v*1.1,8);
VAR15:=((WINNER(CLOSE) * 100) * Q);
筹码穿透:CROSS(VAR15,50),LINETHICK0,colorFFFF;

支持源码公开!

引用:

原帖由 cnjt2006 于 2008-9-26 16:33 发表
看看符合你的意思不？
＝＝＝＝＝＝＝＝＝
input:n(27,1,30),n2(9,1,10),n3(3,1,5),n4(16,1,18);


Q:=1;
V1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:IF(CLOSE>OPEN,V1*(HIGH-LOW),IF(CLOSEOPEN,0-V1*((H ...

感谢 感谢  下面是图片  好像是字体没有显示全  增加了净买太漂亮

感谢 感谢  

谢谢乘风老师和楼主，国庆节快乐

谢谢分享！

谢谢分享！

又找到了一个  彩量  好像适合短线使用

彩量 源码
input:N(27),N2(9),N3(3),N4(16);
Var2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
获利盘: WINNER(CLOSE)*100;
Var3:=SMA(Var2,3,1);
Var4:=SMA(Var3,N2,1);
Var5:=3*Var3-2*Var4;
Var6:=VOL;
量比: VOL/MA(VOL,5);
涨跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
换手: VOL/CAPITAL*100;
Var7:=SUM(换手,30);
Var8:=LLV(INDEXL,5);
Var9:=HHV(INDEXH,5);
VarA:=EMA((INDEXC-Var8)/(Var9-Var8)*100,4);
VarB:=MA(EMA(0.667*REF(VarA,1)+0.333*VarA,2),9);
VarC:=MA(VarB,30);
VarD:=EMA(获利盘,4);
本盘亿股: CAPITAL/1000000;
振幅: (HIGH-LOW)/REF(CLOSE,1)*100;
V5: MA(VOL,5)*2,colorcyan;
VarE:=MA(V5,3);
V34: MA(VOL,34)*2,colormagenta;
VarF:=(涨跌>VarD AND 角度<-30 AND 涨跌>3);
CROSS(VarB,VarC) AND VarC<29;
STICKLINE(VOL AND Var5>Var4,0,VOL,8,0),colorred;
STICKLINE(VOL AND Var5<Var4,0,VOL,8,0),colorgreen;
STICKLINE(VOL AND Var4<N4,-10,VOL*0.5,8,0),colorblue;
V1:=V/CAPITAL*100;
MAV5:=EMA(V/CAPITAL*100,5);
MAV10:=EMA(V/CAPITAL*100,10);
量能:=((V1-MAV5)/MAV5*2+(V1-MAV10)/MAV10)*10;
量坑:(量能<=-10)*-10,COLORYELLOW;
STICKLINE(量坑<0,0,VOL,8,0),COLORYELLOW;
SZ:=C>0 AND C>REF(C,1);
放量上涨:((CROSS(量能,10) OR (量能-REF(量能,1))>=10) AND SZ)*10,colormagenta;
STICKLINE(放量上涨,0,VOL,8,0),colormagenta;