通达信整合的分时主图选股指标公式源码

通达信整合的分时主图选股指标公式源码

源码正文：

IF(macd.DEA<0,C,DRAWNULL),COLORCYAN,LINETHICK9{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.02,NODRAW;高:=1.03{XG51};
DRAWTEXT(crOSS(主力,1.02),C*0.999,'-拉升'),COLORGREEN{XG51};
DRAWICON(CROSS(主力,1.04),C,24){XG51};
DRAWTEXT(CROSS(主力,1.04),C*0.999,'-冲涨停'),COLORMAGENTA{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};
机构买盘:=(A2),LINETHICK2{XG51};
机构卖盘:=(A3),LINETHICK2{XG51};
散户买盘:=(A4){XG51};
散户卖盘:=(A5){XG51};
DRAWTEXT_FIX(1,0.000,1-0.05,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),'万')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.250,1-0.05,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),'万')),COLOR00FF00{XG51};
DRAWTEXT_FIX(1,0.500,1-0.05,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),'万')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.745,1-0.05,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),'万')),COLOR00FF00{XG51};
H1:=MAX(DYNAINFO(3),DYNAINFO(5)){XG51};
L1:=MIN(DYNAINFO(3),DYNAINFO(6)){XG51};
P1:=H1-L1{XG51};
阻力:=L1+P1*7/8,COLORCYAN{XG51};
支撑:=L1+P1*0.5/8,COLORLIMAGENTA{XG51};
DRAWTEXT(LONGCROSS(支撑,C,2),C,'买'),COLOR00FFFF{XG51};
DRAWTEXT(LONGCROSS(C,阻力,2),C,'出'),COLORCYAN{XG51};
CC:=C{XG51};
TT:=BARSCOUNT(CC){XG51};
均价:SUM(V*C,0)/SUM(V,0),COLORCYAN{XG51};
均:=MA(CC,TT){XG51};
DRAWICON(CROSS(均价,均),均价,1){XG51};
突破:=REF(ema(C,20),1){XG51};
A1X:=(EMA(C,10)-突破)/突破*100{XG51};
多方:=IF(A1X>=0,REF(EMA(C,10),BArslAST(CROSS(A1X,0))+1),DRAWNULL){XG51};
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL){XG51};
STICKLINE(A1X>=0,多方,突破,2,0),COLOR0000FF{XG51};
STICKLINE(A1X<0,空方,突破,2,0),COLOR00FF00{XG51};
量价:=(VOL/CLOSE)/3{XG51};
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0){XG51};
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0){XG51};
B6:=B2+B3;DD1:=1;比:=B2/B3{XG51};
BBB1:=STRCAT(STRCAT('买= ',CON2STR((100*B2)/B6,0)),'%'){XG51};
BBB2:=STRCAT(STRCAT('卖= ',CON2STR((100*B3)/B6,0)),'%'){XG51};
BBB3:=STRCAT(STRCAT('差= ',CON2STR((100*(B2-B3))/B6,0)),'%'){XG51};
DRAWTEXT_FIX(DD1=1,0,0.04,0,BBB1),COLORWHITE{XG51};
DRAWTEXT_FIX(DD1=1,0,0.12,0,BBB2),COLORCYAN{XG51};
DRAWTEXT_FIX(DD1=1,0,0.20,0,BBB3),COLOR00FFFF{XG51};
中期线:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4)+100{XG51};
DRAWTEXT(比<1.1,(DYNAINFO(5)+DYNAINFO(6))/2,'○'),COLORCYAN{XG51};
DRAWTEXT(比>1.5,(DYNAINFO(5)+DYNAINFO(6))/2,'○'),COLORGREEN{XG51};
DRAWTEXT(比>2,(DYNAINFO(5)+DYNAINFO(6))/2,'○'),COLORLIMAGENTA{XG51};
DRAWTEXT(比>2.5,(DYNAINFO(5)+DYNAINFO(6))/2,'○'),COLORWHITE{XG51};
DRAWTEXT((比>1.1 AND 中期线<5),(DYNAINFO(5)+DYNAINFO(6))/2,'●'),COLORRED{XG51};
DRAWTEXT((比<1.1 AND 中期线>98.0),(DYNAINFO(5)+DYNAINFO(6))/2,'●'),COLORRED{XG51};
DRAWTEXT((比>1.1 AND 中期线<5),C,'--机会'),COLORBLUE{XG51};
DRAWTEXT((比<1.1 AND 中期线>98.0),C,'--风险'),COLORBLUE{XG51};
上涨家数:IF(PERIOD=0 ,'分时引.上涨家数#DAY',DRAWNULL),NODRAW{XG51};
下跌家数:IF(PERIOD=0 ,'分时引.下跌家数#DAY',DRAWNULL),NODRAW{XG51};
DRAWTEXT_FIX(1,0.160,1-0.12,0,STRCAT('上涨家数:',CON2STR(上涨家数,0))),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.650,1-0.12,0,STRCAT('下跌家数:',CON2STR(下跌家数,0))),COLOR00FF00{X_G*5_1_C_N_{};