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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件策略编写求助区 → 放个伪代码,求编写!~~~

   

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


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

主题:放个伪代码,求编写!~~~

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


加好友 发短信
等级:罗宾汉 帖子:46311 积分:50819 威望:0 精华:2 注册:2011/3/23 8:50:25
  发帖心情 Post By:2011/11/10 11:25:44 [只看该作者]

写完鸟~~~

 

首先建立一个名为F117的公式用来引用数据:

bf1:ref(tr,1),linethick0;
bf5:ref(tr,5),linethick0

 

然后另外建立个公式写:
n:barslast(date<>ref(date,1)),linethick0;
jk:ref(o,n),linethick0;//今开
tt1:stkindi('if00','F117.bf1',0,6,0),linethick0;//昨天振幅
tt2:stkindi('if00','F117.bf5',0,6,0),linethick0;//前5天振幅
zs:callstock('if00',vtclose,6,-1),linethick0;//昨收
zd:callstock('if00',vtlow,6,-1),linethick0;//昨低
zg:callstock('if00',vthigh,6,-1),linethick0;//昨高

sg:ref(hhv(h,20),1),linethick0;//上轨
xg:ref(llv(l,20),1),linethick0;//下轨

if tt1>3*tt2 then exit;//昨天真实波幅大于前五天真实波幅的3倍今天不开仓
//predayhigh:valuewhen(date<>ref(date,1),ref(hhv(h,n+1),1)),linethick0;非引用的昨高
//predaylow:valuewhen(date<>ref(date,1),ref(llv(l,n+1),1)),linethick0;非引用的昨低
//predayclose:valuewhen(date<>ref(date,1),ref(c,1)),linethick0;非引用的昨收

 

if jk>zs and h>sg then begin
 buy(holding=0,1,thisclose);
end
//最高价突破上轨做多(上轨价委托),上轨:hhv(h,20); 


if jk>zs and l<zd then begin 
 buyshort(holding=0,1,thisclose);
end
//最低价下穿下轨做空(下轨价委托),下轨:昨天最低

 

if jk<zs and h>zg then begin 
 buy(holding=0,1,thisclose);
end
//最高价突破上轨做多(上轨价委托),上轨:昨天最高


if jk<zs and l<xg then begin 
 buyshort(holding=0,1,thisclose);
end
//最低价下穿下轨做空(下轨价委托),下轨:llv(l,20);


if h>enterprice+3*tt2 then sell(holding>0,0,thisclose);//多头止盈
if ref(c,1)<max(ref(llv(l,10),1),max(jk,(zg+zd)/2)) then sell(holding>0,0,limitr,open);//多头止损


if l>max(zg-(zg-zd),zd) then begin
 sell(holding>0,0,thisclose);
 buyshort(holding,0,limitr,max(zg-(zg-zd),zd));
end //反手做空
 
if l<enterprice-3*tt2 then sellshort(holding<0,0,thisclose);//空仓止盈
if ref(c,1)>min(ref(hhv(h,10),1),min(jk,(zg+zd)/2)) then sellshort(holding<0,0,limitr,o);//空仓止损

 

 
if h>min(zd+(zg-zd),zg) then begin
 sellshort(holding<0,0,thisclose);
 buy(holding=0,1,limitr,min(zd+(zg-zd),zg));
end//反手做多
 



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

客户服务部

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

您的宝贵建议或者投诉,请发往邮箱:weiwei@weistock.com

 回到顶部