TRUE_SCALPER

extern double Lots=1.0;
extern int    MyPeriod=14;
extern int    TakeProfit=100;
extern int    StopLoss=0;
extern int    TrailingStop=5;
extern int    Slippage=2;
extern int    BuyLevel=0;
extern int    SellLevel=0;

datetime newbar=0;

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

int deinit()
  {
   return(0);
  }

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

   double p=Point();
   int      cnt=0;
   int      i=0;
   int      ProfitMade=2;
   int      OrdersPerSymbol=0;

   bool      found=false;
   bool     rising=false;
   bool    falling=false;
   bool      cross=false;

   double  bull=0;
   double  bear=0;

   double RSI=0;
   bool  RSIPOS=0;
   bool  RSINEG=0;
   double  lobar=0;
   double  highbar=0; 
   double sl=0,tp=0;

   if(AccountFreeMargin()<(1000*Lots))        {Print("-----NO MONEY"); return(0);}
   if(Bars<100)                               {Print("-----NO BARS "); return(0);}
   if (TakeProfit<10)                         {Print("TakeProfit<10"); return(0);}

   if (newbar == Time[0])                     {                        return(0);}
   newbar=Time[0];

   bull=iMA(Symbol(),0,3,0,MODE_EMA,PRICE_CLOSE,1);
   bear=iMA(Symbol(),0,7,0,MODE_EMA,PRICE_CLOSE,1);

   RSI=iRSI(Symbol(),0,2,PRICE_CLOSE,2); //>50
   if(RSI>50) RSIPOS=true;  else RSIPOS=false;
   if(RSI<50) RSINEG=false; else RSIPOS=true;

   lobar=Low[Lowest(MODE_LOW,19,19)];
   highbar=High[Highest(MODE_HIGH,19,19)];

   OrdersPerSymbol=0;
   for(cnt=OrdersTotal();cnt>=0;cnt--)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if( OrderSymbol()==Symbol() )
        {
         OrdersPerSymbol++;
        }
     }

   if(OrdersPerSymbol<1)
     {
      if(bull>bear && RSINEG)
		  {
    

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