大智慧分时资金正版数据曲线、TOP终结副图源码

分时资金曲线公式源码如下：

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);{股海网提供：www.guhai.com.cn}
 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;
 

分时TOP柱状图源码如下（需在分时下切子窗口新建公式并将下面源码放入即可）：
 
XDB:=1-(AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93)))/10000;
 XDS:=1-(AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96)))/10000;
 XDLR:=XDB;{股海网提供：www.guhai.com.cn}
 XDLC:=XDS;
 XDJM:=SUM(XDLR-XDLC,0);
 ZDLR:=AMOUNT*DYNAINFO(93)/10000;
 ZDLC:=AMOUNT*DYNAINFO(96)/10000;
 ZDJM:=SUM(ZDLR-ZDLC,0);
 DDLR:=AMOUNT*DYNAINFO(94)/10000;
 DDLC:=AMOUNT*DYNAINFO(97)/10000;
 DDJM:=SUM(DDLR-DDLC,0);
 TDLR:=AMOUNT*DYNAINFO(95)/10000;
 TDLC:=AMOUNT*DYNAINFO(98)/10000;
 TDJM:=SUM(TDLR-TDLC,0);
 ZLJM:=DDJM+TDJM;
 主力:ZLJM,COLOR3D;
 散户:XDJM,COLOR3D;
 中户:ZDJM,COLOR3D;
 大户:DDJM,COLOR3D;
 超大:TDJM,COLOR3D;