- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-9-8
|
|

楼主 |
发表于 2007-11-9 09:08
|
显示全部楼层
配合赢富数据的公式(只在飞狐上显示)——转贴
本人常用的是飞狐软件,暂先只发布飞狐的公式。
因TV是迟滞两日的,特将DDE当日大单、特大单买卖增量数据整合进去,整合成新机构线,以便看盘。.
tv 后面的仓位数据是由DDE中的大买、特买增量整合的。
红绿柱为主力增仓或减仓的图示;
赢富分类
换手:v/FINANCE(7),linethick0;
机构:selfdata('TW机构'),colormagenta,linethick0;
机变:=机构-ref(机构,1);
散户:selfdata('TW散户'),colorblue,linethick0;
中户:selfdata('TW中户'),colorcyan,linethick0;
大户:selfdata('TW大户'),coloryellow,linethick0;
法人:selfdata('TW法人'),colorbbbbbb,linethick0;
大买_L2:=selfdata('大单买'),colordddddd,linethick0;
大卖_L2:=selfdata('大单卖'),colordddddd,linethick0;
特买_L2:=selfdata('特大买'),colordddddd,linethick0;
特卖_L2:=selfdata('特大卖'),colordddddd,linethick0;
大增:(大买_L2-大卖_L2)/100*换手,linethick0;
特增:(特买_L2-特卖_L2)/100*换手,linethick0;
增资_L2:=大增+特增,linethick0;
zq:=BARSLAST(机变<>0),linethick0;
新机构:if(zq>0,机构+sum(增资_L2,zq),机构),linethick0;
新机变:if(zq>0,新机构-ref(新机构,1),机变),linethick0;
PARTLINE(新机构>0,新机构),color888888,linethick2;
STICKLINE(新机变>0,新机变+新机构,新机构,3,0),colorred;
STICKLINE(新机变<0,新机变+新机构,新机构,3,0),colorgreen;
gz:=hhv(新机构,50);
dz:=llv(新机构,50);
bl:=(gz-dz)/100;
dw:=dz+bl*20;
TD:=Backset(ISLASTBAR,1);
VERTLINE(C>0 AND ISLASTBAR),linethick3,Color00007D,SHIFT1;
STICKLINE(td,dw*1.001,dw,160,0),Color000090,shift9;
STICKLINE(td,散户*bl+dw,dw,11,0),ColorB50000,shift3;
STICKLINE(td,散户*bl+dw,dw,7,0),ColorFF8500,shift3;
STICKLINE(td,散户*bl+dw,dw,2,0),ColorFFDEC7,shift3;
STICKLINE(td,中户*bl+dw,dw,11,0),Color00AB0E,shift6;
STICKLINE(td,中户*bl+dw,dw,7,0),Color00cC88,shift6;
STICKLINE(td,中户*bl+dw,dw,2,0),Color15FFE5,shift6;
STICKLINE(td,大户*bl+dw,dw,11,0),Color037FA9,shift9;
STICKLINE(td,大户*bl+dw,dw,7,0),Color03ABDE,shift9;
STICKLINE(td,大户*bl+dw,dw,2,0),Coloryellow,shift9;
STICKLINE(td,法人*bl+dw,dw,11,0),Color0300A8,shift12;
STICKLINE(td,法人*bl+dw,dw,7,0),Color036CE5,shift12;
STICKLINE(td,法人*bl+dw,dw,2,0),Color03E9FF,shift12;
STICKLINE(td,机构*bl+dw,dw,11,0),Color9700AF,shift15;
STICKLINE(td,机构*bl+dw,dw,7,0),ColorC130EE,shift15;
STICKLINE(td,机构*bl+dw,dw,2,0),ColorC1E5EE,shift15;
DRAWTEXT(td,dw*0.99,'散户'),ColorFF8500,shift2;
DRAWTEXT(td,dw*0.99,'中户'),Color00ECAB,shift5;
DRAWTEXT(td,dw*0.99,'大户'),Color03ABDE,shift8;
DRAWTEXT(td,dw*0.99,'法人'),Colorred,shift11;
DRAWTEXT(td,dw*0.99,'机构'),ColorC130EE,shift14;
DRAWTEXT(td,1.8*gz*bl+dw,numtostr(散户,1)),ColorFF8500 ,shift2;
DRAWTEXT(td,1.8*gz*bl+dw,numtostr(中户,1)),Color00ECAB ,shift5;
DRAWTEXT(td,1.8*gz*bl+dw,numtostr(大户,1)),Color03ABDE ,shift8;
DRAWTEXT(td,1.8*gz*bl+dw,numtostr(法人,1)),Colorred ,shift11;
DRAWTEXT(td,1.8*gz*bl+dw,numtostr(机构,1)),ColorC130EE ,shift14; |
|
|