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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 关于跨周期

   

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


  共有7142人关注过本帖平板打印复制链接

主题:关于跨周期

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


加好友 发短信
等级:金字塔养老院 帖子:1323 积分:6764 威望:0 精华:0 注册:2011/6/14 17:27:11
  发帖心情 Post By:2013/3/25 13:40:18    Post IP:58.246.57.26[只看该作者]

指标A 
MA5:=MA(C,5);
MA20:=MA(C,20);

公式B
input:inb(20,1,500,1),outb(10,1,500,1),risk(0,0,10,0.1); 
//和风版海龟源码 
variable:times=0,i=0; 
rn:=ema(ref(tr,1),20); 
X1:=STKINDI('','A.MA5',0,6,-1);
X2:=STKINDI('','A.MA20',0,6,-1);
A:=valuewhen(holding=0,rn); 
rh:=ref(h,1); 
rl:=ref(l,1); 
h1:hhv(rh,inb); 
h2:hhv(rh,outb),linedot; 
l1:llv(rl,inb); 
l2:llv(rl,outb),linedot; 
lotst:asset*risk*0.01/(n*2*multiplier),linethick0; 
lots:=if(risk=0,1,lotst); //如果risk取0,表示固定开1手 
tbc:=h<>l;//判断是否停板 
partline(holding>0,enterprice-2*n); 
if barpos<inb+1 then exit; 
if holding=0 and tbc then //不是停板才可以交易 
begin 
if h>h1 AND X1>X2 then //开多 
begin 
buyp:=max(o,h1); 
buy(1,lots,limitr,buyp); 
times:=1; 
while h>enterprice+n*0.5 and times<4 do 
begin 
buyp:=max(o,enterprice+n*0.5); 
buy(1,lots,limitr,buyp); 
times:=times+1; 
end;//连续开仓 
end;//开多结束 
else if l<l1  AND X1<X2 then //开空 
begin 
sellp:=min(o,l1); 
buyshort(1,lots,limitr,sellp); 
times:=1; 
while l<enterprice-n*0.5 and times<4 do 
begin 
sellp:=min(o,enterprice-n*0.5); 
buyshort(1,lots,limitr,sellp); 
times:=times+1; 
end;//连续开仓 
end; 
end;//holding=0



金字塔—专业程序化交易量化投资平台

客户服务部

-----------------------------------------------------------

欢迎您参加我公司的技术培训,具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉,请发往邮箱:weiwei@weistock.com
 回到顶部
总数 12 1 2 下一页