|
以下是通达信牵牛花主图公式 图源码（无源码的请下载附件导入）
牵牛花
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.050,0,GNBLOCK),COLORCYAN;{概念};
AHC1:=CLOSE*VOL;
AHC11:=EMA((EXPMA(AHC1,1)/EXPMA(VOL,1)+EXPMA(AHC1,2)/EXPMA(VOL,2)+EXPMA(AHC1,4)/EXPMA(VOL,4)+EXPMA(AHC1,6)/EXPMA(VOL,6))/4,7),COLORYELLOW;
AHC2:EMA((EXPMA(AHC1,3)/EXPMA(VOL,3)+EXPMA(AHC1,6)/EXPMA(VOL,6)+EXPMA(AHC1,12)/EXPMA(VOL,12)+EXPMA(AHC1,24)/EXPMA(VOL,24))/4,13),POINTDOT,COLORYELLOW;
AHC22:=EMA((EXPMA(AHC1,27)/EXPMA(VOL,27)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,316)/EXPMA(VOL,316))/4,13),COLORWHITE,POINTDOT;
顶:=1.3*AHC2;
内上:=1.06*AHC2;
内下:=AHC2*0.94;
底:=AHC2*0.87;
~11:1.03*AHC2,POINTDOT,COLORYELLOW;
~22:0.97*AHC2,POINTDOT,COLORYELLOW;
IF((内上 <= REF(内上,1)),内上,DRAWNULL),COLORGREEN,DOTLINE,LINETHICK2;
IF((内上 >= REF(内上,1)),内上,DRAWNULL),COLORMAGENTA,DOTLINE,LINETHICK2;
IF((内下 <= REF(内下,1)),内下,DRAWNULL),COLORGREEN,DOTLINE,LINETHICK2;
IF((内下 >= REF(内下,1)),内下,DRAWNULL),COLORMAGENTA,DOTLINE,LINETHICK2;
DRAWKLINE(H,O,L,C);
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;
启爆1:=CROSS(C,内上) OR CROSS(C,内下) AND ZT;
DRAWTEXT(启爆1,L*0.98,'启爆'),COLORYELLOW;
STICKLINE(启爆1,C,O,3,1),COLORWHITE;
STICKLINE(启爆1,C,O,1,0),COLORGREEN;
买点:=REF(内下,2)>REF(内下,1) AND 内下>REF(内下,1);
DRAWTEXT(买点,L*0.98,'↖买点')COLORWHITE;
DF:=(C-REF(C,1))/REF(C,1)*100<-5;
DF4:=(C-O)/O*100<-4;
AAAA:=BARSLAST(DF);
突破箱体:=CROSS(C,REF(C,AAAA));
箱顶:DRAWLINE(DF,O,REF(DF,1),REF(O,1),1),COLORMAGENTA,DOTLINE;
箱顶1:DRAWLINE(DF4,O,REF(DF4,1),REF(O,1),1),COLORMAGENTA,DOTLINE;
箱底:=LLV(MIN(L,REF(L,AAAA)),AAAA),COLORCYAN,LINETHICK2;
蓝柱:=REF(DF,2)=1 AND ZT AND CROSS(C,箱顶);
DRAWTEXT(蓝柱,L,'回头牛'),COLORGREEN;
STICKLINE(蓝柱,C,O,3,1),COLORYELLOW;
STICKLINE(蓝柱,C,O,1,0),COLORBLUE;
红柱:=REF(DF,1)=1 AND ZT AND CROSS(C,箱顶);
DRAWTEXT(红柱,L,'反转牛'),COLORRED;
STICKLINE(红柱,C,O,3,1),COLORYELLOW;
STICKLINE(红柱,C,O,1,0),COLORRED;
蓝柱1:=REF(DF4,2)=1 AND ZT AND CROSS(C,箱顶1);
DRAWTEXT(蓝柱1,L,'回头牛'),COLORGREEN;
STICKLINE(蓝柱1,C,O,3,1),COLORYELLOW;
STICKLINE(蓝柱1,C,O,1,0),COLORBLUE;
红柱1:=REF(DF4,1)=1 AND ZT AND CROSS(C,箱顶1);
DRAWTEXT(红柱1,L,'反转牛'),COLORRED;
STICKLINE(红柱1,C,O,3,1),COLORYELLOW;
STICKLINE(红柱1,C,O,1,0),COLORRED;
牛股:=C>内上 AND O>内上;
STICKLINE( 牛股 AND C>O,C,O,3.2,0),COLOR000066;
STICKLINE(牛股 AND C>O,C,O,2.0,0),COLOR000077;
STICKLINE(牛股 AND C>O,C,O,1.5,0),COLOR000099;
STICKLINE(牛股 AND C>O,C,O,0.9,0),COLOR0000CC;
STICKLINE(牛股 AND C>O,C,O,0.5,0),COLOR0000FF;
STICKLINE(牛股 AND C>0,O,C,0,0),COLORFFFFFF;
STICKLINE( 牛股 AND C<O,L,H,0,0),COLOR009900;
STICKLINE( 牛股 AND C<O,C,O,3.2,0),COLOR009900;
STICKLINE( 牛股 AND C<O,C,O,2.5,0),COLOR00BB00;
STICKLINE(牛股 AND C<O,C,O,1.5,0),COLOR00DD00;
STICKLINE(牛股 AND C<O,C,O,0.5,0),COLOR00FF00;
179366593.png
|
