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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 我写的图表交易系统,请高手指点:

   

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


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

主题:我写的图表交易系统,请高手指点:

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


加好友 发短信
等级:论坛游侠 帖子:232 积分:1256 威望:0 精华:0 注册:2010/4/24 21:58:28
我写的图表交易系统,请高手指点:  发帖心情 Post By:2010/9/20 23:51:25    Post IP:116.25.223.123[只看该作者]

 

//------------------------
LONG:=C>HHV(5,H);

SHORT:=C<LLV(5,L);
//------------------------


CONBUY:=Long And Not(Ref(Long,1));
CONBUYSHORT:=Short And Not(Ref(Short,1));

CONNo:=OpenPrift>1000 ;


ConTime:=(CURRENTTIME>145920 AND CURRENTTIME<150005);


//不是最后一根Bar,只显示买卖信号(这里给大家提个建议,显示的字体难看啊。。。)

If  Not(IsLastBar) Then Begin


//做多
If ConBuy Then Begin
SellShort(Holding<0,0,ThisClose),TFILTER,ORDERQUEUE;
Buy(Holding=0,1,ThisClose),TFILTER,ORDERQUEUE;
End

 

//做空
If ConBuyShort Then Begin
Sell(Holding>0,0,ThisClose),TFILTER,ORDERQUEUE;
BuyShort(Holding=0,1,ThisClose),TFILTER,ORDERQUEUE;
End

 

//空仓

Sell(CONNO  And holding>0,0,ThisClose);
SellShort(CONNO AND holding<0,0,ThisClose);

End

 

//最后K线

If ConTime And IsLastBar Then Begin

 

//做多
If ConBuy Then Begin
SellShort(Holding<0,0,ThisClose),TFILTER,ORDERQUEUE;
Buy(Holding=0,1,ThisClose),TFILTER,ORDERQUEUE;
End

 

//做空
If ConBuyShort Then Begin
Sell(Holding>0,0,ThisClose),TFILTER,ORDERQUEUE;
BuyShort(Holding=0,1,ThisClose),TFILTER,ORDERQUEUE;
End

 

//空仓
Sell(CONNO  And holding>0,0,ThisClose);
SellShort(CONNO AND holding<0,0,ThisClose);

 

//纠错
If Long And Holding<0 Then SellShort(1,0,MKT);
If Short  And Holding>0 Then Sell(1,0,MKT);

End


 回到顶部