Форум трейдеров » Торговые роботы, советники, индикаторы » Эксперты, индикаторы, мтс, и т.д. - бесплатные
+ Подписаться
Страница 77 из 130 ПерваяПервая ... 2767757677787987127 ... ПоследняяПоследняя
  1. 6,556
    Комментарии
    18
    Темы
    6883
    Репутация Pro
    Аватар для greych  
    Старожил

    7 Медалей
    Цитата Сообщение от Жека Посмотреть сообщение
    ..и на счёт йены не понял..
    при переходе на йену здесь нужно переключать параметры, это не удобно
  2. 32
    Комментарии
    2
    Темы
    32
    Репутация Pro
     
    Новичок

    2 Медалей
    Цитата Сообщение от greych Посмотреть сообщение
    при переходе на йену здесь нужно переключать параметры, это не удобно
    ага ..понятно
  3. 185
    Комментарии
    9
    Темы
    185
    Репутация Pro
     
    В начале пути

    3 Медалей
    Цитата Сообщение от Максимъ Посмотреть сообщение
    Функия вроде проста, но я не понимаю:

    Код:
    inparam("мин.длина свечи",10,30,15);
    По моему если писать на MQl это будет так:
    extern int min_length_candle=15;
    Т.е. min_length_candle - это мин.длина свечи
    Первые два числа (10 и 30) обозначают смещение по осям X и Y в окне настроек индикатора. В метасе так, а этот язык точная копия. В ветке, на которую давал вчера ссылку, я делал именно так, т.е. для ввода значений в настройках индикатора использовал inparam(" ",x,y,-); Точно также наверное и здесь
  4. 4,819
    Комментарии
    10
    Темы
    4852
    Репутация Pro
    Аватар для Максимъ  
    Снеговик-флудовик

    5 Медалей
    Цитата Сообщение от Necron Посмотреть сообщение
    По моему если писать на MQl это будет так:
    extern int min_length_candle=15;
    Да, так и будет. :)

    Выспался, пойду попробую... правда что с прорисовкой будет... :unsure:
  5. 4,819
    Комментарии
    10
    Темы
    4852
    Репутация Pro
    Аватар для Максимъ  
    Снеговик-флудовик

    5 Медалей
    Доброй ночи. :)

    С Руланга переписал. Дальше платно. :D
    В общем теперь дело за выводом. Как поступим?

    Код:
    //+------------------------------------------------------------------+
    //|                                                       Candle.mq4 |
    //|                                        Copyright © 2009, Максимъ |
    //|                                            http://shestakov.org/ |
    //+------------------------------------------------------------------+
    #property copyright "Copyright © 2009, Максимъ"
    #property link      "http://shestakov.org/"
    
    /*
    #property indicator_separate_window
    #property indicator_minimum 1
    #property indicator_maximum 10
    */
    
    //---- variable
    int shift,x,xa,xb,xc,xd,xe,xf,xar,x1,xa1,xb1,xc1,xd1,xe1,xf1,xar1,xv,
                                                                     xv1;
    double min,max,telo2,telo1,telo3;
    /*
    line0=0; 
    line0; 
    line2=2; 
    line3=3; 
    line4=4; 
    linea2=-2; 
    linea3=-3; 
    linea4=-4; 
    line2;line3;line4;linea2;linea3;linea4;
    */
    //---- input parameters
    extern int       minz=15;//минимальная длина свечи
    extern int       maxz=20;//максимальная длина волчка
    extern int       telo2z=15;//минимальная длина 2 тела в комбинации
    extern int       telo1z=10;//минимальная длина 1 тела в комбинации
    extern int       telo3z=10;//минимальная длина 2 тела в харами
    //---- not
    //extern int       ggx=1;//1 - с йеной, 2 - без йены
    //+------------------------------------------------------------------+
    //| Custom indicator initialization function                         |
    //+------------------------------------------------------------------+
    int init()
      {
    //---- indicators
    //----
       return(0);
      }
    //+------------------------------------------------------------------+
    //| Custom indicator deinitialization function                       |
    //+------------------------------------------------------------------+
    int deinit()
      {
    //----
       
    //----
       return(0);
      }
    //+------------------------------------------------------------------+
    //| Custom indicator iteration function                              |
    //+------------------------------------------------------------------+
    int start()
      {
       int    counted_bars=IndicatorCounted();
    //----
       /*if (ggx==1)
       {
       gg=0.01;
       }
       else if (ggx==2)
       {
       gg=0.0001;
       }
       else Print("Значение параметера gg может быть только 1 или 2");*/
       
       min=minz*MarketInfo(Symbol(),MODE_POINT); 
       max=maxz*MarketInfo(Symbol(),MODE_POINT); 
       telo2=telo2z*MarketInfo(Symbol(),MODE_POINT); 
       telo1=telo1z*MarketInfo(Symbol(),MODE_POINT); 
       telo3=telo3z*MarketInfo(Symbol(),MODE_POINT);
    //+------------------------------------------------------------------+
    //---- белое эскимо и белый зонтик
       //if c>o and h-l>min and c-o<=o-l  and h-c<(o-l)/3 then x=4; 
       if ((iClose(NULL,0,shift)>iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))<=
       (iOpen(NULL,0,shift)-iLow(NULL,0,shift)))&&
       ()(iHigh(NULL,0,shift)-iClose(NULL,0,shift))<
       ((iOpen(NULL,0,shift)-iLow(NULL,0,shift))/3))
       {
       x=3;
       }
       
    //---- черное эскимо
       //if c<o and h-l>min and o-c<c-l  and h-o<(c-l)/3 then xa=3;
       if ((iClose(NULL,0,shift)<iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))<
       (iOpen(NULL,0,shift)-iLow(NULL,0,shift)))&&
       ((iHigh(NULL,0,shift)-iOpen(NULL,0,shift))<
       ((iClose(NULL,0,shift)-iLow(NULL,0,shift))/3)))
       {
       xa=3;
       }
       
    //---- черный зонтик
       //if c<o and h-l>min and o-c<(c-l)/3 and h-o<(c-l)/3 then xb=4;
       if (
       (iClose(NULL,0,shift)<iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))<
       ((iClose(NULL,0,shift)-iLow(NULL,0,shift))/3))&&
       ((iHigh(NULL,0,shift)-iOpen(NULL,0,shift))<
       ((iClose(NULL,0,shift)-iLow(NULL,0,shift))/3))
       )
       {
       xb=4;
       }
       
    //---- бесцветный зонтик
       //if c=o and h-l>min and h-o<(c-l)/3 then xc=4;
       if ((iClose(NULL,0,shift)==iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iHigh(NULL,0,shift)-iOpen(NULL,0,shift))<
       ((iClose(NULL,0,shift)-iLow(NULL,0,shift))/3)))
       {
       xc=4;
       }
       
    //---- поглощение
       /*no=ref(o,-1);nc=ref(c,-1);
       if  nc<no and c-o>telo1 and o<=nc and c>=no then xd=4;*/
       if ((iOpen(NULL,0,shift-1)>iClose(NULL,0,shift-1))&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))>telo1)&&
       (iOpen(NULL,0,shift)<=iClose(NULL,0,shift-1))&&
       (iClose(NULL,0,shift)>=iOpen(NULL,0,shift-1)))
       {
       xd=4;
       }
       
    //---- просвет в облаках
       /*pol=no-((no-nc)/2);
       if  no-nc>telo1 and nc<no and c-o>telo2 and o<nc and c>=pol
       and c<no then xe=3;*/
       if (((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))>telo1)&&
       (iClose(NULL,0,shift-1)<iOpen(NULL,0,shift-1))&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))>telo2)&&
       (iOpen(NULL,0,shift)<iClose(NULL,0,shift-1))&&
       (iClose(NULL,0,shift)>=(iOpen(NULL,0,shift-1)-
       ((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))/2)))&&
       (iClose(NULL,0,shift)<iOpen(NULL,0,shift-1)))
       {
       xe=3;
       }
       
    //---- проникающие линии
       /*if  no-nc>telo1 and nc<no and c-o>telo2 and c>no and o<=pol
       and o>nc then xf=3;*/
       if (((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))>telo1)&&
       (iClose(NULL,0,shift-1)<iOpen(NULL,0,shift-1))&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))>telo2)&&
       (iClose(NULL,0,shift)>iOpen(NULL,0,shift-1))&&
       (iOpen(NULL,0,shift)<=(iOpen(NULL,0,shift-1)-
       ((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))/2)))&&
       (iOpen(NULL,0,shift)>iClose(NULL,0,shift-1)))
       {
       xf=3;
       }
    
    //---- харами
       /*if nc<no and no-nc>telo1 and c-o>telo3 and o>=nc and c<no
       then xar=2;*/
       if ((iClose(NULL,0,shift-1)<iOpen(NULL,0,shift-1))&&
       ((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))>telo1)&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))>telo3)&&
       (iOpen(NULL,0,shift)>=iClose(NULL,0,shift-1))&&
       iClose(NULL,0,shift)<iOpen(NULL,0,shift-1))
       {
       xar=2;
       }
       
    //+------------------------------------------------------------------+
    //---- черное эскимо и зонтик 
       //if c<o and h-l>min and o-c<=h-o and c-l<(h-o)/3 then x1=-4;
       if (
       (iClose(NULL,0,shift)<iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))<=
       (iHigh(NULL,0,shift)-iOpen(NULL,0,shift)))&&
       ((iClose(NULL,0,shift)-iLow(NULL,0,shift))<
       ((iHigh(NULL,0,shift)-iOpen(NULL,0,shift))/3))
       )
       {
       x1=-4;
       }
       
    //---- белое эскимо
       //if c>o and h-l>min and c-o<h-c and o-l<(h-c)/3 then xa1=-3;
       if ((iClose(NULL,0,shift)>iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))<
       (iHigh(NULL,0,shift)-iClose(NULL,0,shift)))&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))<
       ((iHigh(NULL,0,shift)-iClose(NULL,0,shift))/3)))
       {
       xa1=-3;
       }
       
    //---- белый зонтик
       //if c>o and h-l>min and c-o<(h-c)/3 and o-l<(h-c)/3 then xb1=-4;
       if ((iClose(NULL,0,shift)>iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))<
       ((iHigh(NULL,0,shift)-iClose(NULL,0,shift))/3))&&
       ((iOpen(NULL,0,shift)-iLow(NULL,0,shift))<
       ((iHigh(NULL,0,shift)-iClose(NULL,0,shift))/3)))
       {
       xb1=-4;
       }
       
    //---- бесцветный зонтик (о=з)
       //if c=o and h-l>min and o-l<(h-c)/3 then xc1=-4;
       if ((iClose(NULL,0,shift)==iOpen(NULL,0,shift))&&
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))>min)&&
       ((iOpen(NULL,0,shift)-iLow(NULL,0,shift))<
       ((iHigh(NULL,0,shift)-iClose(NULL,0,shift))/3)))
       {
       xc1=-4;
       }
       
    //---- поглащение
       /*if nc-no>telo1 and nc>no and o-c>telo2 and c<=no and o>=nc
       then xd1=-4;*/
       if (
       ((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))>telo1)&&
       (iClose(NULL,0,shift-1)>iOpen(NULL,0,shift-1))&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))>telo2)&&
       (iClose(NULL,0,shift)<=iOpen(NULL,0,shift-1))&&
       (iOpen(NULL,0,shift)>=iClose(NULL,0,shift-1))
       )
       {
       xd1=-4;
       }
       
    //---- завеса из темных облаков
       /*pol1=nc-((nc-no)/2); 
       if nc-no>telo1 and nc>no and o-c>telo2 and o>nc and c<=pol1 and
       c>no then xe1=-3;*/
       if (((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))>telo1)&&
       (iClose(NULL,0,shift-1)>iOpen(NULL,0,shift-1))&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))>telo2)&&
       (iOpen(NULL,0,shift)>iClose(NULL,0,shift-1))&&
       (iClose(NULL,0,shift)<(iClose(NULL,0,shift-1)-
       ((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))/2)))&&
       (iClose(NULL,0,shift)>iOpen(NULL,0,shift-1)))
       {
       xe1=-3;
       }
       
    //---- проникающие линии
       /*if  nc-no>telo1 and no<nc and o-c>telo2 and o>=pol1 and c<no and
       o<nc then xf1=-3;*/
       if (((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))>telo1)&&
       (iOpen(NULL,0,shift-1)<iClose(NULL,0,shift-1))&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))>telo2)&&
       (iOpen(NULL,0,shift)>=(iClose(NULL,0,shift-1)-
       ((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))/2)))&&
       (iClose(NULL,0,shift)<iOpen(NULL,0,shift-1))&&
       (iOpen(NULL,0,shift)<iClose(NULL,0,shift-1)))
       {
       xf1=-3;
       }
       
    //---- харами
       /*if nc>no and nc-no>telo1 and o-c>telo3 and o<=nc and c>no
       then xar1=-2;*/
       if ((iClose(NULL,0,shift-1)>iOpen(NULL,0,shift-1))&&
       ((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))>telo1)&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))>telo3)&&
       (iOpen(NULL,0,shift)<=iClose(NULL,0,shift-1))&&
       iClose(NULL,0,shift)>iOpen(NULL,0,shift-1))
       {
       xar1=-2;
       }
       
    //+------------------------------------------------------------------+
    //---- белый волчок
       //if h-l<max and c>o and c-o>=(h-l)/2 and o-l>h-c then xv=2;
       if (((iHigh(NULL,0,shift)-iLow(NULL,0,shift))<max)&&
       (iClose(NULL,0,shift)>iOpen(NULL,0,shift))&&
       ((iClose(NULL,0,shift)-iOpen(NULL,0,shift))>=
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))/2))&&
       ((iOpen(NULL,0,shift)-iLow(NULL,0,shift))>
       (iHigh(NULL,0,shift)-iClose(NULL,0,shift))))
       {
       xv=2;
       }
       
    //---- черный волчок
       //if h-l<max and c<o and o-c>=(h-l)/2 and h-o>c-l then xv1=-2;
       if (((iHigh(NULL,0,shift)-iLow(NULL,0,shift))<max)&&
       (iClose(NULL,0,shift)<iOpen(NULL,0,shift))&&
       ((iOpen(NULL,0,shift)-iClose(NULL,0,shift))>=
       ((iHigh(NULL,0,shift)-iLow(NULL,0,shift))/2))&&
       ((iHigh(NULL,0,shift)-iOpen(NULL,0,shift))>
       (iClose(NULL,0,shift)-iLow(NULL,0,shift))))
       {
       xv1=-2;
       }
       
    //+------------------------------------------------------------------+
    //---- используемые
       /*
             iOpen(NULL,0,shift)
             iClose(NULL,0,shift)
             iHigh(NULL,0,shift)
             iLow(NULL,0,shift)
       no=   iOpen(NULL,0,shift-1)
       nc=   iClose(NULL,0,shift-1)
       pol=  (iOpen(NULL,0,shift-1)-
             ((iOpen(NULL,0,shift-1)-iClose(NULL,0,shift-1))/2))
       pol1= (iClose(NULL,0,shift-1)-
             ((iClose(NULL,0,shift-1)-iOpen(NULL,0,shift-1))/2))
       */
    
    
       return(0);
      }
    //+------------------------------------------------------------------+
  6. 212
    Комментарии
    4
    Темы
    212
    Репутация Pro
     
    В начале пути

    2 Медалей

    Господа! Нигде не могу найти для меты трендовый индикатор Hi-Lo. Если кто может подскажите где его можно взять. Заранее спасибо.
  7. 6,556
    Комментарии
    18
    Темы
    6883
    Репутация Pro
    Аватар для greych  
    Старожил

    7 Медалей
    Цитата Сообщение от Андрей Малевич Посмотреть сообщение
    Господа! Нигде не могу найти для меты трендовый индикатор Hi-Lo. Если кто может подскажите где его можно взять. Заранее спасибо.
    может что-нить здесь будет
    Вложения Вложения
    • Тип файла: rar HiLo.rar (8.5 Кб, Просмотров: 61)
  8. 1
    Комментарии
    0
    Темы
    1
    Репутация Pro
     
    Новичок

    2 Медалей
    доброго времени суток! хочу поделиться одним бесплатным советником и книгой по его настройке. может кому понравится - пользуйтесь на здоровье :)
    путь: http://saperwm.ru/files/forex5step.zip
  9. 959
    Комментарии
    25
    Темы
    967
    Репутация Pro
     
    В начале пути

    4 Медалей
    Максимъ, сравните.
    Там также свечи обсчитывают.
    Вложения Вложения
  10. 4,819
    Комментарии
    10
    Темы
    4852
    Репутация Pro
    Аватар для Максимъ  
    Снеговик-флудовик

    5 Медалей
    Цитата Сообщение от yuripk Посмотреть сообщение
    Максимъ, сравните.
    Там также свечи обсчитывают.
    Сравнивать нечего еще, я написал только алгоритм, без вывода, но автор куда-то делся. Зря писал. :)

    Сначала подумал, что код обфусцированный, хотя от части может автор и пытался это сделать, трудно код читать.

Вверх
РегистрацияX

чтобы писать, читать, комментировать