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

阅读作者：公式网时间 2012-05-27 00:51:41 大智慧公式

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

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分钟}{公式在线提供：www.gszx.com.cn}
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;