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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请高手改一个策略

   

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


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

主题:请高手改一个策略

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/9/1 17:17:40    Post IP:58.246.57.26[显示全部帖子]

我来帮你换行,请使用IE浏览器。

 

 

Inputs: bollingerLengths(50),trendLiqLength(50),numStdDevs(2), swingPrcnt1(0.50),swingPrcnt2(0.75),atrLength(10), swingTrendSwitch(20);
Vars:cmiVal(0),buyEasierDay(0),sellEasierDay(0),trendLokBuy(0), trendLokSell(0),keyOfDay(0),swingBuyPt(0),swingSellPt(0), trendBuyPt(0),trendSellPt(0),swingProtStop(0);
 cmiVal = ChoppyMarketIndex(30);
 buyEasierDay = 0;
 sellEasierDay = 0;
 trendLokBuy = Average(Low,3);
  trendLokSell= Average(High,3);
  keyOfDay = (High + Low + Close)/3;
   if(Close > keyOfDay) then sellEasierDay = 1;
  if(Close <= keyOfDay) then buyEasierDay = 1;
  if(buyEasierDay = 1) then
   begin
   swingBuyPt = Open of tomorrow + swingPrcnt1*AvgTrueRange(atrLength);
  swingSellPt = Open of tomorrow - swingPrcnt2*AvgTrueRange(atrLength);
  end;
   if(sellEasierDay = 1) then begin swingBuyPt = Open of tomorrow + swingPrcnt2*AvgTrueRange(atrLength);
    swingSellPt = Open of tomorrow - swingPrcnt1*AvgTrueRange(atrLength);
  end;
  swingBuyPt = MaxList(swingBuyPt,trendLokBuy); swingSellPt = MinList(swingSellPt,trendLokSell);
   trendBuyPt = BollingerBand(Close,bollingerLengths,numStdDevs);
   trendSellPt = BollingerBand(Close,bollingerLengths,- numStdDevs);
if(cmiVal < swingTrendSwitch)then begin if (MarketPosition <> 1) then Buy("SwingBuy") next bar at swingBuyPt stop;
 if(MarketPosition <> -1) then SellShort("SwingSell") next bar at swingSellPt stop;
 end else
 begin swingProtStop = 3*AvgTrueRange(atrLength);
  Buy("TrendBuy") next bar at trendBuyPt stop;
SellShort("TrendSell") next bar at trendSellPt stop;
Sell from Entry("TrendBuy") next bar at Average(Close,trendLiqLength) stop;
 BuyToCover from Entry("TrendSell") next bar at Average(Close,trendLiqLength) stop;
Sell from Entry("SwingBuy") next bar at EntryPrice - swingProtStop stop;
 BuyToCover from Entry("SwingSell") next bar at EntryPrice + swingProtStop stop;
 end;

[此贴子已经被作者于2011-9-1 17:18:16编辑过]

 回到顶部