发一个分时的:用"Topview@RL2"编的FS四条线:(当然日线也可以用)
{FS四条线----"Topview@RL2"}
DRAWRECTABS(0,0 ,1300 ,999 , rgb(0,0,10)),LAYER7;
a1:=SUM(("Topview@RL2"(0,13,1)),0);
a2:=SUM(("Topview@RL2"(0,23,1)),0);
a3:=(SUM(("Topview@RL2"(0,12,1)),0)) - a1;
a4:=(SUM(("Topview@RL2"(0,22,1)),0)) - a2;
a5:=(SUM(("Topview@RL2"(0,11,1)),0)) - (SUM(("Topview@RL2"(0,12,1)),0));
a6:=(SUM(("Topview@RL2"(0,21,1)),0)) - (SUM(("Topview@RL2"(0,22,1)),0));
a7:=(SUM(("Topview@RL2"(0,10,1)),0)) - (SUM(("Topview@RL2"(0,11,1)),0));
a8:=(SUM(("Topview@RL2"(0,20,1)),0)) - (SUM(("Topview@RL2"(0,21,1)),0));
a9:=(SUM(("Topview@RL2"(0,10,1)),0)) + (SUM(("Topview@RL2"(0,20,1)),0));
a10:=a7 - a8;
a11:=a5 - a6;
a12:=a3 - a4;
a13:=a1 - a2;
a14:=(SUM(("Topview@RL2"(0,12,1)),0)) - (SUM(("Topview@RL2"(0,22,1)),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;
小股民筹码:A10,linethick2,colorGreen,LAYER1;
中户筹码:A11,linethick1,colorGreen,LAYER1,DOTLINE;
大户筹码:A12,linethick3,colorYellow,LAYER1;
机构筹码:A13,linethick3,ColorFF9900,LAYER1;
主力筹码:A14,linethick2,colorRed,LAYER1;
FILLRGN(小股民筹码,0),Color001a00,LAYER6;;
FILLRGN(主力筹码,0),Color000C30,LAYER6;;
a22:=(100 * a2) / a9;
a23:=(100 * (SUM(("Topview@RL2"(0,12,1)),0))) / a9;
a24:=(100 * (SUM(("Topview@RL2"(0,22,1)),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(("Topview@RL2"(0,12,1)),0)));
a39:=((SUM(("Topview@RL2"(0,22,1)),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,65,600,180),color0000FF,LINETHICK2;
DRAWRECTREL(70,a50,85,600,9213440),colorYellow;
DRAWRECTREL(90,a53,105,600,(IF((a10 >= 0),3289855,8584960))),colorYellow,LINETHICK2;
DRAWRECTREL(160,a47,175,600,180),color0000FF,LINETHICK2;
DRAWRECTREL(180,a48,195,600,9213440),colorYellow;
DRAWRECTREL(200,a54,215,600,(IF((a11 >= 0),3289855,8584960))),colorYellow,LINETHICK2;
DRAWRECTREL(270,a45,285,600,180),color0000FF,LINETHICK2;
DRAWRECTREL(290,a46,305,600,9213440),color00FF00,LINETHICK2;
DRAWRECTREL(310,a55,325,600,(IF((a12 >= 0),3289855,8584960))),colorYellow,LINETHICK2;
DRAWRECTREL(380,a43,395,600,180),color0000FF,LINETHICK2;
DRAWRECTREL(400,a44,415,600,9213440),color00FF00,LINETHICK2;
DRAWRECTREL(420,a56,435,600,(IF((a13 >= 0),3289855,8584960))),colorYellow,LINETHICK2;
DRAWRECTREL(925,a51,940,600,180),color0000FF,LINETHICK2;
DRAWRECTREL(945,a52,960,600,9213440),color00FF00,LINETHICK2;
DRAWRECTREL(965,a57,980,600,(IF((a14 >= 0),3289855,8584960))),colorYellow,LINETHICK2;
DRAWRECTREL(30,600,560,604,255),colorWhite;
DRAWRECTREL(910,600,990,604,255),colorWhite;
DRAWTEXTREL(90,250,'小股民'),Color00FF00,LINETHICK4;
DRAWTEXTREL(90,300,''+NUMTOSTRN(a25,2)+'%'),Color11FFFF,LINETHICK4;
DRAWTEXTREL(200,250,'中户'),ColorDDFF00,LINETHICK4;
DRAWTEXTREL(200,300,''+NUMTOSTRN(a26,2)+'%'),Color11FFFF,LINETHICK4;
DRAWTEXTREL(310,250,'大户'),Color00FFFF,LINETHICK4;
DRAWTEXTREL(310,300,''+NUMTOSTRN(a27,2)+'%'),Color000FFF,LINETHICK4;
DRAWTEXTREL(420,250,'机构'),ColorFF9900,LINETHICK4;
DRAWTEXTREL(420,300,''+NUMTOSTRN(a28,2)+'%'),Color00FFFF,LINETHICK4;
DRAWTEXTREL(965,250,'主力'),Color0000FF,LINETHICK4;
DRAWTEXTREL(965,300,''+NUMTOSTRN(a29,2)+'%'),Color00FFFF,LINETHICK4;
DRAWTEXTABS(2,5,'机构买:'+NUMTOSTRN(a21,1)+'%'+' 大户买:'+NUMTOSTRN(a19,1)+'%'+' 中户买:'+NUMTOSTRN(a17,1)+'%'+' 小股民买:'+NUMTOSTRN(a15,1)+'%'),colorRed;
DRAWTEXTABS(2,20,'机构卖:'+NUMTOSTRN(a22,1)+'%'+' 大户卖:'+NUMTOSTRN(a20,1)+'%'+' 中户卖:'+NUMTOSTRN(a18,1)+'%'+' 小股民卖:'+NUMTOSTRN(a16,1)+'%'),colorGreen;
DRAWTEXTABS(0,40,' 买+卖(>10万):'+NUMTOSTRN(a21+a22+a20+a19,0)+'%'),color0000FF,LINETHICK5;
DRAWTEXTABS(0,60,' 买+卖(<10万):'+NUMTOSTRN(a18+a17+a16+a15,0)+'%'),color00FFff,LINETHICK5;
 |
