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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请教盈利回撤的问题

   

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


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

主题:请教盈利回撤的问题

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


加好友 发短信
等级:超级版主 帖子:5895 积分:3774 威望:0 精华:0 注册:2012/1/1 0:00:01
  发帖心情 Post By:2013/7/22 15:17:44    Post IP:58.246.57.26[只看该作者]


//参数设置:
INPUT : M(9,2,60,6),N(14,1,100,1),P(26,20,100,8),S(12,5,40,4);
INPUT : SS(40,1,100,1);//持仓手数
VARIABLE : maxprofit = 0;//有仓位时最大获利幅度
win1 := 0;
win2 := 0;//止损、止盈、回撤控制

//需要的中间变量


 

//MACD指标
DIFF := EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  := EMA(DIFF,M);
MACD1 := 2 * (DIFF-DEA), COLORSTICK;

//开平仓条件
开多 := CROSS(DIFF , DEA);

开空 := CROSS(DEA , DIFF);

平空 := 开多;
平多 := 开空;
                            
//交易系统

IF HOLDING > 0 THEN BEGIN
 //多头平仓
 IF 平多 THEN
  SELL(1,HOLDING,LIMITR,CLOSE);
        
 //盈利计算
 IF ENTERBARS > 0 THEN BEGIN
  win1 := (c - ENTERPRICE)/ENTERPRICE * 100;//记录最大盈利
  IF win1 > maxprofit then
   maxprofit := win1;
  win2 :=(maxprofit - win1)/maxprofit*100;//最大盈利后的回调幅度
 END
    
 //多头浮动亏损达3%止损
 IF win1 < -3 THEN
  多头止损:SELL(1,HOLDING,LIMITR,CLOSE);
     //多头获利后回撤20%止盈
 IF win2 >15 AND win1 > 10 THEN BEGIN
  多头止盈:SELL(1,HOLDING,LIMITR,CLOSE),ORDERQUEUE;
  BUYSHORT(1,1,LIMITR,CLOSE);//回撤止盈反手
END

IF HOLDING < 0 THEN BEGIN
     //空头平仓
 IF 平空 THEN
  SELLSHORT(1,HOLDING,LIMITR,CLOSE);
        
     //盈亏计算
 IF ENTERBARS > 0 THEN BEGIN   
  win1 := (enterprice - c)/enterprice*100; //记录最大盈利
  IF win1 > maxprofit THEN
   maxprofit := win1;
      win2 := (maxprofit - win1)/maxprofit*100; //最大盈利后的回调幅度
 END
         
 //空头浮动亏损达3%止损
 IF win1 < -3 THEN
  空头止损:SELLSHORT(1,HOLDING,LIMITR,CLOSE);
     //空头获利后回撤20%止盈
 IF win2 > 15 AND win1 > 10 THEN
  空头止盈:SELLSHORT(1,HOLDING,LIMITR,CLOSE);
   BUY(1,1,LIMITR,CLOSE);//回撤止盈反手
END
       
IF HOLDING=0 THEN BEGIN
     //多头开仓
 IF 开多 THEN BEGIN
  BUY(1,SS,LIMITR,CLOSE);
  maxprofit := 0;
 END  
     
     //空头开仓
 IF 开空 THEN BEGIN
  BUYSHORT(1,SS,LIMITR,CLOSE);
  maxprofit := 0;
 END

 



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

客户服务部

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

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

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