【免费】TB策略代写

yimatouzi

     主要用于保持写程序的习惯，怕过些时间不写程序就生疏了。

    所以免费提供程序代写服务...  晚上时间比较多，做一点稍微强度点的练习.

     要求：不要拿一些最初级的没有经过思考的指标什么的来做测试，需要有一点思想深度的策略。
     QQ：740628383   微信同上.

yimatouzi

zzscome 发表于 2017-2-11 19:30
请教一下：N=账户资金*5%/【（20日最高点-10日最低点）*每手吨数】
开仓条件：突破20日最高点（20日最低点 ...

Params

Vars
    Numeric Enter;
    NumericSeries  TotalCapital;
        Bool    Entrycon;
        Bool    Entrycon2;
        numeric  EntryLots;
Begin
     If(barstatus==0)
         {SetGlobalVar(0,0);}
         else Enter=GetGlobalVar(0);
  
     TotalCapital=Portfolio_CurrentCapital+Portfolio_CurrentEquity;
         EntryCon=(Enter==0 and High>Highest(high[1],20));
         EntryCon2=(TotalCapital*0.05>Portfolio_CurrentCapital);
         EntryLots=IntPart(TotalCapital*0.05/(Open*ContractUnit()*BigPointValue*Marginratio()));//以当前开盘价计算交易手数 取整
         
         If(EntryCon==true  and EntryCon2==true)
     {
             Buy(EntryLots,Max(open,Highest(High[1],20)+minmove*pricescale));
         SetGlobalVar(0,1);
     }
     If(barssinceentry>1 and Low<lowest(low[1],10) and getglobalvar(0)==1 )
      {
        Sell(0,min(open,Lowest(low[1],10)-minmove*pricescale));
        SetGlobalVar(0,0);
       }

End          
       

     看能不能满足你的 想法.

yimatouzi

yimatouzi 发表于 2017-2-12 23:38
Params

Vars

这句要改一下
TotalCapital=Portfolio_CurrentCapital+Portfolio_CurrentUsdMargin;

然后论坛里面  有在讨论。好像不能直接用 Portfolio_currentEquity 来直接求值，不知道为什么，这个地方
需要 在持仓过程中看看 到底怎么回事。

大体的 N的计算可以参考上面，应该没太大问题。