資金分析優(yōu)化

快樂956 2019-04-15

展開全文

DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'24',0);
DRAWNUMBER(ISLASTBAR,C,C),COLORMAGENTA;
MA5:MA(CLOSE,5),COLORFFFFFF;
MA17:MA(CLOSE,17),COLORYELLOW;
MA55:MA(CLOSE,55),COLORMAGENTA;
MA72:MA(CLOSE,72),COLORGREEN;
MA200:MA(CLOSE,200),COLORE67010;
DRAWKLINE(HIGH, OPEN,LOW, CLOSE);
射線3X: DRAWLINE(L=LLV(L,3),L,H=HHV(H,3),L,0),COLORLIGRAY;
射線5: DRAWLINE(H=HHV(H,5),H,L=LLV(L,5),L,0),COLORLIGRAY;
射線5X: DRAWLINE(L=LLV(L,5),L,H=HHV(H,5),L,0),COLORLIGRAY;
射線7: DRAWLINE(H=HHV(H,7),H,L=LLV(L,7),L,0),COLORE67010;
射線7X: DRAWLINE(L=LLV(L,7),L,H=HHV(H,7),L,0),COLORE67010;
射線10:DRAWLINE(H=HHV(H,10),H,L=LLV(L,10),L,0),COLOR0000FF;
射線10X:DRAWLINE(L=LLV(L,10),L,H=HHV(H,10),L,0),COLOR0000FF;
漲幅大于9.94:=C/REF(C,1)>1.09;
超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;
凈流入億:((超B+大B+中B+小B)+(超S+大S+中S+小S))/100,COLORCYAN,NODRAW;
中單:(中B+中S)/100,COLORLIGRAY,NODRAW;
大宗凈入:=((超B+大B)+(超S+大S))/100;
超大單:=((超B)+(超S))/100;
大單:=((大B)+(大S))/100;
小單:=((小B)+(小S))/100;
大宗進:=((超B)+(大B))/100;
大宗出:=((超S)+(大S))/100;
非大宗進:=((中B)+(小B))/100;
非大宗出:=((中S)+(小S))/100;
資金凈入:=((超B+大B+中B+小B)+(超S+大S+中S+小S))/100;
凈入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;
AA:=CONST(MAX(ABS(凈流入億),MAX(ABS(大宗凈入),MAX(ABS(大宗進),MAX(ABS(大宗出),MAX(ABS(非大宗進),ABS(非大宗出)))))))*3,NODRAW;
DRAWRECTREL(0,CONST(830-(ABS(凈流入億)*500/AA)),30,945,IF(CONST(凈流入億)>0,RGB(250,150,10),RGB(0,100,100)));
DRAWRECTREL(35,CONST(830-(ABS(大宗凈入)*500/AA)),65,945,IF(CONST(大宗凈入)>0,RGB(250,150,10),RGB(0,100,100)));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.000,0.88,0,INTPART(凈流入億)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.034,0.88,0,INTPART(大宗凈入)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.000,1,0,'凈流入'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.034,1,0,'凈大宗'),COLORWHITE;
DRAWRECTREL(77,CONST(830-(ABS(大宗進)*500/AA)),97,945,IF(CONST(大宗進)>0,RGB(255,0,0),RGB(0,0,255)));
DRAWRECTREL(99,CONST(830-(ABS(大宗出)*500/AA)),119,945,IF(CONST(大宗出)<0,RGB(0,0,255),RGB(0,0,255)));
DRAWRECTREL(127,CONST(830-(ABS(非大宗進)*500/AA)),147,945,IF(CONST(非大宗進)>0,RGB(139,0,139),RGB(23,155,255)));
DRAWRECTREL(149,CONST(830-(ABS(非大宗出)*500/AA)),169,945,IF(CONST(非大宗出)<0,RGB(23,155,255),RGB(139,0,139)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.077,1,0,'主力進出'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.128,1,0,'散戶進出'),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.077,0.88,0,INTPART(大宗進)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.097,0.88,0,INTPART(大宗出)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.126,0.88,0,INTPART(非大宗進)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.149,0.88,0,INTPART(非大宗出)),COLORWHITE;
AAB:=CONST(MAX(ABS(超大單),MAX(ABS(大單),MAX(ABS(中單),ABS(小單))))),NODRAW;
DRAWRECTREL(0,CONST(830-(ABS(超大單)*500/AAB))/2,15,460,IF(CONST(超大單)>0,RGB(255,0,255),RGB(23,155,255)));
DRAWRECTREL(17,CONST(830-(ABS(大單)*500/AAB))/2,32,460,IF(CONST(大單)>0,RGB(255,0,255),RGB(23,155,255)));
DRAWRECTREL(34,CONST(830-(ABS(中單)*500/AAB))/2,49,460,IF(CONST(中單)>0,RGB(255,0,255),RGB(23,155,255)));
DRAWRECTREL(51,CONST(830-(ABS(小單)*500/AAB))/2,66,460,IF(CONST(小單)>0,RGB(255,0,255),RGB(23,155,255)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.000,0.460,0,'超大中散'),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.000,0.400,0,INTPART(超大單)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.017,0.400,0,INTPART(大單)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.034,0.400,0,INTPART(中單)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.051,0.400,0,INTPART(小單)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'【資金分析￥百萬元】'),COLORWHITE;
AAC:=CONST(MAX(ABS(凈入5日),ABS(凈入10日))),NODRAW;
DRAWRECTREL(78,CONST(830-(ABS(凈入5日)*500/AAC))/2,110,460,IF(CONST(凈入5日)>0,RGB(250,150,10),RGB(23,133,255)));
DRAWRECTREL(116,CONST(830-(ABS(凈入10日)*500/AAC))/2,148,460,IF(CONST(凈入10日)>0,RGB(250,150,10),RGB(23,133,255)));
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.078,0.400,0,INTPART(凈入5日)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.115,0.400,0,INTPART(凈入10日)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.075,0.460,0,'流入5日流入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(118,0,165,40,IF(CONST(DDX)>0,RGB(255,0,0),RGB(0,50,0)));
DRAWRECTREL(118,45,165,85,IF(CONST(DDY)>0,RGB(255,0,0),RGB(0,50,0)));
DRAWRECTREL(118,90,165,130,IF(CONST(DDZ)>0,RGB(255,0,0),RGB(0,50,0)));
DRAWTEXT_FIX(1,0.123,0.00,0,STRCAT('DDX:',CON2STR(DDX,0))),COLORYELLOW,COLORWHITE;
DRAWTEXT_FIX(1,0.123,0.04,0,STRCAT('DDY:',CON2STR(DDY,0))),COLORYELLOW,COLORWHITE;
DRAWTEXT_FIX(1,0.123,0.09,0,STRCAT('DDZ:',CON2STR(DDZ,0))),COLORYELLOW,COLORWHITE;
AAD:=CONST(MAX(ABS(主力買力度),ABS(主力賣力度)))*4,NODRAW;
DRAWRECTREL(0,515,CONST(ABS(主力買力度)*500/AAD),568,IF(CONST(主力買力度)>0,RGB(139,0,139),RGB(0,255,255)));
DRAWRECTREL(0,570,CONST(ABS(主力賣力度)*500/AAD),623,IF(CONST(主力賣力度)>0,RGB(23,125,255),RGB(0,255,255)));
DRAWTEXT_FIX(1,0,0.516,0,STRCAT('主力買力度:',CON2STR(主力買力度,0))),COLORRED,COLORWHITE;
DRAWTEXT_FIX(1,0,0.574,0,STRCAT('主力賣力度:',CON2STR(主力賣力度,0))),COLORRED,COLORWHITE;
漲幅:=(C-REF(C,1))/REF(C,1)*100,NODRAW;
STICKLINE(漲幅大于9.94,C,O,4,0),COLORRED;
STICKLINE(漲幅<-9.92,C,O,4,0),COLORBLUE;
DRAWTEXT(漲幅大于9.94,L-0.009,'漲停'),COLORRED;
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>1,0.86,0.95,0,'★外盤大1倍以上'),COLORWHITE;
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>2,0.86,0.95,0,'★外盤大2倍以上'),COLORWHITE;
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>3,0.86,0.95,0,'★外盤大3倍以上'),COLORWHITE;
{右上角顯示時間}
N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ8:=STRCAT(STRCAT(N8,Y8), R8);
DRAWTEXT_FIX(C>0,0.88,0,0,SJ8),COLOR00FFFF;