通达信暴涨主图公式

通达信暴涨主图公式

源码

MA5:MA(C,5);
 MA10 :MA(CLOSE,10);
 MA60 : MA(CLOSE,60);
 GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
 GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
 GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
 GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
 BAIJIN1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;
 BAIJIN2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
 BAIJIN3:=GJTJ1>60 AND GJTJ4>70;
 DRAWTEXT(BAIJIN1 AND BAIJIN2 AND BAIJIN3,L-0.02,"白金");
HUANGJIN1:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;
 HUANGJIN2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
 DRAWTEXT(HUANGJIN1 AND HUANGJIN2,L-0.03,"黄金");
XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;
 DRAWTEXT(COUNT(XG,3)=1 AND XG AND C>MA(C,20),L-0.02,"暴涨启动"),COLORRED;
 ZHENCANG1:=BARSLAST(CROSS(GJTJ4,GJTJ1))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
 ZHENCANG2:=BARSLAST(CROSS(GJTJ4,GJTJ2));
 ZHENCANG3:=GJTJ3<GJTJ4 AND GJTJ2<GJTJ4;
 ZHENCANG4:=BARSLAST(CROSS(GJTJ4,GJTJ3))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
 ZHENCANG5:=GJTJ2<GJTJ3 AND GJTJ2<GJTJ4 AND GJTJ2<GJTJ1 AND GJTJ1=100;
 ZCB1:=ZHENCANG1>0 AND REF(ZHENCANG1,1)=0 AND REF(ZHENCANG1,2)>0;
 DRAWTEXT(ZHENCANG1 AND ZHENCANG2 AND ZHENCANG3 AND ZHENCANG4 AND ZHENCANG5,L-0.05,"震仓启点");
AA:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BB:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA1:=AA AND BB;
 AAA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BAA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA2:=AA AND BB ;
 AAAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BAAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA3:=AAAA AND BAAA ;
 BB1:=REF(AA1,1);
 BB2:=REF(AA2,1);
 BB3:=REF(AA3,1);
 DD1:=GJTJ1=100 AND GJTJ2=100 AND AA1 ;
 DD2:=GJTJ1=100 AND GJTJ2=100 AND AA2 ;
 DD3:=GJTJ1=100 AND GJTJ2=100 AND AA3 ;
 DRAWTEXT(DD1 OR DD2 OR DD3,L-0.02,"短线追涨");
AW:=BARSLAST(CROSS(95,GJTJ1))<=2;
 BW:=BARSLAST(CROSS(95,GJTJ2))<=2;
 EW:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;
 FW:=GJTJ2>50 AND GJTJ3>50;
 GW:=GJTJ1=100 AND GJTJ2=100;
 TXW:=COUNT(GW,2)=1;
 DRAWTEXT(AW AND BW AND EW AND FW AND TXW,L-0.03,"起涨首日");
AQ:=GJTJ3=100;
 BQ:=GJTJ4<90;
 DRAWTEXT(COUNT(AQ,2) = 2 AND BQ,L-0.02,"波启前兆");