|
以下是通达信倒拔垂杨柳主图源码（无源码的请下载附件导入）
{趋势神器}
AAASH:=(3*C+H+L+O)/6;
VARSH1:(8*AAASH+7*REF(AAASH,1)+6*REF(AAASH,2)+5*REF(AAASH,3)+4*REF(AAASH,4)+3*REF(AAASH,5)+2*REF(AAASH,6)+REF(AAASH,8))/36,LINETHICK2,COLORYELLOW;
VARSH2:=(HHV(VARSH1,2)+HHV(VARSH1,4)+HHV(VARSH1,8))/3;
VARSH3:=(LLV(VARSH1,2)+LLV(VARSH1,4)+LLV(VARSH1,8))/3;
VARSH4:=(HHV(VARSH2,2)+HHV(VARSH2,4)+HHV(VARSH2,8))/3,COLORWHITE;
VARSH5:=(LLV(VARSH3,2)+LLV(VARSH3,4)+LLV(VARSH3,8))/3;
VARSH6:=(LLV(VARSH1,2)+LLV(VARSH1,4)+LLV(VARSH1,8))/3,COLORWHITE;
{DRAWBAND(VARSH1,RGB(155,50,50),VARSH6,RGB(250,250,0));}
{DRAWBAND(VARSH4,RGB(100,180,50),VARSH1,RGB(100,180,50));}
QSXX:IF((VARSH1 <= REF(VARSH1,1)),VARSH1,DRAWNULL),COLORGREEN,LINETHICK2;
QSXS:IF((VARSH1 >= REF(VARSH1,1)),VARSH1,DRAWNULL),COLORRED,LINETHICK2;
DRAWKLINE(H,O,L,C);
AHC1:=CLOSE*VOL;
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),COLORYELLOW;
上轨:=1.06*AHC2,LINETHICK2,COLORWHITE;
顶:1.13*AHC2,LINETHICK2,COLORBLUE;
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;
启爆1:=CROSS(C,上轨) AND ZT;
DRAWTEXT(启爆1,L*0.98,'启爆'),COLORYELLOW;
超牛:=CROSS(C,顶) AND ZT;
DRAWTEXT(超牛,L*0.98,'超牛'),COLORRED;
{倒拔垂杨柳}
AD:=H/C;
BD:=C/O;
DD:=AD/BD;
ED:=O/L;
TJ:=REF(C<O,1);
TJ1:=H>REF((O-C)/2+C,1);
XGD:=AD>1.08 AND BD>1.02 AND ED<1.0145 AND DD>1.04 AND TJ AND TJ1;
{STICKLINE(XGD,C,O,2,0),COLOR663399;
STICKLINE(XGD,L,H,0,0),COLOR663399;}
DRAWICON(XGD,L*0.95,17);{画橙子}
{倒拔垂杨柳2}
TJDQ:=C<O AND REF(C,1)/C>1.03;
ADQ:=(H/C-1)*100;
ADQ1:=(C/O-1)*100;
ADQ2:=(O/L-1)*100;
TJDQ2:=H>C AND C>O AND H>REF((O-C)/3+C,1) AND O<REF(L,1);
TJDQ3:=BETWEEN(ADQ,2.5,13.5) AND ADQ1>1.4 AND ADQ2<3.2 AND ADQ1<ADQ AND C<MA(C,60);
XGDQ:=REF(TJDQ,1) AND TJDQ2 AND TJDQ3;
DRAWICON(XGDQ,H*1.02,17);{画橙子};
///////////////////////////选股/////////////////////////
{倒拔垂杨柳}
AD:=H/C;
BD:=C/O;
DD:=AD/BD;
ED:=O/L;
TJ:=REF(C<O,1);
TJ1:=H>REF((O-C)/2+C,1);
XGD:=AD>1.08 AND BD>1.02 AND ED<1.0145 AND DD>1.04 AND TJ AND TJ1;
{倒拔垂杨柳2}
TJDQ:=C<O AND REF(C,1)/C>1.03;
ADQ:=(H/C-1)*100;
ADQ1:=(C/O-1)*100;
ADQ2:=(O/L-1)*100;
TJDQ2:=H>C AND C>O AND H>REF((O-C)/3+C,1) AND O<REF(L,1);
TJDQ3:=BETWEEN(ADQ,2.5,13.5) AND ADQ1>1.4 AND ADQ2<3.2 AND ADQ1<ADQ AND C<MA(C,60);
XGDQ:=REF(TJDQ,1) AND TJDQ2 AND TJDQ3;
SC:XGD AND XGDQ;
7488409.jpg
|
