畫面高低差幅陰陽河生死漲跌指標(biāo)公式源碼:
DRAWGBK(C>0, COLORRGB(1,0,0), COLORRGB(1,0,0),2);
?
STICKLINE(MA(C,60)>MA(C,5),MA(C,60),MA(C,5),0,0),COLOR888877,POINTDOT;
STICKLINE(MA(C,60)<MA(C,5),MA(C,60),MA(C,5),0,0),COLOR33AAFF,POINTDOT;
STICKLINE(MA(C,60)=MA(C,5),MA(C,60),MA(C,5),0,0),COLORCC11CC,POINTDOT;
hh:=SYSPARAM(4);ll:=SYSPARAM(5);
x:=ll-(hh-ll+MINDIFF)/5;
y:=HHV(V,SYSPARAM(3)-SYSPARAM(2)+1);
yvb:=y[SYSPARAM(3)]/(ll-x+MINDIFF);
z:=V/yvb+x;
a:=SYSPARAM(4)-SYSPARAM(5);//畫面高低差幅
ab:=SYSPARAM(4)+a/3;
STICKLINE(C>REF(C,1),x,z,9,0) ,colorAA;
STICKLINE(C>REF(C,1),x,z,8,0) ,color11BB;
STICKLINE(C>REF(C,1),x,z,7,0) ,color22CC;
STICKLINE(C>REF(C,1),x,z,6,0) ,color33DD;
STICKLINE(C>REF(C,1),x,z,5,0) ,color44EE;
STICKLINE(C>REF(C,1),x,z,4,0) ,color55FF;
STICKLINE(C>REF(C,1),x,z,2.2,0) ,color66FF;
STICKLINE(C>REF(C,1),x,z,1.5,0) ,color77FF;
STICKLINE(C<=REF(C,1),x,z,9,0),colorAA00;
STICKLINE(C<=REF(C,1),x,z,8,0),colorBB11;
STICKLINE(C<=REF(C,1),x,z,7,0),colorCC22;
STICKLINE(C<=REF(C,1),x,z,6,0),colorDD33;
STICKLINE(C<=REF(C,1),x,z,5,0),colorEE44;
STICKLINE(C<=REF(C,1),x,z,4,0),colorFF55;
STICKLINE(C<=REF(C,1),x,z,2.5,0),colorFF66;
STICKLINE(C<=REF(C,1),x,z,1.5,0),colorFF77;
五日:MA(z,5),COLORWHITE;
十日:MA(z,10)COLORGREEN;{http://www.kzuj.com.cn}
DRAWICON(CROSS(五日,十日),十日,12),COLORred;
ab:MA(C,5),COLORGRAY;
aa:=MA(C,10),COLORGRAY;
a1:=a=HHV(ab,SYSPARAM(4));
a2:=BARSLAST(a1);
bb:=REF(ab,a2);
gg:=IF(H>ab,ab,ab);
DRAWLINE(H=SYSPARAM(4) ,H,BARPOS=SYSPARAM(1),HHV(ab,10),1),COLORGRAY;
cxh01:=MA(C,60);
PARTLINE(cxh01>REF(cxh01,1),cxh01), colorcc, LINETHICK3;
PARTLINE(cxh01<REF(cxh01,1),cxh01), COLOR00cc00, LINETHICK3;
PARTLINE(ABS(cxh01-REF(cxh01,1))/cxh01*10000<8,cxh01), COLORBLUE, LINETHICK3;
PARTLINE(ABS(ab-REF(ab,1))/ab*10000<8,ab), COLORBLUE, LINETHICK3;
cxh02:=HHV(cxh01,0);
cxh03:=LLV(cxh01,0);
DRAWSL(cxh01=cxh02[DATACOUNT] ,cxh01,0,0,0),coloryellow,POINTDOT,LINETHICK1;
DRAWSL(cxh01=cxh03[DATACOUNT] ,cxh01,0,0,0),colorred,POINTDOT,LINETHICK1;
STICKLINE(O>C ,C ,O,0,0 ),COLOR00FF00;
STICKLINE(O>C ,C ,O,8,0 ),COLOR008800;
STICKLINE(O>C ,C ,O,7,0 ),COLOR009900;
STICKLINE(O>C ,C ,O,6,0 ),COLOR00AA00;
STICKLINE(O>C ,C ,O,5,0 ),COLOR00BB00;
STICKLINE(O>C ,C ,O,4,0 ),COLOR00CC00;
STICKLINE(O>C ,C ,O,3,0 ),COLOR00DD00;
STICKLINE(O>C ,C ,O,2,0 ),COLOR00EE00;
STICKLINE(O>C ,C ,O,1,0 ),COLOR00FF00;
STICKLINE(O>C ,H ,L,0.5,0 ),COLOR00FF00;
STICKLINE((C >= O),C,O,8,0),color33;
STICKLINE((C >= O),C,O,7,0),color55;
STICKLINE((C >= O),C,O,6,0),color77;
STICKLINE((C >= O),C,O,5,0),color99;
STICKLINE((C >= O),C,O,4,0),colorBB;
STICKLINE((C >= O),C,O,3,0),colorDD;
STICKLINE((C >= O),C,O,2,0),colorFF;
STICKLINE((C >= O),C,O,1,0),colorFF;
STICKLINE((C >= O),L,H,0.5,0),colorFF;
DRAWICON(CROSS(ab,aa),L*0.998,12);
DRAWICON(CROSS(aa,ab),H*1.005,11);
DRAWTEXT(CROSS(C,cxh01) and cxh01>=REF(cxh01,1),L*0.99,''),COLORYELLOW;
DIFF:=EMA(C,12)-EMA(C,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
MACD1:=CROSS(DIFF,DEA) AND COUNT(MACD>0,1)=1;
MACD2:=CROSS(Dea,Diff) AND COUNT(MACD<0,1)=1;
均線:=CROSS(MA(C,5),MA(C,10));
量線:=CROSS(MA(V,5),MA(V,10));
SCC:=MACD1AND 均線 AND 量線;
SC2:=均線 AND 量線;
SC3:=均線 AND MACD1;
SC6:=MACD1 AND 量線;
SC7:=C>MA(C,120);
sc8:=(SCCOR SC2 OR SC3OR SC6) AND SC7;
DRAWTEXT(sc8,L*0.99,'\n紅\n三\n軍'),COLORred;
DRAWICON(sc8,L*0.998,12);
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
IF(T1,A,A),COLORFF00FF,POINTDOT,LINETHICK1;
IF(T2,B,B),COLOR80FF00,POINTDOT,LINETHICK1;
大盤上漲家數(shù):=INDEXADV;
平盤家數(shù)P:=PINGPAN;
大盤下跌家數(shù):=INDEXDEC;
DRAWTEXTEX(1,0,545,30,'上漲:'+NUMTOSTR(大盤上漲家數(shù),0)+'家'),Colorred;
DRAWTEXTEX(1,0,645,30,'平盤:'+NUMTOSTR(平盤家數(shù)P,0)+'家'),Color00FFFF;
DRAWTEXTEX(1,0,725,30,'下跌:'+NUMTOSTR(大盤下跌家數(shù),0)+'家'),Colorred;
DRAWTEXTEX(1,0,630,60,'天心箭'),COLORGRAY;
AA1:=(STRFIND(STKNAME,'ST',0) = 0);
K0:=IF(AA1,10,20);
A1:=((REF(C,1) / K0) + REF(C,1));
A2:=(0 - ((REF(C,1) / K0) - REF(C,1)));
SZ5:=(('漲停價：' + NUMTOSTR(A1,2)) + '元');
SZ6:=((' 跌停價：' + NUMTOSTR(A2,2)) + '元');
DRAWTEXTEX(C,1,535,120, sz5),colorFF;
DRAWTEXTEX(C,1,600,120, sz6),colorFF00;
DRAWTEXTEX(ma(c,60)<ref(ma(c,60),1) and c<ma(c,60),0,545,90,'陰陽河下死 ︻$▅▆▇◤ 堅決空倉'),COLORMAGENTA;
DRAWTEXTEX(ma(c,60)>=ref(ma(c,60),1) and c>=ma(c,60),0,545,90,'陰陽河上生 ︻$▅▆▇◤ 開始看多'),COLORMAGENTA;
{程序化交易 www.kzuj.com.cn }
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
打印本文
關(guān)閉窗口