通达信超级量化主图选股指标公式源码

通达信超级量化主图选股指标公式源码

源码正文：

SHORT:=12{XG51};
LONG:=26{XG51};
M:=9{XG51};
最大亏损:=5000{XG51};
dif:=ema(CLOSE,SHORT) - Ema(CLOSE,LONG){XG51};
DEA:=EMA(DIF,M){XG51};
macd:=2*(DIF-DEA),stICK{XG51};
多空分界:MA(C,50),LINETHICK1,COLORGREEN,POINTDOT{XG51};
TOZ:=MA(C,50),COLORBLUE,DOTLINE{XG51};
TMacD:=MA(C,50)+(MACD.MACD)*3{XG51};
HD0:=crOSS(DIF,DEA){XG51};
金收:=REF(L,BArslAST(HD0)),COLORBLUE,DOTLINE{XG51};
DRAWNUMBER(ISLASTBAR,金收,金收),COLORGREEN{XG51};
LD0:=CROSS(DEA,DIF){XG51};
死收:REF(H,BARSLAST(LD0)),COLOR00FF00,DOTLINE{XG51};
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1)){XG51};
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1)){XG51};
DIF拐头价:(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORBLUE,LINETHICK1{XG51};
柱变向价:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORRED,LINETHICK1{XG51};
DRAWBAND(DIF拐头价,RGB(250,250,0),DIF拐头价,RGB(0,0,0)){XG51};
DRAWBAND(IF(柱变向价>DIF拐头价,柱变向价,DRAWNULL),RGB(250,0,0),柱变向价,RGB(0,0,0)){XG51};
黄铢消失见顶:=IF(柱变向价>=DIF拐头价,DIF拐头价,DRAWNULL),COLORBLUE,CIRCLEDOT,LINETHICK1{XG51};
金叉:=IF(柱变向价>=DIF拐头价,多空分界,DRAWNULL),COLORBLUE,CIRCLEDOT,LINETHICK1{XG51};
金死叉价:(JCSC*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORGREEN,NODRAW{XG51};
MACD走平时股价:=(((M+1)*(2*REF(DEA,1)*(M-1)+REF(MACD,1)*(M+1)))/(2*(M+1)*(M-1))+(REF(EMA(C,26),1)*(26-1)/(26+1))-(REF(EMA(C,12),1)*(12-1)/(12+1)))*(12+1)*(26+1)/(2*(26-12)){XG51};
ES:=REF(EMA(C,26),1){XG51};
EP:=REF(EMA(C,12),1){XG51};
DI:=REF(DIF,1){XG51};
DIF穿零价:((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORRED{XG51};
DRAWTEXT_FIX(1,0.7,0.01,0,STRCAT('金死叉价: ',CON2STR(金死叉价,2))),COLORGREEN{XG51};
ZJ:=DIF>DEA{XG51};
HY:=DIF<DEA{XG51};
XG1:=ZJ AND C>死收 AND C>多空分界{XG51};
STICKLINE(XG1,L,H,0,0),COLOR0000AA;
STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR000055{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR000066{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR000077{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR000088{XG51};
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR000099{XG51};
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR0000AA{XG51};
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR0000CC{XG51};
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR0000FF{XG51};
W1:= C<死收 AND ZJ{XG51};
STICKLINE(W1,H,L,0,1),COLORFF55FF{XG51};
STICKLINE(W1,C,O,3.2,0),COLOR880088{XG51};
STICKLINE(W1,C,O,2.6,0),COLORAA00AA{XG51};
STICKLINE(W1,C,O,1.9,0),COLORCC00CC{XG51};
STICKLINE(W1,C,O,1.1,0),COLOREE00EE{XG51};
STICKLINE(W1,C,O,0.3,0),COLORFF44FF{XG51};
W2:= C<多空分界 AND ZJ{XG51};
STICKLINE(W2,H,L,0,1),COLORFF55FF{XG51};
STICKLINE(W2,C,O,3.2,0),COLOR880088{XG51};
STICKLINE(W2,C,O,2.6,0),COLORAA00AA{XG51};
STICKLINE(W2,C,O,1.9,0),COLORCC00CC{XG51};
STICKLINE(W2,C,O,1.1,0),COLOREE00EE{XG51};
STICKLINE(W2,C,O,0.3,0),COLORFF44FF{XG51};
XG2:=C<DIF拐头价 AND HY{XG51};
STICKLINE(XG2,H,L,0,0),COLOR00FF00{XG51};
STICKLINE(XG2,C,O,3,0),COLOR009900{XG51};
STICKLINE(XG2,C,O,2,0),COLOR00BB00{XG51};
STICKLINE(XG2,C,O,1,0),COLOR00DD00{XG51};
STICKLINE(XG2,C,O,0.3,0),COLOR00FF00{XG51};
XG3:=C>DIF拐头价 AND HY{XG51};
STICKLINE(XG3,H,L,0,0),COLOR00FF00{XG51};
STICKLINE(XG3,C,O,3,0),COLOR009900{XG51};
STICKLINE(XG3,C,O,2,0),COLOR00BB00{XG51};
STICKLINE(XG3,C,O,1,0),COLOR00DD00{XG51};
STICKLINE(XG3,C,O,0.3,0),COLOR00FF00{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:SMA(RSV,3,1),COLORRED,LINETHICK1,NODRAW{XG51};
D:SMA(K,3,1),COLORBLUE,LINETHICK1,NODRAW{XG51};
LC:=REF(CLOSE,1){XG51};
rsi1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
IF(COUNT(RSI1>80,3)=3,H,DRAWNULL),POINTDOT,COLORCYAN,LINETHICK8{XG51};
IF(COUNT(RSI1<20,3)=3,L,DRAWNULL),POINTDOT,COLORBLUE,LINETHICK8;
IF(COUNT(K>80,3)=3,H,DRAWNULL),POINTDOT,COLORCYAN,LINETHICK5{XG51};
IF(COUNT(K<20,3)=3,L,DRAWNULL),POINTDOT,COLORFF33FF,LINETHICK5;
今日空间:=C-REF(金死叉价,1)COLORCYAN,NODRAW{XG51};
尾盘空间:C-金死叉价,NODRAW{XG51};
DRAWTEXT_FIX(1,0.6,0.09,0,STRCAT('尾盘5分钟差值: ',CON2STR(尾盘空间,2))),COLORGREEN{XG51};
A0:=最大亏损{XG51};
今日开仓:=A0/今日空间,NODRAW{XG51};
尾盘开仓:A0/尾盘空间,NODRAW{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.0,0.09,0.0,'资金管理:合理控制仓位，好点位都是补出来的')COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.7,0.09,0,STRCAT('               尾盘最大开仓股数: ',CON2STR(尾盘开仓,2))),COLORLIMAGENTA;

{X!G~5-1!C!N!{}