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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 帮我看看我这个代码出什么问题,为啥没有交易信号,谢谢

   

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


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

主题:帮我看看我这个代码出什么问题,为啥没有交易信号,谢谢

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


加好友 发短信
等级:新手上路 帖子:64 积分:30 威望:0 精华:0 注册:2013/3/25 12:13:58
帮我看看我这个代码出什么问题,为啥没有交易信号,谢谢  发帖心情 Post By:2013/3/25 12:15:31    Post IP:222.76.207.166[只看该作者]

//参数声明

Input : T20(20,15,60,1);
Input : T10(10,10,30,1);
Input : PosNum(1,1,20,1);

//声明变量

//准备需要的变量
T20HI := ref( HHV(high,T20),1);
T20LO := ref( LLV(LOW,T20),1);

T10HI := ref( HHV(high,T10),1);
T10LO := ref( LLV(LOW,T10),1);

VARIABLE : Position =0; //表示空仓

AvgTR : = ref(MA(Tr,20),1);

//如果当前没有持仓
If Position = 0 then Begin
 
   Long : = h > T20HI;
    //多头进场
   If Long then BEGIN
      MyEntryPrice : = IF(Open>T20HI+MINDIFF,Open,T20HI+MINDIFF);
      buy(1,PosNum,LIMITR,MyEntryPrice);
      Position : = 1;
      N : = AvgTR;
     
   END
END //If

//如果当前持有多头仓位时候

If Position = 1 then Begin
  
   //建立多头离场条件
   LongX1 : = Low < T10LO;
  
   If LongX1 then Begin
      MyExitPrice : = IF(Open<T10LO-MINDIFF,Open,T10LO-MINDIFF);
      sell(1,0,LIMITR,MyExitPrice);
      Postion : =0;
  
   End
  
   //建立多头止损条件
   LongX2 : = Low< MyEntryPrice - 2*N;
  
   If LongX2 then Begin
      MyExitPrice : = IF(Open<MyEntryPrice-2*N,Open,MyEntryPrice-2*N);
      MyExitPrice : = FLOOR(MyExitPrice/MINDIFF)*MINDIFF;   //波动值与最小变动价位不同,所以用Floor把它修正到最小变动价位
      sell(1,0,LIMITR,MyExitPrice);
      Postion : =0;
  
   End
      GOTO ContinueLine;


End //If


ContinueLine@ 资产: ASSET,LINETHICK0;


 回到顶部
帅哥哟,离线,有人找我吗?
BruceX
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:64 积分:30 威望:0 精华:0 注册:2013/3/25 12:13:58
  发帖心情 Post By:2013/3/25 12:25:54    Post IP:222.76.207.166[只看该作者]

帮忙看看吧,谢谢

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


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

工作人员在处理 ,请稍等



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

客户服务部

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

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

您的宝贵建议或者投诉,请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟,离线,有人找我吗?
just
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If LongX1 then Begin 
      MyExitPrice : = IF(Open<T10LO-MINDIFF,Open,T10LO-MINDIFF);
      sell(1,0,LIMITR,MyExitPrice);
      Postion : =0; 改为position=0 
   

   End
   
   //建立多头止损条件
   LongX2 : = Low< MyEntryPrice - 2*N;
   
   If LongX2 then Begin
      MyExitPrice : = IF(Open<MyEntryPrice-2*N,Open,MyEntryPrice-2*N);
      MyExitPrice : = FLOOR(MyExitPrice/MINDIFF)*MINDIFF;   //波动值与最小变动价位不同,所以用Floor把它修正到最小变动价位
      sell(1,0,LIMITR,MyExitPrice);
      Postion : =0;  改为position=0
   

   End 
      GOTO ContinueLine;


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

客户服务部

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

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

您的宝贵建议或者投诉,请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟,离线,有人找我吗?
BruceX
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:64 积分:30 威望:0 精华:0 注册:2013/3/25 12:13:58
  发帖心情 Post By:2013/3/25 21:26:42    Post IP:36.249.142.138[只看该作者]

谢谢

 回到顶部