通达信真实盘口选股指标公式源码

通达信真实盘口选股指标公式源码

源码正文：

TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1))))){XG51};
MTIME:=MOD(FROMOPEN,TOTAL){XG51};
CTIME:=IF(MTIME<0.5,TOTAL,MTIME){XG51};
Vvol:=IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW{XG51};
stICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 || SETCODE=1),VVOL,0,-1,-1),COLOR00C0C0{XG51};
VOLUME:=VOL,VOLSTICK{XG51};
成交量手:=VOL,POINTDOT,COLORBLUE{XG51};
VAR0:=DYNAINFO(17)*REF(ma(VOL,5),1){XG51};
VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT{XG51};
预测:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR0,VAR2)/10000{XG51};
预测量:STICKLINE(IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR0,VAR2),VAR0,0,3,1),DOTLINE,COLORBROWN{XG51};
VOL,VOLSTICK{XG51};
AA:=VOL/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2.5)),POINTDOT,COLORWHITE{XG51};
主动卖盘:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2.5)),,COLORCYAN,NODRAW{XG51};
买卖差:主动买盘+主动卖盘,COLORRED,NODRAW{XG51};
日差占流通盘比:买卖差/CAPITAL*100,COLOR0099FF,NODRAW{XG51};
五日买卖总差:SUM(买卖差,5),COLORMAGENTA,LINETHICK1,NODRAW{XG51};
换手率％:VOL/CAPITAL*100,COLORBLUE,NODRAW;
流通盘（亿）:CAPITAL/1000000,NODRAW;
流通市值（亿）: (CAPITAL/100*C)/10000,COLOR33CCFF,NODRAW{XG51};
成交额（千万）:AMOUNT/10000000,NODRAW{XG51};
STICKLINE(C>O,0,VOL,3.2,1),COLOR0000AA{XG51};
STICKLINE(C<O,0,VOL,3.2,1),COLOR00AA00{XG51};
STICKLINE(主动买盘>0,0,主动买盘,2.6,0),COLORWHITE{XG51};
STICKLINE(主动卖盘<0,0,-主动卖盘,2.6,0),COLORCYAN{XG51};
STICKLINE(买卖差>0,0,买卖差,0.6,0),COLORBLUE{XG51};
STICKLINE(买卖差<0,0,-买卖差,0.6,0),COLORYELLOW{XG51};
换:VOL/CAPITAL*100,POINTDOT COLORLIMAGENTA{XG51};
五换:SUM(换,5),COLORBLUE{XG51};
十换:SUM(换,10),COLORCYAN{XG51};
二十换:SUM(换,20),COLORFFFFFF{XG51};
三十换:SUM(换,30),COLORBLUE{XG51};
DRAWICON(十换>30,-20000,1){XG51};
DRAWICON(十换>80,-10000,23){XG51};
DRAWTEXT_FIX(1,0.01,0.9,0,'空心柱为成交量，实心柱为主买卖,中间窄柱子为买卖差，10日换手 >30出红箭头, >80出红十字'),COLORBLACK{XG51};
启:=MA(V,5)COLORLIMAGENTA,LINETHICK2{XG51};
洗:=MA(V,30)COLORCYAN,LINETHICK2{XG51};
异:=MA(V,60)COLORLIGREEN,LINETHICK2{XG51};
DRAWTEXT(crOSS(启,洗)AND V>洗 AND V>异 AND 洗<异,V,'★洗盘'),COLORLIMAGENTA{XG51};
DRAWTEXT(CROSS(启,异)AND V>异 AND V>异 AND 洗<异,V,'★异动'),COLORBLUE{X~G!5?1~C~N~{};