function run()
{
	set(LOGFILE|PLOTNOW|PARAMETERS);
	NumYears = 3;
	Verbose = 2;
	LookBack = 1000;
	vars Price = series(priceClose());
	vars Trends1 = series(SMA(Price,30));
	vars Trends2 = series(SMA(Price,90));
	
// generate equity curve including phantom trades
  vars EquityCurve = series(EquityLong+EquityShort);
  //vars EquityCurve2 = series(Equity);
  vars EquityLP = series(LowPass(EquityCurve,100));
  
 
  if(EquityCurve[0] < EquityLP[0])
    setf(TradeMode,TR_PHANTOM); // drawdown -> phantom trades
  else
    resf(TradeMode,TR_PHANTOM); // profitable -> normal trades
  //setf(TrainMode, PHANTOM);
 
		if(crossOver(Trends1,Trends2))
			enterShort();
		else if(crossUnder(Trends1,Trends2))
			exitShort();

	plot("eq",EquityCurve,NEW,BLUE);
   plot("eqlp",EquityLP,0,RED);
	//plot("eq2",EquityCurve2,NEW,BLUE);
}

// generate equity curve including phantom trades
  
  vars EquityCurve = series(EquityLong+EquityShort, -LookBack);
 if(NumOpenLong+NumOpenShort > 0) shift(EquityCurve,EquityLong+EquityShort,LookBack);
  vars EquityLP = series(LowPass(EquityCurve,200),-LookBack);
  if(NumOpenLong+NumOpenShort > 0) shift(EquityLP,LowPass(EquityCurve,200),LookBack);

  if(EquityCurve[0] < EquityLP[0])
    setf(TradeMode,TR_PHANTOM); // drawdown -> phantom trades
  else
    resf(TradeMode,TR_PHANTOM); // profitable -> normal trades