-- 作者:3526566588
-- 发布时间:2017/6/1 11:32:46
-- 请老师帮忙改成金字塔,谢谢
这个是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
|