INVESTIVA SUPER EXPERT ADVISORT (ISEA) FOR 4 DIGITS BROKERS~

Download



/*
   Generated by EX4-TO-MQ4 decompiler V4.0.223.1a []
   Website: http://purebeam.biz
   E-mail : purebeam@gmail.com
*/
#property copyright "Copyright © 2009, INVESTIVA"
#property link      "www.investiva.net"

int gi_76 = 5;
int gi_80 = 29;
int gi_84 = 2;
int g_period_88 = 16;
int gi_92 = 2;
extern int TradeVolume = 1;
extern bool UseHourTrade = FALSE;
extern int FromHourTrade = 6;
extern int ToHourTrade = 18;
int g_ticket_112;
int g_ticket_116;
int g_ord_total_120;
int gi_124 = 0;
int gi_128 = 0;
int gi_132 = 0;
int gi_136 = 0;
double g_price_140;
double gd_148;
double gd_156;
double gd_164;
double gd_172;
double gd_180;
double gd_188;
double gd_196;
double g_ima_204;
double gd_212;
double g_minlot_220;

void init() {
   gd_172 = MarketInfo(Symbol(), MODE_STOPLEVEL);
   gd_172 = (gd_172 + 1.0) * Point;
   gd_148 = gi_80 * Point;
   gd_156 = gi_76 * Point;
   gd_164 = gi_84 * Point;
   gd_196 = gi_92 * Point;
   gd_212 = Ask - Bid;
}

int start() {
   string ls_0 = "2010.07.07";
   int l_str2time_8 = StrToTime(ls_0);
   if (TimeCurrent() >= l_str2time_8) {
      Alert("This Robot Has Been Expired. Please contact www.investiva.net for update.");
      return (0);
   }
   if (UseHourTrade) {
      if (!(Hour() >= FromHourTrade && Hour() <= ToHourTrade)) {
         Comment("This is not trading time.");
         return (0);
      }
   }
   g_ord_total_120 = OrdersTotal();
   gi_124 = FALSE;
   gi_128 = FALSE;
   gi_132 = FALSE;
   gi_136 = FALSE;
   for (int l_ord_total_12 = g_ord_total_120; l_ord_total_12 >= 0; l_ord_total_12--) {
      if (OrderSelect(l_ord_total_12, SELECT_BY_POS) == TRUE && OrderSymbol() == Symbol()) {
         if (OrderType() == OP_BUY) {
            gi_132 = TRUE;
            Close_B(OrderTicket(), OrderLots());
         }
         if (OrderType() == OP_SELL) {
            gi_136 = TRUE;
            Close_S(OrderTicket(), OrderLots());
         }
         if (OrderType() == OP_BUYLIMIT) {
            gd_180 = NormalizeDouble(OrderOpenPrice(), Digits);
            g_ticket_112 = OrderTicket();
            gi_124 = TRUE;
         }
         if (OrderType() == OP_SELLLIMIT) {
            gd_188 = NormalizeDouble(OrderOpenPrice(), Digits);
            g_ticket_116 = OrderTicket();
            gi_128 = TRUE;
         }
      }
   }
   g_ima_204 = iMA(NULL, 0, g_period_88, 0, MODE_LWMA, PRICE_TYPICAL, 0);
   Modify_order();
   Open_order();
   return/*(WARN)*/;
}

void Close_B(int a_ticket_0, double a_lots_4) {
   if (NormalizeDouble(Bid - OrderOpenPrice(), Digits) >= gd_196) {
      OrderClose(a_ticket_0, a_lots_4, Bid, 1, Yellow);
      gi_132 = FALSE;
   }
}

void Close_S(int a_ticket_0, double a_lots_4) {
   if (NormalizeDouble(OrderOpenPrice() - Ask, Digits) >= gd_196) {
      OrderClose(a_ticket_0, a_lots_4, Ask, 1, Yellow);
      gi_136 = FALSE;
   }
}

void Modify_order() {
   if (gi_124 == TRUE) {
      g_price_140 = g_ima_204 - gd_164;
      if (MathAbs(gd_180 - g_price_140) > Point / 2.0) OrderModify(g_ticket_112, g_price_140, g_price_140 - gd_148, g_price_140 + gd_156, 0, DeepSkyBlue);
   }
   if (gi_128 == TRUE) {
      g_price_140 = g_ima_204 + gd_212 + gd_164;
      if (MathAbs(gd_188 - g_price_140) > Point / 2.0) OrderModify(g_ticket_116, g_price_140, g_price_140 + gd_148, g_price_140 - gd_156, 0, Pink);
   }
}

void Open_order() {
   if (gi_132 == FALSE && gi_124 == FALSE) {
      g_price_140 = g_ima_204 - gd_164;
      if (g_price_140 > Ask - gd_172) g_price_140 = Ask - gd_172;
      g_price_140 = NormalizeDouble(g_price_140, Digits);
      OrderSend(Symbol(), OP_BUYLIMIT, Lots(), g_price_140, 3, g_price_140 - gd_148, g_price_140 + gd_156, "", 0, 0, Blue);
      gi_124 = TRUE;
   }
   if (gi_136 == FALSE && gi_128 == FALSE) {
      g_price_140 = g_ima_204 + gd_212 + gd_164;
      if (g_price_140 < Bid + gd_172) g_price_140 = Bid + gd_172;
      g_price_140 = NormalizeDouble(g_price_140, Digits);
      OrderSend(Symbol(), OP_SELLLIMIT, Lots(), g_price_140, 3, g_price_140 + gd_148, g_price_140 - gd_156, "", 0, 0, Red);
      gi_128 = TRUE;
   }
}

double Lots() {
   g_minlot_220 = NormalizeDouble(AccountEquity() * TradeVolume / 100.0 / 1000.0, 1);
   double l_minlot_0 = MarketInfo(Symbol(), MODE_MINLOT);
   if (g_minlot_220 == 0.0) g_minlot_220 = l_minlot_0;
   return (g_minlot_220);
}

Sample

Analysis

Market Information Used:

Indicator Curves created:

Indicators Used:

Moving average indicator

Custom Indicators Used:

Order Management characteristics:
Checks for the total of open orders

It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
It automatically opens orders when conditions are reached

Other Features:

It issuies visual alerts to the screen