通达信分时超短主图选股指标公式源码

通达信分时超短主图选股指标公式源码

源码正文：

XG:HHV(H,480),DOTLINE,COLORGREEN{XG51};
RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1{XG51};
JY:=BArslAst((RQ-REF(RQ,1))!=WEEkdAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1{XG51};
ma1:=REF(C,JY){XG51};
MA2:=REF(MA1,JY){XG51};
MA3:=REF(MA2,JY){XG51};
MA4:=REF(MA3,JY){XG51};
MA5:=REF(MA4,JY){XG51};
MA6:=REF(MA5,JY){XG51};
MA7:=REF(MA6,JY){XG51};
MA8:=REF(MA7,JY){XG51};
MA9:=REF(MA8,JY){XG51};
H1:=MAX(DYNAINFO(3),DYNAINFO(5)){XG51};
L1:=MIN(DYNAINFO(3),DYNAINFO(6)){XG51};
P1:=H1-L1{XG51};
阻力:L1+P1*8/9,COLORLICYAN,DOTLINE{XG51};
支撑:L1+P1*0.5/9,COLORCYAN,DOTLINE{XG51};
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(vol*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORBLUE,DOTLINE{XG51};
dif:=(ema(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3){XG51};
DEA:=EMA(DIF,9){XG51};
macd1:=10*(DIF-DEA){XG51};
MacD2:=EMA(MACD1,2){XG51};
STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORBLACK{XG51};
STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIRED{XG51};
STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORBLACK{XG51};
STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIBLUE{XG51};
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE)){XG51};
主力:=expma(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120){XG51};
底:=1;1.022,NODRAW;高:=1.033{XG51};
DRAWTEXT(crOSS(主力,1.02),C*0.999,' 拉'),COLORLIMAGENTA{XG51};
DRAWICON(CROSS(主力,1.04),C,45){XG51};
DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORWHITE{XG51};
A1:=(VOL/CLOSE)/3{XG51};
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0){XG51};
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0){XG51};
A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0){XG51};
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0){XG51};
A6:=((A2+A3)+A4)+A5{XG51};
A7:=IF((BARSTATUS=2),((100*A2)/A6),0){XG51};
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0))){XG51};
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0))){XG51};
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0))){XG51};
DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF{XG51};
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,1){XG51};
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORGREEN{XG51};
DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORCYAN{XG51};
DRAWICON(LONGCROSS(C,阻力,2),C+0.01,45){X.G*5?1.C.N.{};