新系统 - 指标发布外汇ea之家

+------------------------------------------------------------------+
  //|                               FX185mq4 |
  //|                      Copyright @2006, Hua Ai (aha) |
  //|                                           |
  //+------------------------------------------------------------------+

  #property copyright \"Copyright @2006, Hua Ai (aha)\"
  #property link \"\"

  /*
  Bago system can be categorized as a trend following system based on
  the cross of ema 5 and ema 12. When used properly on hourly chart it
  can capture daily swings of 100+ pips.

  The use of small number emas gives Bago system the sensitivity to
  generate early signals following 10-20 minutes scale waves, but also
  produces a great deal of false signals that can quickly drain a trader
  \'s account. So filters are extremely important for Bago system.

  While Bago system is largely a discretionary system, the integration of
  two excellent filters may make it possible to use a computer program
  generate signals with great high successful rate. This program is
  writtern to investigate this possiblity.

  The mechanism to generate a raw Bago signal is simple: ema 5 crosses
  ema 12 in the same direction as RSI 21 crosses 50 level. To abstract
  real signals, we need to pay attention to context: where the price are,
  and when the crosses happens.

  The greatest meaning of integrating Vegas tunnel into Bago system is,
  the tunnel as well as its fibo lines changes the original plain 2-d
  space into a twisted 2-d space. The twisted price trends now have the
  coordinates. With this coordinates system we may see the entry and exit
  with higher accuracy.

  So, this program will first construct the simple rules upon which the
  the raw signals are generated, then will add rules to filter those
  signals. Those new rules are quantified as parameters so they can be
  easily changed and optimized based on the output results.

  Enough talking, now come to business.
  */

  //Adjustable parameters
  /*
  extern int  TrailingStop = 30;
  extern int  CrossEffectiveTime = 2;
  extern int  TunnelBandWidth  = 0;
  extern int  TunnelSafeZone = 120;
  extern int  HardStopLoss = 30;
  extern int  StopLossToFibo = 20;

  extern bool  LondonOpen    = true;
  extern bool  NewYorkOpen    = true;
  extern bool  TokyoOpen    = true;
  */
  extern int  FasterEMA    = 5;
  extern int  SlowerEMA    = 12;
  extern int  RSIPeriod    = 21;

  extern double TotalLots    = 3.0;
  extern int  TPLevel1       = 55;
  extern double TPLevel1Lots = 1.0;
  extern int  TPLevel2       = 89;
  extern double TPLevel2Lots = 1.0;
  extern int  TPLevel3       = 144;

  //Parameters optimized for different pairs
  int  TrailingStop = 30;
  int  CrossEffectiveTime = 2;
  int  TunnelBandWidth  = 0;
  int  TunnelSafeZone = 120;
  int  HardStopLoss = 30;
  int  StopLossToFibo = 20;

  bool  LondonOpen    = true;
  bool  NewYorkOpen    = true;
  bool  TokyoOpen    = true;

  // Indicator buffers to mark the signal
  double    CrossUp[];
  double    CrossDown[];

  // State registers store cross up/down information
  bool    EMACrossedUp;
  bool    EMACrossedDown;
  bool    RSICrossedUp;
  bool    RSICrossedDown;
  bool    TunnelCrossedUp;
  bool    TunnelCrossedDown;

  // Cross up/down info should expire in a couple of bars.
  // Timer registers to control the expiration.
  int       EMACrossedUpTimer;
  int       RSICrossedUpTimer;
  int       EMACrossedDownTimer;
  int       RSICrossedDownTimer;

  //bool startup;
  //int SignalLabeled; // 0: initial state; 1: up; 2: down.
  //bool upalert,downalert;

  //+------------------------------------------------------------------+
  //| expert initialization function                   |
  //+------------------------------------------------------------------+
  int init()
  {
if (Symbol() == \"EURUSD\")
{
   TrailingStop    = 25;
   CrossEffectiveTime  = 2;
   TunnelBandWidth = 5;
   TunnelSafeZone = 120;
   HardStopLoss    = 30;
   StopLossToFibo = 50;
   LondonOpen       = true; // ok
   NewYorkOpen    = true; // the best
   TokyoOpen       = false;// disaster
}
else if (Symbol() == \"GBPUSD\")
{
   TrailingStop    = 50;
   CrossEffectiveTime  = 2;
   TunnelBandWidth = 8;
   TunnelSafeZone = 160;
   HardStopLoss    = 30;
   StopLossToFibo = 15;
   LondonOpen       = true; // ok
   NewYorkOpen    = false;// so so
   TokyoOpen       = true; // the best
}
else if (Symbol() == \"USDCHF\")
{
   TrailingStop    = 70;
   CrossEffectiveTime  = 2;
   TunnelBandWidth = 9;
   TunnelSafeZone = 160;
   HardStopLoss    = 30;
   StopLossToFibo = 30;
   LondonOpen       = true; // Great
   NewYorkOpen    = true; // Ok
   TokyoOpen       = true; // so so
}
else if (Symbol() == \"AUDUSD\")
{
   TrailingStop    = 60;
   CrossEffectiveTime  = 2;
   TunnelBandWidth = 6;
   TunnelSafeZone = 70;
   HardStopLoss    = 30;
   StopLossToFibo = 30;
   LondonOpen       = true; // Great
   NewYorkOpen    = true; // Ok
   TokyoOpen       = true; // so so
}

// No cross
EMACrossedUp = false;
RSICrossedUp = false;
TunnelCrossedUp = false;
EMACrossedDown = false;
RSICrossedDown = false;
TunnelCrossedDown = false;

// Reset timers
EMACrossedUpTimer = 0;
RSICrossedUpTimer = 0;
EMACrossedDownTimer = 0;
RSICrossedDownTimer = 0;

//----
return(0);
  }

  //+------------------------------------------------------------------+
  //| expert deinitialization function                   |
  //+------------------------------------------------------------------+
  int deinit()
  {
//----
EMACrossedUp = false;
RSICrossedUp = false;
TunnelCrossedUp = false;
EMACrossedDown = false;
RSICrossedDown = false;
TunnelCrossedDown = false;

EMACrossedUpTimer = 0;
RSICrossedUpTimer = 0;
EMACrossedDownTimer = 0;
RSICrossedDownTimer = 0;

//----
return(0);
  }

  //+------------------------------------------------------------------+
  //| expert start function                         |
  //+------------------------------------------------------------------+
  int start() {
int i, cnt, total, ticket, orders;
double fasterEMAnow, slowerEMAnow;
double fasterEMAprevious, slowerEMAprevious;
double RSInow, RSIprevious;
double VegasTunnelFast, VegasTunnelSlow;
double VegasPriceCrossedL, VegasPriceCrossedS;

if (Minute()=CrossEffectiveTime)
      RSICrossedUp = false; // Reset state register when crossed 3 bars ago

   // Check if there is a RSI cross down
   if ((RSInow < 50) && (RSIprevious > 50) && (RSICrossedDown == false))
   {
      RSICrossedUp  = false;
      RSICrossedDown = true;
   }

   if (RSICrossedDown == true)
      RSICrossedDownTimer++; // Record the number of bars the cross has happened
   else
      RSICrossedDownTimer=0; // Reset the timer once the cross is reversed

   if (RSICrossedDownTimer>=CrossEffectiveTime)
      RSICrossedDown = false; // Reset register when crossed 3 bars ago

   // Check if there is a EMA cross up
   if ( (fasterEMAnow > slowerEMAnow) &&
      (fasterEMAprevious < slowerEMAprevious) &&
      (EMACrossedUp == false) )
   {
      EMACrossedUp  = true;
      EMACrossedDown = false;
   }

   if (EMACrossedUp == true)
      EMACrossedUpTimer++; // Record the number of bars the cross has happened
   else
      EMACrossedUpTimer=0; // Reset the timer once the cross is reversed

   if (EMACrossedUpTimer>=CrossEffectiveTime)
      EMACrossedUp = false; // Reset register when crossed 3 bars ago

   // Check if there is a EMA cross down
   if ( (fasterEMAnow < slowerEMAnow) &&
      (fasterEMAprevious > slowerEMAprevious) &&
      (EMACrossedDown == false) )
   {
      EMACrossedUp  = false;
      EMACrossedDown = true;
   }

   if (EMACrossedDown == true)
      EMACrossedDownTimer++; // Record the number of bars the cross has happened
   else
      EMACrossedDownTimer=0; // Reset the timer once the cross is reversed

   if (EMACrossedDownTimer>=CrossEffectiveTime)
      EMACrossedDown = false; // Reset register when crossed 3 bars ago


   if ((Close[1]>VegasTunnelFast && Close[1]>VegasTunnelSlow) &&
      (Close[2]VegasPriceCrossedS+(TunnelBandWidth+StopLossToFibo)*Point)
            OrderModify(OrderTicket(),Bid,VegasPriceCrossedS+(TunnelBandWidth+StopLossToFibo)*Point,OrderTakeProfit(),0);
            continue;
         }
         else
         {
            if(AskVegasPriceCrossedS+(TPLevel1+StopLossToFibo)*Point)
               OrderModify(OrderTicket(),Bid,VegasPriceCrossedS+(TPLevel1+StopLossToFibo)*Point,OrderTakeProfit(),0);
            continue;
            }

            // Reach 2nd TP level, close the 2nd lot, move up remainder stop to TPLevel2-StopLossToFibo
            // Or start trailing stop
            else if(AskVegasPriceCrossedS+(TPLevel2+StopLossToFibo)*Point)
               OrderModify(OrderTicket(),Bid,VegasPriceCrossedS+(TPLevel2+StopLossToFibo)*Point,OrderTakeProfit(),0);
            continue;
            }

            // Reach 1nd TP level, close the 1st lot, move up remainder stop to TPLevel1-StopLossToFibo
            else if(AskVegasPriceCrossedS+(TPLevel3+StopLossToFibo)*Point)
               OrderModify(OrderTicket(),Bid,VegasPriceCrossedS+(TPLevel3+StopLossToFibo)*Point,OrderTakeProfit(),0);
            continue;
            }
         }
      }
      }
   }

  /*  }
if (Minute()==0 && Seconds()>30)
{
  */

   // *********************************************************************
   // Based on states, determine entry situations.
   // *********************************************************************

   //Check the trading time
   if ( !((LondonOpen==true && Hour()>=7 && Hour()=12 && Hour()=0 && Hour()=23 && Hour()

指标发布

""

打赏

还没有人打赏，支持一下

楼主热帖