通达信拉升黑马主图及选股指标公式源码

通达信拉升黑马主图及选股指标公式源码

源码正文：

A6:=ema(CLOSE,5),COLORCYAN{XG51};
A10:=Ema(CLOSE,10),COLORCYAN{XG51};
RJ:=(C+O)*1/2{XG51};
JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3)){XG51};
DDD:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01){XG51};
JJJT:=IF(DDD,1,(JJJ<(DYNAINFO(5)+0.01) && JJJ>(DYNAINFO(6)-0.01))){XG51};
cyc1:=IF(JJJT,0.01*expma(AMOUNT,6)/EXPMA(vol,6),EMA((HIGH+LOW+CLOSE)/3,6)),COLORCYAN{XG51};
CYC2:=IF(JJJT,0.01*EXPMA(AMOUNT,8)/EXPMA(VOL,8),EMA((HIGH+LOW+CLOSE)/3,8)),COLORCYAN{XG51};
CYC3:=IF(JJJT,0.01*EXPMA(AMOUNT,34)/EXPMA(VOL,34),EMA((HIGH+LOW+CLOSE)/3,34)){XG51};
CYC&infin;:=IF(JJJT,dma(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120)){XG51};
B:=crOSS(CYC1>REF(CYC1,1) AND CYC2>REF(CYC2,1) AND CYC3>REF(CYC3,1)AND CYC&infin;>REF(CYC&infin;,1) AND C>CYC&infin; AND RJ>REF(RJ,1) AND A6>REF(A6,1),0.2){XG51};
拉升进入:= CROSS(C,CYC&infin;) AND CYC&infin;>REF(CYC&infin;,1) AND CYC1>REF(CYC1,1) AND CYC2>REF(CYC2,1) AND CYC3>REF(CYC3,1){XG51};
MA1:MA(CLOSE,5){XG51};
MA2:MA(CLOSE,10){XG51};
MA3:MA(CLOSE,20){XG51};
MA4:MA(CLOSE,30){XG51};
DRAWTEXT(B,LOW-(H-L)*0.6,'升'),COLORWHITE{XG51};
DRAWTEXT(拉升进入,LOW-(H-L)*0.96,'拉升'),COLORWHITE{X=G.5?1=C=N={};