- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-2-3
|
|
原帖由 花落庭前 于 2008-10-7 13:42 发表 
请教IOLO兄,如何把分笔指标改为分时指标?
谢谢.
其实我有些搞不清分时分笔。哈哈哈哈。
抱歉,帮不上忙。
-----------------
分时看盘指标优化显示版:
调整了颜色,固定了文字,现在有看盘价值了。哈哈。
-----------------------
{a1:10 a2:100}
现价:=c;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
{
Var5:=IF(现价>=Var2-Var4,VOL,IF(现价<Var2-Var4 AND 现价>Var3+Var4,BUYVOL,0));
Var6:=IF(现价<=Var3+Var4,VOL,IF(现价<Var2-Var4 AND 现价>Var3+Var4,SELLVOL,0));
}
var5:=buyvol;
var6:=sellvol;
x1:=a1*10000;
x2:=a2*10000;
tdb:=IF(AMOUNT>=x2,Var5,0);
特大买量:=sum(tdb,0);
tds:=IF(AMOUNT>=x2,Var6,0);
特大卖量:=sum(tds,0);
db:=IF(AMOUNT>=x1 and amount<x2,Var5,0);
ds:=IF(AMOUNT>=x1 and amount<x2,Var6,0);
大买量:=SUM(db,0);
大卖量:=SUM(ds,0);
小买量:=SUM(IF(AMOUNT<x1,Var5,0),0);
小卖量:=SUM(IF(AMOUNT<x1,Var6,0),0);
小量差:=小买量-小卖量;
大量差:=大买量-大卖量;
特大量差:=特大买量-特大卖量;
大上差:大量差+特大量差,COLORMAGENTA,linethick4,colorstick;
小量差,linethick1,colorgreen;
大量差,linethick2,colorwhite;
特大量差,linethick3,coloryellow;
大上差额:大上差*c/100,PRECIS0,linethick0;
大上比:大上差/capital*100,linethick0;
总量:=sum(vol,0);
强度:大上差/总量*40,linethick0;
0,colorblue,dotline;
sb:=小买量/总量*100;
ss:=小卖量/总量*100;
bb:=大买量/总量*100;
bs:=大卖量/总量*100;
lb:=特大买量/总量*100;
ls:=特大卖量/总量*100;
DRAWTEXTABS(10 ,10 ,'大上比% '+大上比),colorwhite;
DRAWTEXTABS(10 ,80 ,'小买%'+sb),colorblue;
DRAWTEXTABS(10 ,95 ,'小卖%'+ss),colorblue;
DRAWTEXTABS(90 ,80 ,'大买%'+bb),colorblue;
DRAWTEXTABS(90 ,95 ,'大卖%'+bs),colorblue;
DRAWTEXTABS(170 ,80 ,'特买%'+lb),colorblue;
DRAWTEXTABS(170 ,95 ,'特卖%'+ls),colorblue;
DRAWRECTABS(40 ,78-sb , 50 ,78 ,RGB(255,0,0));
DRAWRECTABS(60 ,78-ss, 70 ,78 ,RGB(0,255,0));
DRAWRECTABS(110 ,78-bb , 120 ,78 ,RGB(255,0,0));
DRAWRECTABS(130 ,78-bs , 140 ,78 ,RGB(0,255,0));
DRAWRECTABS(190 ,78-lb , 200 ,78 ,RGB(255,0,0));
DRAWRECTABS(210 ,78-ls , 220 ,78 ,RGB(0,255,0));
{-------------看各价位上的成交累计------------}
DRAWTEXTABS(250 ,130 ,'-10-9-8-7-6-5-4-3-2-1 0+1+2+3+4+5+6+7+8+9+10'),COLORblue;
昨收:=DYNAINFO(3);
涨幅:=(c/昨收-1)*100;
n9:sum(if(涨幅<=-9,vol,0),0)/总量;
n8:sum(if(涨幅<=-8 and 涨幅>-9,vol,0),0)/总量;
n7:sum(if(涨幅<=-7 and 涨幅>-8,vol,0),0)/总量;
n6:sum(if(涨幅<=-6 and 涨幅>-7,vol,0),0)/总量;
n5:sum(if(涨幅<=-5 and 涨幅>-6,vol,0),0)/总量;
n4:sum(if(涨幅<=-4 and 涨幅>-5,vol,0),0)/总量;
n3:sum(if(涨幅<=-3 and 涨幅>-4,vol,0),0)/总量;
n2:sum(if(涨幅<=-2 and 涨幅>-3,vol,0),0)/总量;
n1:sum(if(涨幅<=-1 and 涨幅>-2,vol,0),0)/总量;
b0:sum(if(涨幅<=0 and 涨幅>-1,vol,0),0)/总量;
p1:sum(if(涨幅<=1 and 涨幅>0,vol,0),0)/总量;
p2:sum(if(涨幅<=2 and 涨幅>1,vol,0),0)/总量;
p3:sum(if(涨幅<=3 and 涨幅>2,vol,0),0)/总量;
p4:sum(if(涨幅<=4 and 涨幅>3,vol,0),0)/总量;
p5:sum(if(涨幅<=5 and 涨幅>4,vol,0),0)/总量;
p6:sum(if(涨幅<=6 and 涨幅>5,vol,0),0)/总量;
p7:sum(if(涨幅<=7 and 涨幅>6,vol,0),0)/总量;
p8:sum(if(涨幅<=8 and 涨幅>7,vol,0),0)/总量;
p9:sum(if(涨幅<=9 and 涨幅>8,vol,0),0)/总量;
p10:sum(if(涨幅<=10 and 涨幅>9,vol,0),0)/总量;
DRAWRECTABS(265 ,125-n9*200, 275 ,125 ,RGB(0,0,255));
DRAWRECTABS(277 ,125-n8*200, 287 ,125 ,RGB(0,0,255));
DRAWRECTABS(290 ,125-n7*200, 300 ,125 ,RGB(0,0,255));
DRAWRECTABS(302 ,125-n6*200, 312 ,125 ,RGB(0,0,255));
DRAWRECTABS(315 ,125-n5*200, 325 ,125 ,RGB(0,0,255));
DRAWRECTABS(327 ,125-n4*200, 337 ,125 ,RGB(0,0,255));
DRAWRECTABS(340 ,125-n3*200, 350 ,125 ,RGB(0,0,255));
DRAWRECTABS(352 ,125-n2*200, 362 ,125 ,RGB(0,0,255));
DRAWRECTABS(365 ,125-n1*200, 375 ,125 ,RGB(0,0,255));
DRAWRECTABS(377 ,125-b0*200, 387 ,125 ,RGB(0,0,255));
DRAWRECTABS(390 ,125-p1*200, 400 ,125 ,RGB(255,0,0));
DRAWRECTABS(402 ,125-p2*200, 412 ,125 ,RGB(255,0,0));
DRAWRECTABS(415 ,125-p3*200, 425 ,125 ,RGB(255,0,0));
DRAWRECTABS(427 ,125-p4*200, 437 ,125 ,RGB(255,0,0));
DRAWRECTABS(440 ,125-p5*200, 450 ,125 ,RGB(255,0,0));
DRAWRECTABS(452 ,125-p6*200, 462 ,125 ,RGB(255,0,0));
DRAWRECTABS(465 ,125-p7*200, 475 ,125 ,RGB(255,0,0));
DRAWRECTABS(477 ,125-p8*200, 487 ,125 ,RGB(255,0,0));
DRAWRECTABS(490 ,125-p9*200, 500 ,125 ,RGB(255,0,0));
DRAWRECTABS(502 ,125-p10*200, 512 ,125 ,RGB(255,0,0));
[ 本帖最后由 iolo 于 2008-10-7 15:28 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|
|