heikinashi

//+------------------------------------------------------------------+
//|                                                   heikinashi.mq4 |
//|                                      Copyright 2008, FX scalper  |
//|                                                                  |
//+------------------------------------------------------------------+


#property copyright "Copyright  2008, FXscalper"
#property link      ""




// “ü—̓pƒ‰ƒ[ƒ^’è‹`
extern double Lots = 1.0;
extern int SlipPage = 3;
extern  int Profit = 1000;
extern int StopLoss = 1000;




// ƒ}ƒWƒbƒNƒiƒ“ƒo[’è‹`
int MagicNumber = 111111;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  
  
    
//----
   // ‹¤’ʕϐ”’è‹`
   int ticket,  i;
  
   
      
     
// •½‹Ï‘«‚̎擾 
  double haopen , haclose;
   haopen=iCustom(NULL,0,"Heiken Ashi",2,1);
   haclose=iCustom(NULL,0,"Heiken Ashi",3,1);
 
 
   
  
   
   // ƒ|ƒWƒVƒ‡ƒ“‚̃`ƒFƒbƒN
   int buyTicket = -1; int sellTicket = -1;
   for (i = 0; i < OrdersTotal(); i++) {
      if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES) == true) {
         if(OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber) {
            if (OrderType() == OP_BUY) buyTicket = OrderTicket();
            else if (OrderType() == OP_SELL) sellTicket = OrderTicket();
         }
      }
   }

 
  

   if (buyTicket == -1  ) {
     //ƒo[‚ÌŽn’l‚Å‚È‚¯‚ê‚Ώˆ—–³‚µ
   if(Volume[0] > 1 || IsTradeAllowed() == false) return(0);

      if (  haopen<haclose) {
      
         // ”ƒ‚¢’•¶‚ð”­’‚·‚é
         ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, SlipPage, 
                                    Ask-StopLoss*Point,Ask+Profit*Point, NULL, MagicNumber, 0, Blue);
        
      } 
      }
      
   if (sellTicket == -1  ) {
    //ƒo[‚ÌŽn’l‚Å‚È‚¯‚ê‚Ώˆ—–³‚µ
   if(Volume[0] > 1 || IsTradeAllowed() == false) return(0);
   
       if (haopen>haclose) {
         // ”„‚蒍•¶‚ð”­’‚·‚é
         ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, SlipPage, 
                                    Bid+StopLoss*Point,Bid-Profit*Point, NULL, MagicNumber,0 , Red);
         
      }
   }


   // ƒNƒ[ƒYðŒ
   if (buyTicket != -1 && haopen>=haclose  ) {
      // ”ƒ‚¢’•¶‚ðŒˆÏ‚·‚é
      if (OrderClose(buyTicket, OrderLots(), Bid, SlipPage, Blue) == false) {
         
      }
   } else if (sellTicket != -1 && haopen<=haclose) {
      // ”„‚蒍•¶‚ðŒˆÏ‚·‚é
      if (OrderClose(sellTicket, OrderLots(), Ask, SlipPage, Red) == false) {
         
      }
   }

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