欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请老师把文华的转换一下,谢谢了

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2948人关注过本帖树形打印复制链接

主题:请老师把文华的转换一下,谢谢了

帅哥哟,离线,有人找我吗?
wenarm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:26632 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2018/3/28 0:00:48    Post IP:180.170.228.85[显示全部帖子]

A1:=(REF(O,1) + REF(C,1)) / 2;
A2:=(H + L + C) / 3;
A3:=MAX(MAX(A1,A2),H);
A4:=MIN(MIN(A1,A2),L);
A5:=IF(A1 < A2,A3 - A4 + A2 - A1,A3 - A4);
A6:=IF(A1 > A2,A3 - A4 + A1 - A2,A3 - A4);
A7:=A5 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
A8:=A6 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
主力:(A7 - A8) * 25000,NODRAW;
LOWV:=LLV(LOW,9);
HIGHV:=HHV(HIGH,9);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:EMA(RSV,3);
D:MA(K,3);
XA:ISUP;
XB:主力<0;
XC:K<D;
if XA&&XB&&XC=1 then begin
 //SPK;
 sell(holding>0,1,MARKET);
 buyshort(holding=0,1,MARKET);
end
if (C>=ENTERPRICE+8*MINDIFF or C<=ENTERPRICE-10*MINDIFF) and holding<0  then begin
 sellshort(1,1,MARKET);
end
YA:ISDOWN;
YB:主力>0;
YC:K>D;
if YA&&YB&&YC=1 then begin
 sellshort(holding<0,1,MARKET);
 buy(holding=0,1,MARKET);
end
if (C<=ENTERPRICE-8*MINDIFF or  C>=ENTERPRICE+10*MINDIFF) and holding>0 then begin
 sell(1,1,MARKET);
end


编程无捷径,技巧靠积累。
 回到顶部