Данный текст нашел скитаясь от нечего делать по архивам
одного из форумовEquity Curve впечатляет.
Eur System Данная система построена на тех же принципах, что и торговая система 23/7, которую мне так и не удалось заставить работать.
Правила: Ордера остаются открытыми с 9 утра до 2 дня (после 2 дня никакие позиции не открываются).
Открытие в 9 утра считается базовыми уровнем (BL)
Покупайте, если цена выше на 25 тиков BL
Продавайте, если цена на 25 тиков ниже BL.
Цель прибыли 110 тиков.
Стоп 40 тиков.
При прибыли 40 тиков используем трейлинг стоп на 40 тиков ниже максимальной цены прибыли.
Код для TS
Inputs: STime(0900), CTime(1400),BreakU(0.0025),BreakD(0.0025),StopLong(0.004),StopShort(0.004), ProfTarg(0.011), RiskFloor(0.004), Trail(0.004);
Variables: BuyH(0), SellL(0),StopL(0), StopS(0), Tx(0);
{Breakout levels}
If currentbar > 1 and time = STime then begin
BuyH = Open + BreakU;
SellL = Open - BreakD ;
StopL = BuyH - StopLong;
StopS = SellL + StopShort;
Tx=0;
end;
{Buy or Sell Breakout}
if currentbar > 1 and marketposition = 0 and time >= STime and time <= CTime and Tx=0 then begin
Buy("Break Up") next bar at BuyH on stop;
Sell("Break Down") next bar at SellL on stop;
end;
{Variable Prevents multiple entries in 1 day}
if Marketposition <> 0 then Tx=1;
{Exits}
If Marketposition > 0 then begin
ExitLong ("StopL") next bar at StopL on stop;
ExitLong ("ProfitL") at BuyH + ProfTarg limit;
end;
If Marketposition < 0 then begin
ExitShort ("StopS") next bar at StopS on stop;
Exitshort ("ProfitS") at SellL - ProfTarg limit;
end;
{Sets trailing Stop}
If marketposition > 0 then begin
if c - BuyH > RiskFloor then begin
exitlong ("TSlong")at highest(high, barssinceentry) - Trail on stop;
end;
if SellL - c > RiskFloor then begin
exitshort("TSshort") at lowest(low, barssinceentry) + Trail on stop;
end;
end; Во вложенном файле Equity Curve.
