以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  求移植一个文华指标  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=175494)

--  作者:casey
--  发布时间:2020/4/13 9:53:16
--  求移植一个文华指标
文华的多空量比指标:
M:=DUALVOLUME(\'M\');
N:=DUALVOLUME(\'N\');
DRAWCOLUMNCHART(N,SCALE>=0.5,M>=0);
--  作者:FireScript
--  发布时间:2020/4/13 10:13:01
--  
 没有直接的函数。过程稍微有点麻烦。另外就是没办法跨日。只日内统计。
先新建一个指标AX:
VARIABLE:by:=0,sy:=0;
if TODAYBAR=1 then
begin
by:=0;
sy:=0;     
end
sy:=sy+BUYVOL;
by:=by+SELLVOL;
x1:sy;
x2:by;



然后在当前指标下跨周期调用上面的指标:
INPUT:N(5,1,500,1);
by:STKINDI(\'\',\'AX1.x1\',0,0,0),NODRAW;
sy:STKINDI(\'\',\'AX1.x2\',0,0,0),NODRAW;

cby:if(TODAYBAR=1,by, by-ref(by,1)),NODRAW;//当前周期主买
csy:if(TODAYBAR=1,sy,sy-ref(sy,1)),NODRAW;//当前周期主卖

差值:cby-csy;//当前周期主买主卖之差
均值:sum(差值,N)/N;//n周期差值的均值


--  作者:casey
--  发布时间:2020/4/13 10:24:11
--  
好的谢谢老师