通达信末日操盘手主图选股指标公式源码

通达信末日操盘手主图选股指标公式源码

源码正文：

RETNUM:=TDXDLL8(3,C,O,H){XG51};
TAISHAN:=MOD(INTPART(RETNUM), 10)-8{XG51};
NIAN:=2000+INTPART(RETNUM/320){XG51};
YUE:=MOD(INTPART(FRacPART(RETNUM)*100), 13){XG51};
RI:=INTPART((MOD(RETNUM, 320))/10){XG51};
LSOFT:=INTPART(FRACPART(RETNUM)*100/13){XG51};
TSY1:=stRCAT('公式可试用到: ', CON2STR(NIAN,0)){XG51};
TSY2:=STRCAT(TSY1, '年'){XG51};
TSY3:=STRCAT(TSY2, CON2STR(YUE,0)){XG51};
TSY4:=STRCAT(TSY3, '月'){XG51};
TSY5:=STRCAT(TSY4, CON2STR(RI,0)){XG51};
TSY6:=STRCAT(TSY5, '日'){XG51};
TZS1:=STRCAT('公式可租用到: ', CON2STR(NIAN,0)){XG51};
TZS2:=STRCAT(TZS1, '年'){XG51};
TZS3:=STRCAT(TZS2, CON2STR(YUE,0)){XG51};
TZS4:=STRCAT(TZS3, '月'){XG51};
TZS5:=STRCAT(TZS4, CON2STR(RI,0)){XG51};
TZS6:=STRCAT(TZS5, '日'){XG51};
DRAWTEXT_FIX(LSOFT=1,0,1,0,TSY6)COLOR00FFFF{XG51};
DRAWTEXT_FIX(LSOFT=2,0,1,0,TZS6)COLOR00FFFF{XG51};
DRAWTEXT_FIX(LSOFT=0,0,1,0,'公式没注册或已过期，请购买序列号！请联系QQ48080551')COLOR00FFFF{XG51};
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0){XG51};
DRAWGBK(C>0,RGB(0,0,0),RGB(00,0,0),0,'EM',0){XG51};
上18H:=Wma(SMA(HHV(HIGH,18),9/2,1),3){XG51};
下18L:=WMA(SMA(LLV(LOW,18),9/2,1),3){XG51};
通道:=(上18H+下18L)/2{XG51};
DRAWBAND(上18H,RGB(68,0,1),通道,RGB(68,0,1)){XG51};
DRAWBAND(通道,RGB(3,43,63),下18L,RGB(3,43,63)){XG51};
N:=27{XG51};
PP:=0.03{XG51};
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),vol*C,0),0){XG51};
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0){XG51};
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0){XG51};
BB1:=0{XG51};
B1万元:=DVOL*DCLOSE/100{XG51};
B1差:=B1万元-REF(B1万元,1){XG51};
B2万元:=DVOL*DCLOSE/100{XG51};
B2比:=B2万元/REF(B2万元,1){XG51};
净流入万元:=(AAA2-AAA3-0.5*AAA4){XG51};
PM:=MA(净流入万元,1){XG51};
PMA:=PM/REF(PM,1)>1{XG51};
PMB:=REF(PMA,1)<1 AND PMA{XG51};
密码:=(ema(MA(B1万元,2),2))/100000,COLORBLUE,NODRAW{XG51};
二日比:=密码/REF(密码,1){XG51};
选股:=PMB AND 密码>REF(密码,1) AND 二日比>1,COLORWHITE,NODRAW{XG51};
MA5:=MA(C,5);MA10:=MA(C,10);MA30:=MA(C,30){XG51};
DRAWNUMBER(选股=1 ,L,密码),COLORBLUE{XG51};
DRAWICON(选股,L*0.975,1){XG51};
A1:=REF(O,1){XG51};
A2:=Abs((REF(C,1)-A1)/A1){XG51};
A3:=ABS((REF(H,1)-A1)/A1){XG51};
A4:=ABS((REF(L,1)-A1)/A1){XG51};
B1:=ABS((A2+A3+A4)/3){XG51};
B2:=O*B1{XG51};
预测低一:=O-B2{XG51};
预测高一:=O+B2{XG51};
今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLOR4080FF,NODRAW{XG51};
开盘价1:=OPEN{XG51};
开盘价2:=REF(OPEN,1){XG51};
最高价1:=HIGH{XG51};
最高价2:=REF(HIGH,1){XG51};
最低价1:=LOW{XG51};
最低价2:=REF(LOW,1){XG51};
收盘价1:=CLOSE{XG51};
收盘价2:=REF(CLOSE,1){XG51};
AA:=最高价2{XG51};
BB:=最低价2{XG51};
CC:=开盘价2{XG51};
DD:=收盘价2{XG51};
EE:=(AA+BB+CC+2*DD)/5{XG51};
AAA:=EE+(AA-BB){XG51};
BBB:=2*EE-BB{XG51};
CCC:=2*EE-AA{XG51};
DDD:=EE-(AA-BB){XG51};
上升突破价:=AAA{XG51};
上升阻力价:=BBB{XG51};
下跌支撑价:=CCC{XG51};
下跌反转价:=DDD{XG51};
EEE:=(EE+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5{XG51};
心理价:=EEE{XG51};
FFF:=(EEE+开盘价1)/2{XG51};
GGG:=(预测低一+FFF)/2{XG51};
预测低二:=GGG{XG51};
预测高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1){XG51};
DRAWTEXT_FIX(1,0.04,0.15,0,'预测低一:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.10,0.15,0,CONST(预测低一)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.15,0.15,0,'元'),COLORBLUE,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.04,0.20,0,'预测高一:'),COLORFFFFFF{XG51};
DRAWNUMBER_FIX(1,0.10,0.20,0,CONST(预测高一)),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.15,0.20,0,'元'),COLORFFFFFF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.15,0,'预测低二:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.24,0.15,0,CONST(预测低二)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.29,0.15,0,'元'),COLORBLUE,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.20,0,'预测高二:'),COLORFFFFFF{XG51};
DRAWNUMBER_FIX(1,0.24,0.20,0,CONST(预测高二)),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.29,0.20,0,'元'),COLORFFFFFF,LINETHICK1{XG51};
买回价:=预测低二*1.015{XG51};
卖出价:=买回价*(1+PP){XG51};
DRAWTEXT_FIX(1,0.04,0.10,0,'卖出价:'),COLOR8080FF,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.10,0.10,0,CONST(卖出价)),COLOR8080FF{XG51};
DRAWTEXT_FIX(1,0.15,0.10,0,'元'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.10,0,'买回价:'),COLOR8080FF,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.24,0.10,0,CONST(买回价)),COLOR8080FF{XG51};
DRAWTEXT_FIX(1,0.29,0.10,0,'元'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.01,0.02,0,'★ =============================== ★'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.12,0.05,0,'T+0 操 作'),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.01,0.08,0,'操 '),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.12,0,'盘 '),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.16,0,'铁'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.20,0,'律'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.08,0,'坚 '),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.12,0,'决 '),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.16,0,'执'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.20,0,'行'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.24,0,'★ =============================== ★'),COLORWHITE{XG51};
总额:=AMOUNT{XG51};
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)){XG51};
买%:=买/AMOUNT*100{XG51};
流入:=AMOUNT*买%/10000000000{XG51};
流出:=AMOUNT/100000000-流入{XG51};
净流:=(流入-流出){XG51};
总额3:=SUM(AMOUNT,3){XG51};
流入3:=SUM(流入,3){XG51};
流出3:=SUM(流出,3){XG51};
净流3:=SUM(流入-流出,3){XG51};
总额5:=SUM(AMOUNT,5){XG51};
流入5:=SUM(流入,5){XG51};
流出5:=SUM(流出,5){XG51};
净流5:=SUM(流入-流出,5){XG51};
总额10:=SUM(AMOUNT,10){XG51};
流入10:=SUM(流入,10){XG51};
流出10:=SUM(流出,10){XG51};
净流10:=SUM(流入-流出,10){XG51};
画:=CONST(FINDHIGH(总额10,0,190,1)){XG51};
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLOR8080FF,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORBLUE{XG51};
WMA(SMA(HHV(HIGH,18),9/2,1),3),COLOR0080FF,DOTLINE{XG51};
WMA(SMA(LLV(LOW,18),9/2,1),3),COLOR0080FF,DOTLINE{XG51};
DJ1:=(上18H+下18L)/2,COLORFFFFFF{XG51};
DRAWKLINE(H,O,L,C){XG51};
ZKP:=IF(C>REF(C,1),REF(C,1),DRAWNULL){XG51};
ZSP:=IF(C>REF(C,1),C,DRAWNULL){XG51};
DKP:=IF(C<=REF(C,1),REF(C,1),DRAWNULL){XG51};
DSP:=IF(C<=REF(C,1),C,DRAWNULL){XG51};
DRAWKLINE(H,DKP,L,DSP){XG51};
DRAWKLINE(H,ZKP,L,ZSP){XG51};
三日最低:=EMA((REF(L,4)+REF(L,3)+REF(L,2))/3,3){XG51};
三日最高:=EMA((REF(H,4)+REF(H,3)+REF(H,2))/3,3),COLORRED{XG51};
S:=crOSS(CROSS(三日最高,C),0.6){XG51};
B:=CROSS(CROSS(C,三日最低),0.5){XG51};
DRAWICON(FILTER(B,5),LOW*0.98,34){XG51};
DRAWICON(FILTER(S,5),H*1.02,35){XG51};
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20){XG51};
V2:=(1-7/100)*(dma(CLOSE,V1)){XG51};
V3:=(1+7/100)*(DMA(CLOSE,V1)){XG51};
V5:=MA((LOW+HIGH+CLOSE)/3,5){XG51};
EMA13:=EMA(C,13),COLORRED{XG51};
EMA21:=EMA(C,21),COLORBLUE{XG51};
EMA34:=EMA(C,34),COLORFF00FF{XG51};
EMA60:=MA(C,60),COLORFFCC66{XG51};
VAR2:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1){XG51};
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4){XG51};
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3{XG51};
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3{XG51};
DRAWICON(CROSS(散户,庄家) AND 散户<30,L-0.05,1){XG51};
DRAWICON(CROSS(庄家,散户) AND 散户>70,H+0.05,2){XG51};
VAR9:=CLOSE-REF(CLOSE,5){XG51};
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5){XG51};
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20){XG51};
卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100){XG51};
DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2){XG51};
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42){XG51};
B10:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORLIMAGENTA{XG51};
S1:IF(CROSS(80,rsi)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE{XG51};
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORCYAN{XG51};
A0:=(L+H+C*2)/4{XG51};
A10:=EMA(A0,14)NODRAW,COLORFFFFFF,LINETHICK1{XG51};
A20:=EMA(A0,25)COLORLIGREEN,LINETHICK2{XG51};
A1X:=(A10-REF(A10,1))/REF(A10,1)*100,NODRAW{XG51};
A2X:=(A20-REF(A20,1))/REF(A20,1)*100,NODRAW{XG51};
看多:IF(A1X>=0 AND BArslAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL)DOTLINE,COLOR00FFFF{XG51};
看空:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL)DOTLINE,COLORGREEN,{XG51};
N1:=10{XG51};
T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1{XG51};
量能平台:IF(CURRBARSCOUNT<=N1+15,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORBLUE,LINETHICK2{XG51};
IF(CURRBARSCOUNT<=N1+15,CONST(IF(T1=0,C,REF(C,T1))*1.001),DRAWNULL),COLORWHITE,LINETHICK2{XG51};
新量能点:=IF(CURRBARSCOUNT=T1+1,量能平台,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK9{XG51};
DRAWTEXT(ISLASTBAR,量能平台,' 必杀线'),COLOR00F0F0{XG51};
DRAWTEXT(ISLASTBAR,量能平台*1.001,' 必杀线'),COLORWHITE{XG51};
HV:=HHV(V,5)=V OR V/REF(V,1)>=5{XG51};
FT:=BARSLAST(HV){XG51};
量能平台1:=IF(HV,C,REF(C,FT)){XG51};
DRAWTEXT(量能平台1>REF(量能平台1,1)AND C<REF(C,1),L*0.98,'＆放跌'),COLORCYAN{XG51};
DRAWTEXT(量能平台1<REF(量能平台1,1) AND C>REF(C,1),L*0.98,'＆缩涨'),COLORBLUE{XG51};
DRAWTEXT(量能平台1>REF(量能平台1,1) AND C>REF(C,1) AND C>MA(C,13) AND C=HHV(C,20) AND C/REF(C,1)>1.05,L*0.98,'＆突破'),COLORFFFFFF{XG51};
LC:=REF(CLOSE,1){XG51};
RSI5:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100{XG51};
逃命:=CROSS(80,RSI5){XG51};
DRAWICON(FILTER(逃命,5),H*1.02,15){XG51};
TJ1:=REF("cci.CCI",1)>90 AND "CCI.CCI"<REF("CCI.CCI",1){XG51};
TJ2:=REF("kdj.J"(9,3,3),1)>90 AND "kdJ.J"(9,3,3)<REF( "KDJ.J"(9,3,3),1){XG51};
TJ3:=REF("RSI.RSI1",1)>70 AND "RSI.RSI1"<REF("RSI.RSI1",1){XG51};
TJ4:=COUNT(TJ1,5) AND COUNT(TJ2,5) AND COUNT(TJ3,5){XG51};
大顶:=CROSS(TJ4,0.5){XG51};
DRAWICON(FILTER(大顶,5),H*1.02,2){XG51};
TJ5:=REF("CCI.CCI",1)<-100 AND "CCI.CCI">REF("CCI.CCI",1){XG51};
TJ6:=REF("KDJ.J"(9,3,3),1)<20 AND "KDJ.J"(9,3,3)>REF( "KDJ.J"(9,3,3),1){XG51};
TJ7:=REF("RSI.RSI1",1)<20 AND "RSI.RSI1">REF("RSI.RSI1",1){XG51};
TJ8:=COUNT(TJ5,5) AND COUNT(TJ6,5) AND COUNT(TJ7,5){XG51};
大底:=CROSS(TJ8,0.5){XG51};
DRAWICON(FILTER(大底,5),L*0.98,9){XG51};
中:(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,COLORFF951F,DOTLINE,LINETHICK2{XG51};
YJ:=中{XG51};
IF(YJ>REF(YJ,1),YJ,DRAWNULL),COLORWHITE,DOTLINE,LINETHICK2{X!G+5_1!C!N!{};