function run()
{
Hedge = 2;
set(PARAMETERS);
NumWFOCycles = 5;
BarPeriod = 60;
StartDate = 20020101;
EndDate = 20130101;
var TimeCycle = optimize(1000,500,1500,50,0);
var TimeFactor = optimize (2, 1, 3, 0.2, 0);
vars Pris = series(priceClose());
vars LP1 = series(LowPass(Pris, TimeCycle));
vars LP2 = series(LowPass(Pris, TimeFactor*TimeCycle));
vars Signal = series(0);
Stop = optimize(2,1,3,0.1,0) *ATR(50);
Trail = optimize(100,75,125,5,0) *PIP;
var NumSignal = 60;
if (NumOpenLong == 0 && LP1[0] > LP2[0] && (rising(LP1)))
{
if(Sum(Signal+1,NumSignal) == 0)
if(enterLong())
Signal[0] = 1;
}
else if (NumOpenShort == 0 && LP1[0] < LP2[0] && (falling(LP1)))
{
if(Sum(Signal+1,NumSignal) == 0)
if(enterShort())
Signal[0] = 1;
}
plot ("LP1", LP1[0], 0, BLUE);
plot ("LP2", LP2[0], 0, RED);
PlotWidth = 600;
PlotHeight1 = 300;
}