DRAWTEXTREL(0,40,'('+STKLABEL+')'+STKNAME+' '+YEAR+'年'+MONTH+'月'+DAY+'日'),ColorFFFF80;
n:=5;
ZLLR:=AMOUNT*(DYNAINFO(95)+DYNAINFO(94))/10000;
ZLLC:=AMOUNT*(DYNAINFO(98)+DYNAINFO(97))/10000;
主净:=SUM(ZLLR-ZLLC,0);
主现:=SUM(ZLLR-ZLLC,N);{N分钟}
TDLR:=AMOUNT*DYNAINFO(95)/10000;
TDLC:=AMOUNT*DYNAINFO(98)/10000;
超净:=SUM(TDLR-TDLC,0);
超现:=SUM(TDLR-TDLC,N);{N分钟}
DDLR:=AMOUNT*DYNAINFO(94)/10000;
DDLC:=AMOUNT*DYNAINFO(97)/10000;
大净:=SUM(DDLR-DDLC,0);
大现:=SUM(DDLR-DDLC,N);{N分钟}
ZDLR:=AMOUNT*DYNAINFO(93)/10000;
ZDLC:=AMOUNT*DYNAINFO(96)/10000;
中净:=SUM(ZDLR-ZDLC,0);
中现:=SUM(ZDLR-ZDLC,N);{N分钟}
XDLR:=(AMOUNT-AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93)))/10000;
XDLC:=(AMOUNT-AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96)))/10000;
散净:=SUM(XDLR-XDLC,0);
散现:=SUM(XDLR-XDLC,N);{N分钟}
主力买:=(ORDERVOL(1,2)/CAPITAL)*100;
主力卖:=(ORDERVOL(2,2)/CAPITAL)*100;
主力净买:=sum((主力买-主力卖),0);
超大买:=(ORDERVOL(1,3)/CAPITAL)*100;
超大卖:=(ORDERVOL(2,3)/CAPITAL)*100;
超大净买:=sum((超大买-超大卖),0);
大户买:=((ORDERVOL(1,2)-ORDERVOL(1,3))/CAPITAL)*100;
大户卖:=((ORDERVOL(2,2)-ORDERVOL(2,3))/CAPITAL)*100;
大户净买:=sum((大户买-大户卖),0);
中户买:=(ORDERVOL(1,1)/CAPITAL-ORDERVOL(2,1)/CAPITAL)*100;
中户卖:=(ORDERVOL(1,2)/CAPITAL-ORDERVOL(2,2)/CAPITAL)*100;
中户净买:=sum((中户买-中户卖),0);
小股民买:=(1-ORDERVOL(1,1)/CAPITAL)*100;
小股民卖:=(1-ORDERVOL(2,1)/CAPITAL)*100;
小股民净买:=sum((小股民买-小股民卖),0);
主力:主力净买;
超大:超大净买;
大户:大户净买;
中户:中户净买;
小股民:小股民净买;
a1:=SUM((ORDERVOL(1,3)),0);
a2:=SUM((ORDERVOL(2,3)),0);
a3:=(SUM((ORDERVOL(1,2)),0)) - a1;
a4:=(SUM((ORDERVOL(2,2)),0)) - a2;
a5:=(SUM((ORDERVOL(1,1)),0)) - (SUM((ORDERVOL(1,2)),0));
a6:=(SUM((ORDERVOL(2,1)),0)) - (SUM((ORDERVOL(2,2)),0));
a7:=(SUM((ORDERVOL(1,0)),0)) - (SUM((ORDERVOL(1,1)),0));
a8:=(SUM((ORDERVOL(2,0)),0)) - (SUM((ORDERVOL(2,1)),0));
a9:=(SUM((ORDERVOL(1,0)),0)) + (SUM((ORDERVOL(2,0)),0));
a10:=a7 - a8;
a11:=a5 - a6;
a12:=a3 - a4;
a13:=a1 - a2;
a14:=(SUM((ORDERVOL(1,2)),0)) - (SUM((ORDERVOL(2,2)),0));
a15:=(100 * a7) / a9;
a16:=(100 * a8) / a9;
a17:=(100 * a5) / a9;
a18:=(100 * a6) / a9;
a19:=(100 * a3) / a9;
a20:=(100 * a4) / a9;
a21:=(100 * a1) / a9;
主筹:a14,linethick2,colorRed;
机筹:A13,linethick2,ColorFF0000;
大筹:A12,linethick2,colorYellow;
中筹:A11,linethick2,ColorWhite;
散筹:A10,linethick2,ColorGreen;
a22:=(100 * a2) / a9;
a23:=(100 * (SUM((ORDERVOL(1,2)),0))) / a9;
a24:=(100 * (SUM((ORDERVOL(2,2)),0))) / a9;
a25:=(100 * a10) / a9;
a26:=(100 * a11) / a9;
a27:=(100 * a12) / a9;
a28:=(100 * a13) / a9;
a29:=(100 * a14) / a9;
a30:=(a1);
a31:=(a2);
a32:=(a3);
a33:=(a4);
a34:=(a5);
a35:=(a6);
a36:=(a7);
a37:=(a8);
a38:=((SUM((ORDERVOL(1,2)),0)));
a39:=((SUM((ORDERVOL(2,2)),0)));
a40:=(a10);
a41:=550/ (MAX(a30,a31,a32,a33,a34,a35,a36,a37,a40,中筹,大筹,机筹));
a42:=550 / (MAX(a38,a39,主筹));
a43:=600 - (a30 * a41);
a44:=600 - (a31 * a41);
a45:=600 - (a32 * a41);
a46:=600 - (a33 * a41);
a47:=600 - (a34 * a41);
a48:=600 - (a35 * a41);
a49:=600 - (a36 * a41);
a50:=600 - (a37 * a41);
a51:=600 - (a38 * a42);
a52:=600 - (a39 * a42);
a53:=600 - (a40 * a41);
a54:=600 - (中筹 * a41);
a55:=600 - (大筹 * a41);
a56:=600 - (机筹 * a41);
a57:=600 - (主筹* a42);
DRAWTEXTREL(30,380,'散'),ColorWhite;
DRAWTEXTREL(30,480,'户'),ColorWhite;
DRAWRECTREL(50,a49,68,600,RGB(200,0,0)),ColorWhite;
DRAWRECTREL(68,a50,86,600,RGB(0,200,0)),ColorWhite;
DRAWRECTREL(86,a53,104,600,(IF((a10 >= 0),RGB(200,0,0),RGB(0,200,0)))),ColorWhite;
DRAWTEXTREL(130,380,'中'),ColorDDFFFF;
DRAWTEXTREL(130,480,'户'),ColorDDFFFF;
DRAWRECTREL(150,a47,168,600,RGB(200,0,0)),ColorWhite;
DRAWRECTREL(168,a48,186,600,RGB(0,200,0)),ColorWhite;
DRAWRECTREL(186,a54,204,600,(IF((a11 >= 0),RGB(200,0,0),RGB(0,200,0)))),ColorWhite;
DRAWTEXTREL(230,380,'大'),ColorDDFFFF;
DRAWTEXTREL(230,480,'户'),ColorDDFFFF;
DRAWRECTREL(250,a45,268,600,RGB(200,0,0)),ColorWhite;
DRAWRECTREL(268,a46,286,600,RGB(0,200,0)),ColorWhite;
DRAWRECTREL(286,a55,304,600,(IF((a12 >= 0),RGB(200,0,0),RGB(0,200,0)))),ColorWhite;
DRAWTEXTREL(330,380,'机'),ColorDDFFFF;
DRAWTEXTREL(330,480,'构'),ColorDDFFFF;
DRAWRECTREL(350,a43,368,600,RGB(200,0,0)),ColorWhite;
DRAWRECTREL(368,a44,386,600,RGB(0,200,0)),ColorWhite;
DRAWRECTREL(386,a56,404,600,(IF((a13 >= 0),RGB(200,0,0),RGB(0,200,0)))),ColorWhite;
DRAWTEXTREL(448,380,'主'),ColorDDFFFF;
DRAWTEXTREL(448,480,'力'),ColorDDFFFF;
DRAWRECTREL(465,a51,483,600,RGB(200,0,0)),ColorWhite;
DRAWRECTREL(483,a52,501,600,RGB(0,200,0)),ColorWhite;
DRAWRECTREL(501,a57,519,600,(IF((a14 >= 0),RGB(200,0,0),RGB(0,200,0)))),ColorWhite;
DRAWRECTREL(5,600,404,604,0),colorWhite;
DRAWRECTREL(910,0,1000,100,rgb(255,0,0)),COLORcyan;
DRAWRECTREL(910,100,1000,200,rgb(1,1,1)),COLORcyan;
DRAWTEXTREL(910,0 ,'主力:'),ColorWhite;
STR1:=' '+NUMTOSTRN(主净,2);
STR6:=''+NUMTOSTRN(主力,2)+'%';
DRAWTEXTREL(950,0,STR6),ColorWhite;
DRAWTEXTREL(920,100,STR1),ColorWhite;
DRAWRECTREL(910,200,1000,300,rgb(0,0,255)),COLORcyan;
DRAWRECTREL(910,300,1000,400,rgb(1,1,1)),COLORcyan;
DRAWTEXTREL(910 ,200,'超大:'),ColorWhite;
STR2:=' '+NUMTOSTRN(超净,2);
STR7:=''+NUMTOSTRN(超大,2)+'%';
DRAWTEXTREL(950,200,STR7),ColorWhite;
DRAWTEXTREL(920,300,STR2),ColorWhite;
DRAWRECTREL(910,400,1000,500,rgb(255,255,0)),COLORcyan;
DRAWRECTREL(910,500,1000,600,rgb(1,1,1)),COLORcyan;
DRAWTEXTREL(910,400 ,'大户:'),ColorBlack;
STR3:=' '+NUMTOSTRN(大净,2);
STR8:=''+NUMTOSTRN(大户,2)+'%';
DRAWTEXTREL(950,400,STR8),ColorBlack;
DRAWTEXTREL(920,500,STR3),ColorWhite;
DRAWRECTREL(910,600,1000,700,rgb(255,255,250)),COLORcyan;
DRAWRECTREL(910,700,1000,800,rgb(1,1,1)),COLORcyan;
DRAWTEXTREL(910,600,'中户:'),ColorBlack;
STR4:=' '+NUMTOSTRN(中净,2);
STR9:=''+NUMTOSTRN(中户,2)+'%';
DRAWTEXTREL(950,600,STR9),ColorBlack;
DRAWTEXTREL(920,700,STR4),ColorWhite;
DRAWRECTREL(910,800,1000,900,rgb(0,255,0)),COLORcyan;
DRAWRECTREL(910,900,1000,1000,rgb(1,1,1)),COLORcyan;
DRAWTEXTREL(910,800,'小股民:'),ColorBlack;
STR5:=' '+NUMTOSTRN(散净,2);
STR10:=''+NUMTOSTRN(小股民净买,2)+'%';
DRAWTEXTREL(950,800,STR10),ColorBlack;
DRAWTEXTREL(920,900,STR5),ColorWhite;
图中线条颜色与后面的资金的颜色相对应
|