通达信自用经典主图选股指标公式源码

通达信自用经典主图选股指标公式源码

源码正文：

高1:=REF(HHV(H,150),3){XG51};
低1:=REF(LLV(L,150),3){XG51};
H3:=高1-(高1-低1)*0.5;
中轴:REFDATE(H3,DATE),POINTDOT,COLORBLACK,LINETHICK3{XG51};
B1:=ema(C,12);
B2:=Ema(C,26);
B3:=B1-B2;
Wdif:=EMA(EMA(EMA(C,3),3),3)+B3;
WDEA:=EMA(WDIF,9);
macd:=2*(WDIF-WDEA){XG51};
stICKLINE(MacD>0,中轴,中轴+MACD,0,1),COLORWHITE{XG51};
STICKLINE(MACD<0,中轴,中轴+MACD,0,1),COLORLIGREEN;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,中轴,中轴+MACD,0,0 ),COLOR00BBFF{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,中轴,中轴+MACD,0,0 ),COLOR0011BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,中轴,中轴+MACD,0,0),COLORBB11BB{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,中轴,中轴+MACD,0,0),COLORFFBB11;
乾线: MA(C,3),COLORWHITE,LINETHICK2;
坤线:xma(REF(LLV(C,3),2),2),COLOR00FF00,LINETHICK2;
STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000055{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000077;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORGREEN{XG51};
DRAWICON(crOSS(zig(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.98,1){XG51};
DRAWICON(CROSS(REF(ZIG(3,10),1),ZIG(3,10)) ,HIGH*1.02,2){XG51};
DRAWTEXT(REF(CLOSE,2)/REF(OPEN,2)<0.95 AND
REF(C,2)<REF(C,3) AND REF(OPEN,1)<REF(CLOSE,2) AND
REF(CLOSE,1)>REF(CLOSE,2) AND
REF(CLOSE,1)>(REF(CLOSE,2)+REF(OPEN,2))/2 AND
CLOSE>REF(CLOSE,1) AND
LLV(LOW,13)=REF(LOW,1),LOW*0.96,'上升'), COLORBLUE{XG51};
DRAWTEXT(REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND
REF(OPEN,1) < REF(CLOSE,2) AND
Abs(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2),LOW*0.96 ,'进场' ) ,COLORBLUE{XG51};
DRAWICON(REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND
REF(OPEN,1) < REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2),C,1){XG51};
QC:=REF(CLOSE,1){XG51};
RSV:=(((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
YX:=((CLOSE>QC) AND C>O){XG51};
KK:=HHV(K,5){XG51};
HH:=HHV(D,5){XG51};
D1:=REF(D,1){XG51};
K1:=REF(K,1){XG51};
DRAWTEXT((((D1<30) AND CROSS(K,D)) AND YX),(LOW * 0.96),'&larr;短买！'),COLORBLUE{XG51};
{XG51};
VAR31:=((((HHV((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),4)<0) AND ((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2)>REF((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),1))) AND (REF((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),1)<REF((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),2))) AND (REF((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),2)<REF((((EMA(DCLOSE,12)-EMA(DCLOSE,26))-(EMA((EMA(DCLOSE,12)-EMA(DCLOSE,26)),9)))*2),3))){XG51};
DRAWTEXT(CROSS(MA(C,3),MA(C,9)) AND C>=REF(C,1) AND C>O,L*1.00,'&larr;加仓！'),COLORLIMAGENTA{XG51};
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(FF1,(LOW* 0.97),'老鼠仓'),COLOR4080FF;
获利:WINNER(CLOSE)*100,NODRAW,COLORWHITE{XG51};
kdj_K:="kdJ.K"(9,3,3);KDJ_D:="KDJ.D"(9,3,3);KDJ_J:="KDJ.J"(9,3,3){XG51};
买1:=CROSS(KDJ_J,0) OR (CROSS(KDJ_J,KDJ_K) AND KDJ_D<26){XG51};
买2:=CROSS("rsi.RSI1"(6,2,2),20) OR CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
买3:=CROSS("MACD.DIF","MACD.DEA") OR CROSS("MACD.MACD",0){XG51};
买0:=买1+买2+买3{XG51};
买9:=IF(买0>1,买0,0);
底:IF(买9,L*0.9978-0.03,DRAWNULL),POINTDOT,COLOR00FFFF,LINETHICK5{XG51};
选股:=FILTER(CROSS("KDJ.K","KDJ.D")&&CROSS("MACD.DIF","MACD.DEA"),50){XG51};
吸:IF(选股,L*0.988-0.01,DRAWNULL),POINTDOT,COLORFF00FF,LINETHICK7{XG51};
DRAWICON(买9>0,L/1.0,9){XG51};
MA05:=MA(C,3){XG51};
MA10:=MA(C,10){XG51};
MA20:=MA(C,20){XG51};
MA30:=MA(C,30){XG51};
五日乖离率:=(C-MA05)/MA05*100{XG51};
BB05:=ATAN((MA05/REF(MA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(EMA((MA05-REF(MA05,1))/REF(MA05,1),3)*100,3,1){XG51};
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
IF(BB05>30 AND MA05>REF(MA05,1), MA05,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
BB10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416{XG51};
IF(BB05<0 AND MA05<REF(MA05,1), MA05,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
三拾日乖离率:=(C-MA30)/MA30*100,NODRAW{XG51};
VAR1:=(MA20-MA30)>REF((MA20-MA30),1) AND MA20>REF(MA20,1) AND MA30>REF(MA30,1){XG51};
VAR2:=(MA30-MA20)<REF((MA30-MA20),1) AND MA20<REF(MA20,1) AND MA30<REF(MA30,1){XG51};
BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND MA05>REF(MA05,1)  AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA10>REF(MA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)  ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>MA30 OR O>MA30) AND MA05<REF(MA05,1)  AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10<REF(MA10,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'◆加二'),COLORBLUE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10>REF(MA10,1) {XG51};
减仓:=FILTER(JC,10){XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA05>REF(MA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<MA30{XG51};
买入:=FILTER(MR,10){XG51};
DRAWTEXT(减仓,HIGH*1.02,'◆风险'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.96,'◆买二'),COLORBLUE{XG51};
DRAWTEXT(清仓 ,HIGH*1.00,'◆清仓'),COLORCYAN{XG51};
A1:=BArslAST(REF(CROSS("MACD.DIF","MACD.DEA"),1)){XG51};
B11:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA"){XG51};
DRAWTEXT(B11>0,L-0.02,'★M'),COLOR00FFFF;
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)){XG51};
B22:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"){XG51};
DRAWTEXT(B22,L-0.10,'◎K'),COLORFF00FF;{X!G+5_1!C!N!{};