Автоматические торговые системы, Идеи, эксперименты... Опции

[leonid553]

С некоторых пор пришел к выводу, что, например, для меня более целесообразна автоматическая (в т.ч. "портфельная") торговля! Эксперты работают без эмоций, и при моем скромном опыте такая торговля оказывается более выгодной, чем "вручную" !
К сож. мой стаж на форексе - чуть более полутора лет, а вникать в MQL4 я начал всего лишь несколько месяцев назад.
Поэтому многие изложенные мысли могут показаться наивными. Но я их не навязываю, - а всего лишь предлагаю к рассмотрению всем, кому интересно.

Для начала выложу одно из первых моих "творений" - советник для пары GBPUSD, H1.
Сработан при реализации идей Ю.Решетова в адресе:
http://www.tradersforum.net.ru/forum/index.php?showtopic=629
При этом в советнике предусмотрен0:

1. Работа по "ЦЕНАМ ОТКРЫТИЯ" баров, и тесты следует делать тоже только в этом режиме! - тест идет доли секунды даже на многолетней истории, и качество модулирования почти не страдает от некорректных котировок!
2. Ограничение по дате использования до 22 июля с.г.
3. Советник находится в рынке постоянно, - т.е. работает не закрытием позиций, а их переворотом!
4. Используется индикатор Стохастик, период которого можно изменять в параметрах.
5. Используется библиотека расчета лотов (ММ), кот. следует положить в папку experts/include
6. Работать строго по паре GBPUSD, H1

В закачке ниже приложена библиотека b-lots, без которой советник не будет работать.
Тесты выполнялись на параметрах подобранных на МТ4 Метаквотов

[leonid553]

Для удобства предусмотрем работу советника по ценам открытия.
Возьмем пару GBPUSD, и тф Н4.
тогда получим -

Код

//+------------------------------------------------------------------+
//|                                                                  |
//|                                  Copyright © 2007, Tradersforum. |
//|                                  http://www.tradersforum.net.ru/ |
//|                                     Leonid553                    |
//+------------------------------------------------------------------+

#property copyright "Leonid553  http://www.tradersforum.net.ru/forum/"
#property link      "http://www.tradersforum.net.ru/"
//---- input parameters
extern int     NL_length=98;
extern int     NL_l=9;

extern double sl = 86;
extern double tp = 86;
extern double lots = 0.1;
extern int    MagicNumber = 888;
static int    prevtime = 0;
static int    spread = 3;


//-- Подключаемые модули --
//#include  <b-Lots.mqh>  //Переменный лот

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   return(0);
  }

int deinit()
  {
   return(0);
  }
int start()
  {
   if(Time[0] == prevtime)
       return(0);  
   prevtime = Time[0];

   if(IsTradeAllowed())
     {
       spread = MarketInfo(Symbol(), MODE_SPREAD);
     }
   else
     {
       prevtime = Time[1];
       return(0);
     }
     int ticket = -1;
     int total = OrdersTotal();  
    if(total<1)
    { double NLa=iCustom(NULL,0,"NonLagMA_v5",0,NL_l,1,0,0,0,0,0,0);
      double NLb=iCustom(NULL,0,"NonLagMA_v5",0,NL_l,1,0,0,0,0,0,1);  
    //-----------------------------------------------------------------  
  
   if   (   na()>nb() && nb()>nc()&& NLa >na()&& NLb <na() )
     {
       //покупаем
       ticket = OrderSend(Symbol(), OP_BUY, lots, Ask, 3, Bid - sl * Point, Ask+tp*Point,
                      "ST", MagicNumber, 0, Blue);
       if(ticket < 0)
         {
           Sleep(30000);
           prevtime = Time[1];
         }
     }
  if  (   na()<nb() && nb()<nc() && NLa <na()&& NLb >na())
     {
       // продаем
       ticket = OrderSend(Symbol(), OP_SELL, lots, Bid, 3, Ask + sl * Point, Bid-tp*Point,
                      "ST", MagicNumber, 0, Red);
       if(ticket < 0)
         {
           Sleep(30000);
           prevtime = Time[1];
         }
        }
       }
   return(0);
  }

//----------------------------------------------------------------------------      
   double na()
  {double NL0=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,0);
   double NL1=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,1);
     return ((NL0+NL1)*0.5);}

       double nb()
   {double NL2=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,2);
    double NL3=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,3);
     return ((NL3+NL2)*0.5);}
    
        double nc()
   {double NL4=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,4);
    double NL5=iCustom(NULL,0,"NonLagMA_v5",0,NL_length,1,0,0,0,0,0,5);
     return ((NL4+NL5)*0.5);}      
      
      //  покупка   (   na()>nb() && na()>nc() && nc()>nb())
      //  продажа (   na()<nb() && na()<nc() && nc()<nb())