|
有人要的資金統(tǒng)計主圖源碼 資金統(tǒng)計 M1 0.00 1000.00 3.00 M2 0.00 1000.00 7.00 M3 0.00 1000.00 13.00 M4 0.00 1000.00 34.00 MA1:MA(CLOSE,M1); MA2:MA(CLOSE,M2); MA3:MA(CLOSE,M3); MA4:MA(CLOSE,M4); 超B:=L2_VOL(0,0)*VOL/CAPITAL; 大B:=L2_VOL(1,0)*VOL/CAPITAL; 中B:=L2_VOL(2,0)*VOL/CAPITAL; 小B:=L2_VOL(3,0)*VOL/CAPITAL; 超S:=-L2_VOL(0,1)*VOL/CAPITAL; 大S:=-L2_VOL(1,1)*VOL/CAPITAL; 中S:=-L2_VOL(2,1)*VOL/CAPITAL; 小S:=-L2_VOL(3,1)*VOL/CAPITAL; 凈流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S); 超凈:=超B+超S; 大凈:=大B+大S; 中凈:=中B+中S; 散凈:=小B+小S; 大宗凈流入:=(超B+大B)+(超S+大S); 主力買力度:=LARGEINTRDVOL*100/VOL; 主力賣力度:=LARGEOUTTRDVOL*100/VOL; AA:=CONST(MAX(ABS(凈流入),MAX(ABS(大宗凈流入),MAX(ABS(超凈),MAX(ABS(大凈),MAX(ABS(中凈),ABS(散凈)))))))*3,NODRAW; DRAWRECTREL(10,CONST(830-(ABS(大宗凈流入)*500/AA)),50,945,IF(CONST(大宗凈流入)>0,RGB(250,0,0),RGB(0,50,0))); DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.018,0.85,0,INTPART(大宗凈流入)),COLORYELLOW; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.018,0.90,0,'大宗'),COLORYELLOW; DRAWRECTREL(55,CONST(830-(ABS(超凈)*500/AA)),95,945,IF(CONST(超凈)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(100,CONST(830-(ABS(大凈)*500/AA)),140,945,IF(CONST(大凈)<0,RGB(0,50,0),RGB(255,0,0))); DRAWRECTREL(145,CONST(830-(ABS(中凈)*500/AA)),185,945,IF(CONST(中凈)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(190,CONST(830-(ABS(散凈)*500/AA)),230,945,IF(CONST(散凈)<0,RGB(0,50,0),RGB(255,0,0))); DRAWTEXT_FIX(CURRBARSCOUNT=1,0.062,0.90,0,'超凈 大凈 中凈 散凈'),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.062,0.85,0,INTPART(超凈)),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.110,0.85,0,INTPART(大凈)),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.155,0.85,0,INTPART(中凈)),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.200,0.85,0,INTPART(散凈)),COLORYELLOW; AAD:=CONST(MAX(ABS(主力買力度),ABS(主力賣力度)))*4,NODRAW; DRAWRECTREL(0,515,CONST(ABS(主力買力度)*500/AAD),568,IF(CONST(主力買力度)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(0,570,CONST(ABS(主力賣力度)*500/AAD),623,IF(CONST(主力賣力度)>0,RGB(0,50,0),RGB(255,0,0))); DRAWTEXT_FIX(1,0,0.512,0,STRCAT('主力買力度:',CON2STR(主力買力度,0))),COLORYELLOW; DRAWTEXT_FIX(1,0,0.57,0,STRCAT('主力賣力度:',CON2STR(主力賣力度,0))),COLORYELLOW; VAR101:=ZIG(3,13); STICKLINE((REF(VAR101,2) < REF(VAR101,1)) AND (VAR101 < REF(VAR101,1)),CLOSE,OPEN,5,0),COLOR66FF00; 資金量預測 預測量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL),NODRAW; STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,預測量,0,-1,-1),COLOR00C0C0; {成交量} 量:VOL,VOLSTICK; {倍量} 量差:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1),NODRAW, COLORLIMAGENTA; STICKLINE(量差>=1,0,VOL,2,0),COLORMAGENTA; V12:=MA(V,12); STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL,1,0),COLORBLUE;VOL5:MA(量,5),COLORWHITE; VOL35:MA(量,35),COLORYELLOW; 超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=-L2_AMO(0,3)/10000.0; 大S:=-L2_AMO(1,3)/10000.0; 中S:=-L2_AMO(2,3)/10000.0; 小S:=-L2_AMO(3,3)/10000.0; TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0); 凈流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S); 大宗凈流入:=(超B+大B)+(超S+大S); 超大單:=(超B)+(超S); 大單:=(大B)+(大S); 中單:=(中B)+(中S); 小單:=(小B)+(小S); 大宗進:=(超B)+(大B); 大宗出:=(超S)+(大S); 非大宗進:=(中B)+(小B); 非大宗出:=(中S)+(小S); 資金流向:=(超B+大B+中B+小B)+(超S+大S+中S+小S); 近5日流向:=SUM(資金流向,5); 近10日流向:=SUM(資金流向,10); 主力資金線:=(L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1))/100.0,LINETHICK2; 主力買力度:=LARGEINTRDVOL*100/VOL; 主力賣力度:=LARGEOUTTRDVOL*100/VOL; DRAWRECTREL(0,0,235,999,RGB(100,330,30)); DRAWRECTREL(0,0,235,507,RGB(0,30,50)); DRAWRECTREL(75,515,235,999,RGB(0,30,50)); DRAWRECTREL(144,0,235,507,RGB(100,330,30)); DRAWRECTREL(0,507,235,600,RGB(100,330,30)); AA:=CONST(MAX(ABS(凈流入),MAX(ABS(大宗凈流入),MAX(ABS(大宗進),MAX(ABS(大宗出),MAX(ABS(非大宗進),ABS(非大宗出)))))))*3,NODRAW; DRAWRECTREL(5,CONST(830-(ABS(凈流入)*500/AA)),35,945,IF(CONST(凈流入)>0,RGB(250,150,10),RGB(0,100,100))); DRAWRECTREL(40,CONST(830-(ABS(大宗凈流入)*500/AA)),70,945,IF(CONST(大宗凈流入)>0,RGB(250,150,10),RGB(0,100,100))); DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.005,0.88,0,INTPART(凈流入)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.041,0.88,0,INTPART(大宗凈流入)),COLORWHITE; DRAWRECTREL(80,CONST(830-(ABS(大宗進)*500/AA)),115,945,IF(CONST(大宗進)>0,RGB(255,0,0),RGB(23,125,255))); DRAWRECTREL(117,CONST(830-(ABS(大宗出)*500/AA)),152,945,IF(CONST(大宗出)<0,RGB(0,50,0),RGB(0,50,0))); DRAWRECTREL(158,CONST(830-(ABS(非大宗進)*500/AA)),193,945,IF(CONST(非大宗進)>0,RGB(255,0,0),RGB(23,125,255))); DRAWRECTREL(195,CONST(830-(ABS(非大宗出)*500/AA)),230,945,IF(CONST(非大宗出)<0,RGB(0,50,0),RGB(0,50,0))); DRAWTEXT_FIX(CURRBARSCOUNT=1,0.007,1,0,'凈流 大宗流 主力 進出 散戶 進出'),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.082,0.88,0,INTPART(大宗進)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.12,0.88,0,INTPART(大宗出)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.161,0.88,0,INTPART(非大宗進)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.196,0.88,0,INTPART(非大宗出)),COLORWHITE; AAB:=CONST(MAX(ABS(超大單),MAX(ABS(大單),MAX(ABS(中單),ABS(小單))))),NODRAW; DRAWRECTREL(5,CONST(830-(ABS(超大單)*500/AAB))/2,35,460,IF(CONST(超大單)>0,RGB(255,0,255),RGB(0,255,255))); DRAWRECTREL(40,CONST(830-(ABS(大單)*500/AAB))/2,70,460,IF(CONST(大單)>0,RGB(255,0,255),RGB(0,255,255))); DRAWRECTREL(75,CONST(830-(ABS(中單)*500/AAB))/2,105,460,IF(CONST(中單)>0,RGB(255,0,255),RGB(0,255,255))); DRAWRECTREL(110,CONST(830-(ABS(小單)*500/AAB))/2,140,460,IF(CONST(小單)>0,RGB(255,0,255),RGB(0,255,255))); DRAWTEXT_FIX(CURRBARSCOUNT=1,0.007,0.46,0,'超 戶 大 戶 中 戶 散戶 5日流 10日流'),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.007,0.4,0,INTPART(超大單)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.042,0.4,0,INTPART(大單)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.076,0.4,0,INTPART(中單)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.112,0.4,0,INTPART(小單)),COLORWHITE; DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'【綜合資金分析】 (￥萬元)'),COLORRED; AAC:=CONST(MAX(ABS(近5日流向),ABS(近10日流向))),NODRAW; DRAWRECTREL(149,CONST(830-(ABS(近5日流向)*500/AAC))/2,189,460,IF(CONST(近5日流向)>0,RGB(250,150,10),RGB(0,100,100))); DRAWRECTREL(191,CONST(830-(ABS(近10日流向)*500/AAC))/2,230,460,IF(CONST(近10日流向)>0,RGB(250,150,10),RGB(0,100,100))); DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.15,0.4,0,INTPART(近5日流向)),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.4,0,INTPART(近10日流向)),COLORWHITE; DDX:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*1000/FINANCE(7); DDY:=IF(TRADENUM>0,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM,0); DDZ:=IF(TRADENUM>0,(LARGETRDINNUM-LARGETRDOUTNUM)/TRADENUM*100,0); DRAWRECTREL(144,0,235,40,IF(CONST(DDX)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(144,45,235,85,IF(CONST(DDY)>0,RGB(255,0,0),RGB(0,50,0))); DRAWRECTREL(144,90,235,130,IF(CONST(DDZ)>0,RGB(255,0,0),RGB(0,50,0))); DRAWTEXT_FIX(1,0.15,0,0,STRCAT('DDX:',VAR2STR(DDX,2))),COLORYELLOW; DRAWTEXT_FIX(1,0.15,0.04,0,STRCAT('DDY:',VAR2STR(DDY,2))),COLORYELLOW; DRAWTEXT_FIX(1,0.15,0.09,0,STRCAT('DDZ:',VAR2STR(DDZ,2))),COLORYELLOW; DRAWTEXT_FIX(1,0.16,0.508,0,STRCAT('主力買力度:',CON2STR(主力買力度,0))),COLORYELLOW; DRAWTEXT_FIX(1,0.16,0.553,0,STRCAT('主力賣力度:',CON2STR(主力賣力度,0))),COLORMAGENTA; 日3大宗凈流入:=REF(大宗凈流入,1)+REF(大宗凈流入,2)+REF(大宗凈流入,3); 日5大宗凈流入:=REF(大宗凈流入,1)+REF(大宗凈流入,2)+REF(大宗凈流入,3)+REF(大宗凈流入,4)+REF(大宗凈流入,5); DRAWTEXT_FIX(1,0,0.508,0,STRCAT('3日大宗流:',CON2STR(日3大宗凈流入,0))),COLORYELLOW; DRAWTEXT_FIX(1,0,0.553,0,STRCAT('5日大宗流:',CON2STR(日5大宗凈流入,0))),COLORMAGENTA; 附件:
|
|
|
