请老师帮忙改成金字塔，谢谢 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

这个是TB的，请老师帮忙改成金字塔，谢谢

Params
Numeric shares(1);
Numeric Params3(2);
Numeric Params4(3);
Numeric Params2(0.70);
Numeric Params1(1.30);
Numeric Params5(9.15);
Vars
Numeric i(0);
Numeric n(0);
Numeric var1(0);
Numeric var2(0);
Numeric var3(0);
Numeric var4(0);
Numeric var5(0);
Numeric var6(0);
NumericSeries var7(0);
NumericSeries var8(0);
NumericSeries var9(0);
NumericSeries var10(0);
Numeric var11(0);
Numeric var12(0);
Numeric var13(0);
Numeric var14(0);

Begin
If(CurrentBar == 0 || Date != Date[1])
{
  var7 = 1;
  var8 = High;
  var9 = Low;
}Else
{
  var7 = var7 + 1;
  If(High > var8)
   var8 = High;
  If(Low < var9)
   var9 = Low;
}
var10 = Close;

For i = 1 to Params3
{
  If(i == 1)
  {
   n = var7;
   var11 = var8[n];
   var12 = var9[n];
   var13 = var10[n];
   var14 = var10[n];
  }Else
  {
   n = n + var7[n];
  }
  If(var8[n] > var11) var11 = var8[n];
  If(var9[n] < var12)  var12 = var9[n];
  If(var10[n] > var13) var13 = var10[n];
  If(var10[n] < var14) var14 = var10[n];
}

var1 = Max(var11 - var14, var13 - var12);

For i = 1 to Params4
{
  If(i == 1)
  {
   n = var7;
   var11 = var8[n];
   var12 = var9[n];
   var13 = var10[n];
   var14 = var10[n];
  }Else
  {
   n = n + var7[n];
  }
  If(var8[n] > var11) var11 = var8[n];
  If(var9[n] < var12)  var12 = var9[n];
  If(var10[n] > var13) var13 = var10[n];
  If(var10[n] < var14) var14 = var10[n];
}

var2 = Max(var11 - var14, var13 - var12);
var3 = OpenD(0) + var1 * Params1;
var4 = OpenD(0) - var2 * Params2;
var5 = PriceScale * MinMove;

If(Time < Params5 / 100) Return;
If(MarketPosition != 1)
{
  If(High >= var3)
  {
   Buy(shares, Max(Open, var3));
   Return;
  }
}
If(MarketPosition != -1)
{
  If(Low <= var4)
  {
   SellShort(shares, Min(Open, var4));
  }
}
End

主题：请老师帮忙改成金字塔，谢谢