a1:=SUM((TRANSACTVOL(1,3)),0);
a2:=SUM((TRANSACTVOL(2,3)),0);
a3:=(SUM((TRANSACTVOL(1,2)),0)) - a1;
a4:=(SUM((TRANSACTVOL(2,2)),0)) - a2;
a5:=(SUM((TRANSACTVOL(1,1)),0)) - (SUM((TRANSACTVOL(1,2)),0));
a6:=(SUM((TRANSACTVOL(2,1)),0)) - (SUM((TRANSACTVOL(2,2)),0));
a7:=(SUM((TRANSACTVOL(1,0)),0)) - (SUM((TRANSACTVOL(1,1)),0));
a8:=(SUM((TRANSACTVOL(2,0)),0)) - (SUM((TRANSACTVOL(2,1)),0));
a9:=(SUM((TRANSACTVOL(1,0)),0)) + (SUM((TRANSACTVOL(2,0)),0));
a10:=a7 - a8;
a11:=a5 - a6;
a12:=a3 - a4;
a13:=a1 - a2;
a14:=(SUM((TRANSACTVOL(1,2)),0)) - (SUM((TRANSACTVOL(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;
中户筹码:A11,coloRCYAN;
大户筹码:A12,linethick2,colorYellow;
机构筹码:A13,linethick2,ColorFF00ff;
主力筹码:A14,linethick2,colorRed;
a22:=(100 * a2) / a9;
a23:=(100 * (SUM((TRANSACTVOL(1,2)),0))) / a9;
a24:=(100 * (SUM((TRANSACTVOL(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((TRANSACTVOL(1,2)),0)));
a39:=((SUM((TRANSACTVOL(2,2)),0)));
a40:=(a10);
a41:=500 / (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);
DRAWRECTREL(50,a49,70,600,250),colorYellow;
DRAWRECTREL(70,a50,90,600,9213440),colorYellow;
DRAWRECTREL(90,a53,110,600,(IF((a10 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(160,a47,180,600,250),colorYellow;
DRAWRECTREL(180,a48,200,600,9213440),colorYellow;
DRAWRECTREL(200,a54,220,600,(IF((a11 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(270,a45,290,600,250),colorYellow;
DRAWRECTREL(290,a46,310,600,9213440),colorYellow;
DRAWRECTREL(310,a55,330,600,(IF((a12 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(380,a43,400,600,250),colorYellow;
DRAWRECTREL(400,a44,420,600,9213440),colorYellow;
DRAWRECTREL(420,a56,440,600,(IF((a13 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(925,a51,945,600,255),colorYellow;
DRAWRECTREL(945,a52,965,600,9213440),colorYellow;
DRAWRECTREL(965,a57,985,600,(IF((a14 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(0,600,445,604,255),colorWhite;
DRAWTEXTREL(18,450,'散户'),ColorDDFFFF;
DRAWTEXTREL(125,450,'中户'),ColorDDFFFF;
DRAWTEXTREL(235,450,'大户'),ColorDDFFFF;
DRAWTEXTREL(345,450,'机构'),ColorDDFFFF;
DRAWTEXTREL(888,450,'主力'),ColorDDFFFF;
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)+'%'),colorWhite; 
|
