#define LONG_FIRST

function run() {
  if (is(INITRUN)) {
    BarPeriod = 80;
    BarOffset = 40;
    LookBack = 245;
    NumWFOCycles = 6;
    StartDate = 20130601;
    EndDate = 20131230;
    set(NFA + TICKS + RULES + TESTNOW + PLOTNOW + LOGFILE);
    TradesPerBar = 2;
    Weekend = 1;
    Hedge = 4;
  }

  vars ol = series((priceOpen(0) - priceLow(0)) / PIP);

  var v00 = APO(ol, 4, 7, MAType_WMA);
  var v01 = APO(ol, 148, 245, MAType_TRIMA);
  polyfit(0, ol, 24, 2, 1);
  var v02 = polynom(0, -1);

  TakeProfit = 3 * ATR(100);
  Stop = 3 * ATR(100);

  int al;
  int as;
#ifdef LONG_FIRST
  al = adviseLong(PERCEPTRON, 0, v00, v01, v02);
  if (al > 0) {
    enterLong();
  }
  as = adviseShort();
  if (as > 0) {
    enterShort();
  }
#else
  as = adviseShort(PERCEPTRON, 0, v00, v01, v02);
  if (as > 0) {
    enterShort();
  }
  al = adviseLong();
  if (al > 0) {
    enterLong();
  }
#endif

  plot("al", al, LINE + NEW , BLUE);
  plot("as", as, LINE, RED);
}

if (Train) {
  Hedge = 2;
} else {
  Hedge = 4;
  set(NFA);
}

string selected_asset;

//#define SHORTFIRST

var EntryL;
var EntryS;
var TrailL;
var TrailS;

function run() {
  if (is(INITRUN)) {
    BarPeriod = 127;
    LookBack = 501;
    StartDate = 20130601;
    EndDate = 20131230;
    set(NFA + TICKS + MUTE);    
    set(RULES);
    set(FACTORS);
    set(TESTNOW + PLOTNOW);
    
    if (Train) {
      Hedge = 2;
      Detrend = 1;
    } else {
      Hedge = 4;
      Detrend = 0;
    }
    TradesPerBar = 2;
    Weekend = 1;
    EntryTime = 1;
    ExitTime = 24 * 60 / BarPeriod;
    NumWFOCycles = 3;
  }

  while(selected_asset = loop("AUD/CHF", "CAD/JPY", "EUR/AUD")) {
    asset(selected_asset);

    var atrx = ATR(329);

    EntryL = 1.6;
    EntryS = 1.6;
    TrailL = 1.2;
    TrailS = 1.2;

    var v00 = WillR(102);
    var v01 = CCI(192);
    vars Price = series(price());
    var v02 = HighPass(Price, DominantPeriod(Price, 7));
    
    plot("v00", v00, NEW+LINE, BLUE);
    plot("v01", v01, NEW+LINE, BLUE);
    plot("v02", v02, NEW+LINE, BLUE);

#ifdef SHORTFIRST
    if (adviseShort(PERCEPTRON, 0, v00, v01, v02) > 0) {
      Entry = EntryS * atrx;
      Trail = TrailS * atrx;
      enterShort();
    }
#endif
    if (adviseLong(PERCEPTRON, 0, v00, v01, v02) > 0) {
      Entry = EntryL * atrx;
      Trail = TrailL * atrx;
      enterLong();
    }
#ifndef SHORTFIRST
    if (adviseShort(PERCEPTRON, 0, v00, v01, v02) > 0) {
      Entry = EntryS * atrx;
      Trail = TrailS * atrx;
      enterShort();
    }
#endif
  }
}