通达信四线金叉主图未加密选股指标公式源码

源码正文：

ema30:Ema(C,30),COLORRED,LINETHICK2{XG51};
EMA60:EMA(C,60),COLORFF00FF{XG51};
EMA90:EMA(C,90),COLORBLUE{XG51};
EMA120:EMA(C,120),COLORFFCC66{XG51};
EMA250:EMA(C,250),COLORYELLOW{XG51};
SS:=crOSS(EMA30,EMA60) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA30,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 {XG51};
DRAWICON(SS,L-0.04,1){XG51};
DD:=CROSS(EMA60,EMA90) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA250) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA90,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA60,EMA120) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 AND CROSS(EMA30,EMA250){XG51};
{X_G^5?1_C_N_{};

源码正文：

N:=5;QJ0:=(HIGH+LOW+CLOSE)/3{XG51};
QJ1:=IF(HIGH=LOW,1,HIGH-maX(OPEN,CLOSE)){XG51};
QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0){XG51};
QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW){XG51};
QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN)){XG51};
QJ5:=vol/(IF(HIGH=LOW,4,HIGH-LOW)){XG51};
QJ6:="macd.dif">"MacD.DEA" AND "MACD.DEA"<0{XG51};
QJ7:="kdj.K">"kdj.D" AND "KDJ.D"<30{XG51};
QJ8:="MACD.DIF"<"MACD.DEA"{XG51};
QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80{XG51};
特大:QJ4*QJ5,NODRAW;大单:QJ3*QJ5,NODRAW{XG51};
中单:QJ1*QJ5,NODRAW;小单:QJ2*QJ5,NODRAW{XG51};
W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N){XG51};
量振1:=特大>大单 AND 大单>小单{XG51};
量振2:=特大<小单 AND 大单<小单{XG51};
标振1:=QJ6 AND QJ7{XG51};
标振2:=QJ8 AND QJ9{XG51};
A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0){XG51};
stICKLINE(A0,0,A0,3,0),COLOR000044{XG51};
STICKLINE(A0,0,A0,2.5,0),COLOR000088{XG51};
STICKLINE(A0,0,A0,1.5,0),COLOR0000AA{XG51};
STICKLINE(A0,0,A0,1,0),COLOR0000CC{XG51};
STICKLINE(B0,0,-B0,3,0),COLOR004400{XG51};
STICKLINE(B0,0,-B0,2.5,0),COLOR008800{XG51};
STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00{XG51};
STICKLINE(B0,0,-B0,1,0),COLOR00CC00{XG51};
周趋势:MA(A,5),COLORFFFFFF{XG51};
平滑值:ema(周趋势,5),COLOR00FFFF{XG51};
STICKLINE(标振1 AND 量振1 AND 周趋势>平滑值,0,A0,3,0),COLORBLUE{XG51};
DRAWTEXT(标振1 AND 量振1 AND 周趋势>平滑值,A0,'振'),COLORBLUE{X~G^5-1~C~N~{};