thv ea v2.mq4

#define MAGICMA  20050610

extern double     Lots             = 1;
extern double     MaximumRisk      = 0.3;
extern double     DecreaseFactor   = 1;
extern bool       PrefSettings     = true;
extern bool       MM               = true;
extern bool       AccountIsMicro   = false;
extern int        TakeProfit       = 42;
extern int        StopLoss         = 84;
extern int        TrailingStop     = 50;
extern double     lTrailingStop = 50;
extern double     sTrailingStop = 50;

extern bool       UseSignal1       = true;
extern bool       UseSignal2       = true;
extern bool       UseSignal3       = true;
extern bool       UseSignal4       = true;
extern bool       UseSignal5       = true;
extern bool       UseSignal6       = true;

extern int        TradeFrom1       = 0;
extern int        TradeUntil1      = 24;
extern int        TradeFrom2       = 0;
extern int        TradeUntil2      = 0;
extern int        TradeFrom3       = 0;
extern int        TradeUntil3      = 0;
extern int        TradeFrom4       = 0;
extern int        TradeUntil4      = 0;

color             color1           = Red;
color             color2           = White;
color             color3           = Red;
color             color4           = White;

bool              Alert_On         = false;
bool              Arrows_On        = false;
bool              Email_Alert      = false;

extern string note1 = "Trix level colors";
extern  color HighLine_Color = FireBrick;
extern  color ZeroLine_Color = DimGray;
extern  color LowLine_Color = DarkGreen;
extern  int Line_style = 2;
extern  string note2 = "Cobra Label colors";
extern  color text1Color;
extern  color text2Color;
extern  color text3Color = Green;
extern  bool MsgAlerts = false;
extern  bool SoundAlerts = true;
extern  bool eMailAlerts = false;
extern  bool AlertOnTrixCross = true;
extern  bool AlertOnTrixSigCross = true;
extern  bool AlertOnSlopeChange = true;
extern  string TrixCrossSound = "trixcross.wav";
extern  int AnalyzeLabelWindow = 1;
extern  bool AnalyzeLabelonoff = true;
extern  int Trixnum_bars = 750;
extern  string seperator2 = "*** Convergence/Divergence Settings ***";
extern  int NumberOfDivergenceBars = 500;
extern  bool drawPriceTrendLines = true;
extern  bool drawIndicatorTrendLines = false;
extern  bool ShowIn1MChart = false;
extern  string _ = "--- Divergence Alert Settings ---";
extern  bool EnableAlerts = true;
extern  string _Info1 = "";
extern  string _Info2 = "------------------------------------";
extern  string _Info3 = "SoundAlertOnDivergence only works";
extern  string _Info4 = "when EnableAlerts is true.";
extern  string _Info5 = "";
extern  string _Info6 = "If SoundAlertOnDivergence is true,";
extern  string _Info7 = "then sound alert will be generated,";
extern  string _Info8 = "otherwise a pop-up alert will be";
extern  string _Info9 = "generated.";
extern  string _Info10 = "------------------------------------";
extern  string _Info11 = "";
extern  bool SoundAlertOnDivergence = true;
extern  bool EmailDivergenceAlerts = false;
extern  string __ = "--- Divergence Color Settings ---";
extern  color BullishDivergenceColor = DodgerBlue;
extern  color BearishDivergenceColor = FireBrick;
extern  string ___ = "--- Divergence Sound Files ---";
extern  string ClassicBullDivSound = "CBullishDiv.wav";
extern  string ReverseBullDivSound = "RBullishDiv.wav";
extern  string ClassicBearDivSound = "CBearishDiv.wav";
extern  string ReverseBearDivSound = "RBearishDiv.wav";

int res;
int lasttrend = 0;

int init()
  {
      // код доступен только после оплаты
   }

int deinit()
  {

         Comment("");

   return(0);
  }

int start()
  {
      // код доступен только после оплаты
   }

int CalculateCurrentOrders(string symbol)
  {
   int buys=0,sells=0;

   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
        {
         if(OrderType()==OP_BUY)  buys++;
         if(OrderType()==OP_SELL) sells++;
        }
     }

   if(buys>0) return(buys);
   else       return(-sells);
  }

double LotsOptimized()
  {
   double lot=Lots;
   int    orders=HistoryTotal();    
   int    losses=0;                 

   lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);

   if(DecreaseFactor>0)
     {
      for(int i=orders-1;i>=0;i--)
        {
         if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
         if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;

         if(OrderProfit()>0) break;
         if(OrderProfit()<0) losses++;
        }
      if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
     }

   if(lot<0.1) lot=0.1;
   if(MM==false) lot=Lots;
   if(AccountIsMicro==true) lot=lot/10;

   return(lot);
  }

void CheckForOpen()
{
      bool BuySignal1 = false, SellSignal1 = false;
      bool BuySignal2 = false, SellSignal2 = false;
      bool BuySignal3 = false, SellSignal3 = false;
      bool BuySignal4 = false, SellSignal4 = false;
      bool BuySignal5 = false, SellSignal5 = false;
      bool BuySignal6 = false, SellSignal6 = false;

      double coral = iCustom(NULL, 0, "THV3 Coral_THICK",Alert_On,Arrows_On,Email_Alert,0,0);

      double haOpen = iCustom(NULL, 0, "Heiken Ashi",color1,color2,color3,color4,2,0);
      double haClose = iCustom(NULL, 0, "Heiken Ashi",color1,color2,color3,color4,3,0);

      double haOpen1 = iCustom(NULL, 0, "Heiken Ashi",color1,color2,color3,color4,2,1);
      double haClose1 = iCustom(NULL, 0, "Heiken Ashi",color1,color2,color3,color4,3,1);

      double ssa = iIchimoku(NULL, 0, 2, 3, 5, MODE_SENKOUSPANA, 0);
      double ssb = iIchimoku(NULL, 0, 2, 3, 5, MODE_SENKOUSPANB, 0);
      int fasttrix = 0;
      int slowtrix = 0;

      double thvtrendDn = iCustom(NULL, 0, "THV3 trend",0,1);
      double thvtrendUp = iCustom(NULL, 0, "THV3 trend",1,1);
      double thvtrendFlat = iCustom(NULL, 0, "THV3 trend",2,1);

      fasttrix = trix("fast");
      slowtrix = trix("slow");

      if(UseSignal1)
      {
            if((haOpen < coral)) 
            {
                  SellSignal1 = true;
            } 
            if(haOpen > coral)   
            {
                  BuySignal1  = true;
            }
      }

      if(UseSignal2)
      {
            if(haOpen < ssb) 
            {
                  SellSignal2 = true;
            } 
            if(haOpen > ssa)   
            {
                  BuySignal2  = true;
            }
      }

      if(UseSignal3)
      {
            if(fasttrix == 2 && slowtrix == 4) 
            {
                  SellSignal3 = true;
            } 
            if(fasttrix == 1 && slowtrix == 3)   
            {
                  BuySignal3  = true;
            }
      }

      if(UseSignal4)
      {
            int iHour=TimeHour(LocalTime());
            int ValidTradeTime = F_ValidTradeTime(iHour);
            if(ValidTradeTime==true)
            {
                  BuySignal4=true;
                  SellSignal4=true;
            }
      }

      if(UseSignal5)
      {
            if(thvtrendDn > 0) 
            {
                  SellSignal5 = true;
            } 
            if(thvtrendUp > 0)   
            {
                  BuySignal5  = true;
            }
      }

      if(UseSignal6)
      {
            if(haOpen > haClose) 
            {
                  SellSignal6 = true;
            } 
            if(haOpen < haClose)   
            {
                  BuySignal6  = true;
            }
      }

      if((SellSignal1==true) && (SellSignal2==true) && (SellSignal3==true) && (SellSignal4==true) && (SellSignal5==true) && (SellSignal6==true))   
      {
            if(AccountFreeMargin()<(1000*LotsOptimized()))
            {
                  Print("We have no money. Free Margin = ", AccountFreeMargin());         
                  return(0);          
            }

            Print("thvtrendDn:",DoubleToStr(thvtrendDn,4),";thvtrendUp:",DoubleToStr(thvtrendUp,4),";thvtrendFlat:",DoubleToStr(thvtrendFlat,4),";Sell|Coral: ",DoubleToStr(coral,4),";haOpen: ",haOpen,";ssa:",ssa,";ssb",ssb);
            if((lasttrend == 1) || (lasttrend == 0)) //res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"THV ea",MAGICMA,0,Red);
            Alert("Sell Signal on ",Symbol()," -> ",Period());
            lasttrend = -1;
            ret

Показано первые 50% кода (символов: 12507)