//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
{
   //変数の宣言
   int cnt, CurrentPosition;
   int Ticket;
   double kakoa,gennzaia;
   double kakob,gennzaib;
     
   // オーダーチェック（ポジションなどのデータ）
   CurrentPosition=-1;
   for(cnt=0;cnt<OrdersTotal();cnt++){
      OrderSelect(cnt,SELECT_BY_POS);
      if(OrderSymbol() == Symbol()) CurrentPosition=cnt;
   }

   //一時間前の２１日線
   kakoa = iMA(NULL,0,21,0,MODE_SMA,PRICE_CLOSE,1);
   //一時間前の９０日線
   kakob = iMA(NULL,0,90,0,MODE_SMA,PRICE_CLOSE,1);

   //現在の２１日線
   gennzaia = iMA(NULL,0,21,0,MODE_SMA,PRICE_CLOSE,0);
   //現在の９０日線
   gennzaib = iMA(NULL,0,90,0,MODE_SMA,PRICE_CLOSE,0);


   // ポジションチェック　ポジション無し
   if(CurrentPosition == -1)
   {   
      //もし２１日線が９０日線を下から上にクロスしたら
      if( kakoa < kakob && gennzaia >= gennzaib)      
      {
         //買いポジションを取る  
         //Ticket = OrderSend(Symbol(), OP_BUY, 1, Ask, 3, Ask-(50*Point), Ask+(50*Point), "Buy", 0, 0, Blue);
          Ticket = OrderSend(Symbol(), OP_BUY, 1, Ask, 3, 0,0, "Buy", 0, 0, Blue);     
      }  
      
         
           
   // ポジション有り
   } else {
      
      //ポジションの選択
      OrderSelect(CurrentPosition,SELECT_BY_POS);
      
      //ポジションの確認
      if(OrderSymbol() == Symbol())
      {  
         //もし買いポジションだったら
         if(OrderType()==OP_BUY)    
         {
            //もし２１日線が９０日線を上から下にクロスしたら
            if( kakoa > kakob && gennzaia <= gennzaib)
            {
               //手仕舞い
               OrderClose(OrderTicket(),OrderLots(),Bid,3,Green);
            }
         
         }
      }
   
      
   }
   return(0);
}






// the end.
//+------------------------------------------------------------------+