萃富投资（http://www.cuiv.com)收集：

input:p1(60),p2(5),p3(10);
variable:资金=0;
资金:(ordervol(1,2)-ordervol(2,2))/capital*100;
主力力度:SUM(资金,0);
主力单数:sum(ORDERNUM(2,0)-ORDERNUM(1,0),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;

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);
DRAWTEXTREL(2,720,'机买:'+NUMTOSTR(a21)+'%'+' 大买:'+NUMTOSTR(a19)+'%'+' 中买:'+NUMTOSTR(a17)+'%'+' 散买:'+NUMTOSTR(a15)+'%'),colorRed;
DRAWTEXTREL(2,790,'机卖:'+NUMTOSTR(a22)+'%'+' 大卖:'+NUMTOSTR(a20)+'%'+' 中卖:'+NUMTOSTR(a18)+'%'+' 散卖:'+NUMTOSTR(a16)+'%'),colorGreen;
DRAWTEXTREL(2,860,'机差:'+NUMTOSTR(a28)+'%'+' 大差:'+NUMTOSTR(a27)+'%'+' 中差:'+NUMTOSTR(a26)+'%'+' 散差:'+NUMTOSTR(a25)+'%'),colorWhite;
DRAWTEXTREL(2,930,'主差:'+NUMTOSTR(a29)+'%'),colorRed;