- 精华
- 0
- 在线时间
- 138 小时
- UID
- 348
- 积分
- 347
- 帖子
- 83
- 阅读权限
- 50
- 注册时间
- 2007-9-13
- 最后登录
- 2021-9-14
- 精华
- 0
- UID
- 348
- 积分
- 347
- 帖子
- 83
- 主题
- 31
- 阅读权限
- 50
- 注册时间
- 2007-9-13
- 最后登录
- 2021-9-14
|
老大,我写的海龟系统,怎么不能加仓啊?您帮忙看看?
Params
Numeric Length1(15);
Numeric Length2(10);
Numeric RiskRatio(1);
Numeric ATRLength(20);
Vars
Numeric ATR;
Bool Condition11;
Bool Condition12;
Bool Condition21;
Bool Condition22;
NumericSeries HighestValue1;
NumericSeries LowestValue1;
NumericSeries HighestValue2;
NumericSeries LowestValue2;
Numeric TotalEquity;
Numeric Position;
Numeric preEntryPrice;
Numeric preBreakoutType(0);
Numeric preBreakOutPrice;
Numeric prePosition;
Numeric myEntryPrice;
Begin
HighestValue1 = Highest(Close[1],Length1);
HighestValue2 = Highest(Close[1],Length2);
LowestValue1 = Lowest(Close[1],Length1);
LowestValue2 = Lowest(Close[1],Length2);
ATR = AverageFC(TrueRange,ATRLength);
TotalEquity = CurrentCapital()+ Abs(CurrentContracts()*Close*ContractUnit()*BigPointValue()*MarginRatio());
Position = (TotalEquity*RiskRatio/100) /(ATR * ContractUnit()*BigPointValue());
Position = IntPart(position);
Condition11 = Close>HighestValue1;
Condition12 = LowestValue1>Close;
Condition21 = Close>HighestValue2;
Condition22 = LowestValue2>Close;
If(BarStatus == 0)
{
SetGlobalVar(0,InvalidNumeric);
SetGlobalVar(1,0);
SetGlobalVar(2,InvalidNumeric);
}Else
{
preBreakoutType = GetGlobalVar(1);
preBreakOutPrice = GetGlobalVar(2);
myEntryPrice=GetGlobalVar(0);
}
if (MarketPosition == 0)
{
if (Condition11)
{Buy(Position,0);SetGlobalVar(0,close);}
if (Condition12)
{SellShort(Position,0);SetGlobalVar(0,close); }
}
if (MarketPosition == 1)
{
if (Condition22||(Close <= MyEntryPrice - 2 * ATR)) {Sell(0,0);}
else
if (Close >= myEntryPrice + 0.5 * ATR && Position>= 1&& CurrentContracts<4*Position)
{buy(Position,0);myEntryPrice = close;}
}
if (MarketPosition ==-1)
{
if (Condition21||(Close >= MyEntryPrice + 2 * ATR)) {BuyToCover(0,0);}
else
if (Close <= myEntryPrice - 0.5 * ATR && Position>= 1&& CurrentContracts<4*Position)
{SellShort(Position,0);myEntryPrice = close;}
}
End |
|