通达信涨停过前高主图及未加密选股指标公式源码

源码正文：

ZT:=C/REF(C,1)>1.095 AND C=H{XG51};
stICKLINE(ZT,C*0.995,C,3,0),COLORBLUE{XG51};
STICKLINE(ZT,C*0.995,O,1,0),COLORBLUE{XG51};
TJ1:=COUNT(ZT,2)>0 AND O>REF(C,1){XG51};
DRAWICON(TJ1,L*0.99,1){XG51};
TJ2:=REF(C,1)>=REF(HHV(H,60),1){XG51};
DRAWICON(TJ2,L*0.98,7){XG51};
TJ3:=COUNT(C=H,2)>0 AND O>REF(C,1){XG51};
STICKLINE(C=H,C*0.995,C,3,0),COLORmaGENTA{XG51};
XG:=(TJ1 OR TJ3) AND TJ2{XG51};
DRAWICON(XG,L*0.97,38){XG51};
前高:IF(CURRBARSCOUNT<=60,CONST(REF(HHV(H,60),1)),DRAWNULL),DOTLINE{XG51};
高开:(O-REF(C,1))/REF(C,1)*100,NODRAW{X.G*5?1.C.N.{};

源码正文：

红K:=IF(O<C,(C-O)/REF(C,1),0){XG51};
绿K:=IF(O>C,(O-C)/REF(C,1),0){XG51};
红绿差:=SUM(红K-绿K,5){XG51};
KC:=0.382*(H+L-O-C)+0.382*O+0.618*C+0.618*IF(C<200,AMOUNT/vol/100-C,(H+L-O-C)){XG51};
KC1:=ma(KC-REF(KC,1),5){XG51};
dif:ema(KC1,12)-EMA(KC1,26){XG51};
DEA:=EMA(DIF,9){XG51};
完整KC:=KC+红绿差{XG51};
KKC1:=MA(完整KC-REF(完整KC,1),5){XG51};
kdIF:=EMA(KKC1,12)-EMA(KKC1,26){XG51};
KDEA:EMA(KDIF,9){XG51};
macd:(KDIF-KDEA)*2,COLORstICK{XG51};
DRAWICON(crOSS(DIF,KDEA),0,1){X?G?5?1?C?N?{};