通达信资金分析优化主图选股指标公式源码

通达信资金分析优化主图选股指标公式源码

源码正文：

DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'24',0){XG51};
DRAWNUMBER(ISLAstBAR,C,C),COLORmaGENTA{XG51};
MA5:MA(CLOSE,5),COLORFFFFFF{XG51};
MA17:MA(CLOSE,17),COLORBLUE{XG51};
MA55:MA(CLOSE,55),COLORLIMAGENTA{XG51};
MA72:MA(CLOSE,72),COLORCYAN{XG51};
MA200:MA(CLOSE,200),COLORE67010{XG51};
DRAWKLINE(HIGH, OPEN,LOW, CLOSE){XG51};
射线3X: DRAWLINE(L=LLV(L,3),L,H=HHV(H,3),L,0),COLORBLACK{XG51};
射线5: DRAWLINE(H=HHV(H,5),H,L=LLV(L,5),L,0),COLORBLACK{XG51};
射线5X: DRAWLINE(L=LLV(L,5),L,H=HHV(H,5),L,0),COLORBLACK{XG51};
射线7: DRAWLINE(H=HHV(H,7),H,L=LLV(L,7),L,0),COLORE67010{XG51};
射线7X: DRAWLINE(L=LLV(L,7),L,H=HHV(H,7),L,0),COLORE67010{XG51};
射线10:DRAWLINE(H=HHV(H,10),H,L=LLV(L,10),L,0),COLOR0000FF{XG51};
射线10X:DRAWLINE(L=LLV(L,10),L,H=HHV(H,10),L,0),COLOR0000FF{XG51};
涨幅大于9.94:=C/REF(C,1)>1.09{XG51};
超B:=L2_AMO(0,2)/10000.0{XG51};
大B:=L2_AMO(1,2)/10000.0{XG51};
中B:=L2_AMO(2,2)/10000.0{XG51};
小B:=L2_AMO(3,2)/10000.0{XG51};
超S:=-L2_AMO(0,3)/10000.0{XG51};
大S:=-L2_AMO(1,3)/10000.0{XG51};
中S:=-L2_AMO(2,3)/10000.0{XG51};
小S:=-L2_AMO(3,3)/10000.0{XG51};
净流入亿:((超B+大B+中B+小B)+(超S+大S+中S+小S))/100,COLORGREEN,NODRAW{XG51};
中单:(中B+中S)/100,COLORBLACK,NODRAW{XG51};
大宗净入:=((超B+大B)+(超S+大S))/100{XG51};
超大单:=((超B)+(超S))/100{XG51};
大单:=((大B)+(大S))/100{XG51};
小单:=((小B)+(小S))/100{XG51};
大宗进:=((超B)+(大B))/100{XG51};
大宗出:=((超S)+(大S))/100{XG51};
非大宗进:=((中B)+(小B))/100{XG51};
非大宗出:=((中S)+(小S))/100{XG51};
资金净入:=((超B+大B+中B+小B)+(超S+大S+中S+小S))/100{XG51};
净入5日:=SUM(资金净入,5){XG51};
净入10日:=SUM(资金净入,10){XG51};
主力资金线:=(L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1))/100.0,LINETHICK2{XG51};
主力买力度:=LARGEINTRDvol*100/VOL{XG51};
主力卖力度:=LARGEOUTTRDVOL*100/VOL{XG51};
AA:=CONST(MAX(Abs(净流入亿),MAX(ABS(大宗净入),MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出)))))))*3,NODRAW{XG51};
DRAwrECTREL(0,CONST(830-(ABS(净流入亿)*500/AA)),30,945,IF(CONST(净流入亿)>0,RGB(250,150,10),RGB(0,100,100))){XG51};
DRAWRECTREL(35,CONST(830-(ABS(大宗净入)*500/AA)),65,945,IF(CONST(大宗净入)>0,RGB(250,150,10),RGB(0,100,100))){XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.000,0.88,0,INTPART(净流入亿)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.034,0.88,0,INTPART(大宗净入)),COLORRED{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.000,1,0,'净流入'),COLORRED{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.034,1,0,'净大宗'),COLORRED{XG51};
DRAWRECTREL(77,CONST(830-(ABS(大宗进)*500/AA)),97,945,IF(CONST(大宗进)>0,RGB(255,0,0),RGB(0,0,255))){XG51};
DRAWRECTREL(99,CONST(830-(ABS(大宗出)*500/AA)),119,945,IF(CONST(大宗出)<0,RGB(0,0,255),RGB(0,0,255))){XG51};
DRAWRECTREL(127,CONST(830-(ABS(非大宗进)*500/AA)),147,945,IF(CONST(非大宗进)>0,RGB(139,0,139),RGB(23,155,255))){XG51};
DRAWRECTREL(149,CONST(830-(ABS(非大宗出)*500/AA)),169,945,IF(CONST(非大宗出)<0,RGB(23,155,255),RGB(139,0,139))){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.077,1,0,'主力进出'),COLORRED{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.128,1,0,'散户进出'),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.077,0.88,0,INTPART(大宗进)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.097,0.88,0,INTPART(大宗出)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.126,0.88,0,INTPART(非大宗进)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.149,0.88,0,INTPART(非大宗出)),COLORRED{XG51};
AAB:=CONST(MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单))))),NODRAW{XG51};
DRAWRECTREL(0,CONST(830-(ABS(超大单)*500/AAB))/2,15,460,IF(CONST(超大单)>0,RGB(255,0,255),RGB(23,155,255))){XG51};
DRAWRECTREL(17,CONST(830-(ABS(大单)*500/AAB))/2,32,460,IF(CONST(大单)>0,RGB(255,0,255),RGB(23,155,255))){XG51};
DRAWRECTREL(34,CONST(830-(ABS(中单)*500/AAB))/2,49,460,IF(CONST(中单)>0,RGB(255,0,255),RGB(23,155,255))){XG51};
DRAWRECTREL(51,CONST(830-(ABS(小单)*500/AAB))/2,66,460,IF(CONST(小单)>0,RGB(255,0,255),RGB(23,155,255))){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.000,0.460,0,'超   大   中  散'),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.000,0.400,0,INTPART(超大单)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.017,0.400,0,INTPART(大单)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.034,0.400,0,INTPART(中单)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.051,0.400,0,INTPART(小单)),COLORRED{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'【资金分析￥百万元】'),COLORRED{XG51};
Aac:=CONST(MAX(ABS(净入5日),ABS(净入10日))),NODRAW{XG51};
DRAWRECTREL(78,CONST(830-(ABS(净入5日)*500/AAC))/2,110,460,IF(CONST(净入5日)>0,RGB(250,150,10),RGB(23,133,255))){XG51};
DRAWRECTREL(116,CONST(830-(ABS(净入10日)*500/AAC))/2,148,460,IF(CONST(净入10日)>0,RGB(250,150,10),RGB(23,133,255))){XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.078,0.400,0,INTPART(净入5日)),COLORRED{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.115,0.400,0,INTPART(净入10日)),COLORRED{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.075,0.460,0,'流入5日  流入10日'),COLORRED{XG51};
ddx:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*1000/FINANCE(7){XG51};
DDY:=IF(TRADENUM>0,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM,0){XG51};
DDZ:=IF(TRADENUM>0,(LARGETRDINNUM-LARGETRDOUTNUM)/TRADENUM*100,0){XG51};
DRAWRECTREL(118,0,165,40,IF(CONST(DDX)>0,RGB(255,0,0),RGB(0,50,0))){XG51};
DRAWRECTREL(118,45,165,85,IF(CONST(DDY)>0,RGB(255,0,0),RGB(0,50,0))){XG51};
DRAWRECTREL(118,90,165,130,IF(CONST(DDZ)>0,RGB(255,0,0),RGB(0,50,0))){XG51};
DRAWTEXT_FIX(1,0.123,0.00,0,STRCAT('DDX:',CON2STR(DDX,0))),COLORBLUE,COLORRED{XG51};
DRAWTEXT_FIX(1,0.123,0.04,0,STRCAT('DDY:',CON2STR(DDY,0))),COLORBLUE,COLORRED{XG51};
DRAWTEXT_FIX(1,0.123,0.09,0,STRCAT('DDZ:',CON2STR(DDZ,0))),COLORBLUE,COLORRED{XG51};
AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW{XG51};
DRAWRECTREL(0,515,CONST(ABS(主力买力度)*500/AAD),568,IF(CONST(主力买力度)>0,RGB(139,0,139),RGB(0,255,255))){XG51};
DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*500/AAD),623,IF(CONST(主力卖力度)>0,RGB(23,125,255),RGB(0,255,255))){XG51};
DRAWTEXT_FIX(1,0,0.516,0,STRCAT('主力买力度:',CON2STR(主力买力度,0))),COLORWHITE,COLORRED{XG51};
DRAWTEXT_FIX(1,0,0.574,0,STRCAT('主力卖力度:',CON2STR(主力卖力度,0))),COLORWHITE,COLORRED{XG51};
涨幅:=(C-REF(C,1))/REF(C,1)*100,NODRAW{XG51};
STICKLINE(涨幅大于9.94,C,O,4,0),COLORWHITE{XG51};
STICKLINE(涨幅<-9.92,C,O,4,0),COLORYELLOW{XG51};
DRAWTEXT(涨幅大于9.94,L-0.009,'涨停'),COLORWHITE{XG51};
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>1,0.86,0.95,0,'★外盘大1倍以上'),COLORRED{XG51};
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>2,0.86,0.95,0,'★外盘大2倍以上'),COLORRED{XG51};
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>3,0.86,0.95,0,'★外盘大3倍以上'),COLORRED{XG51};
N8:=STRCAT(CON2STR(YEAR,0),' 年 '){XG51};
Y8:=STRCAT(CON2STR(MONTH,0),' 月 '){XG51};
R8:=STRCAT(CON2STR(DAY,0),' 日 '){XG51};
SJ8:=STRCAT(STRCAT(N8,Y8), R8){XG51};
DRAWTEXT_FIX(C>0,0.88,0,0,SJ8),COLOR00FFFF{X~G~5?1~C~N~{};