//+------------------------------------------------------------------+
//| 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-(200*Point), Ask+(200*Point), "Buy", 0, 0, Blue);  
      }  
   }
   return(0);
}






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