通达信倒拔垂杨柳主图源码

以下是通达信倒拔垂杨柳主图源码

{趋势神器}
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;