%> 一个很简单但比较准的指标主力机构差。_股票教程网
一个很简单但比较准的指标主力机构差。 4680

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;

{股票教程网-http://gwgz.net/承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}