ForoSecciones

Distrito 6 - página 35

Nuevo comentario
Deténgase - no aplique, ha habido un error. Lo arreglaré.
Dr.Drain:
parece que es el momento de poner un condensador? :-)))

No, doctor tardío, es hora de un diagnóstico. 
//+------------------------------------------------------------------+
//|                                                _2_DoidsSheme.mq4 |
//|           Copyright © 2012. XrustSolution. mail:xrustx@gmail.com |
//|          https://www.youtube.com/user/opmlv http://forexrust.info |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2012. XrustSolution. mail:xrustx@gmail.com"
#property link      "https://www.youtube.com/user/opmlv http://forexrust.info"
//+------------------------------------------------------------------+
//| Super Global Variables                                           |
//+------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Red
//+------------------------------------------------------------------+
//| Extern Variables                                                 |
//+------------------------------------------------------------------+
extern string  ЕмкостьКонденсатора          = "= Начальный период МА";
extern    int  Capacity                                     = 50      ;
extern string  СопротивлениеУтечки                  = " конденсатора";
extern double  Resistance_C1                                = 100    ;
extern string  Резистор_В_Цепи_Заряда               = " конденсатора";
extern double  Resistance_R1                                = 0.13     ;
extern string  Резистор_В_Цепи_Разряда              = " конденсатора";
extern double  Resistance_R2                                = 0.1     ;
extern string  Порог_пробоя_Варистора               = "Максимальный период";
extern double  SafePerid                                    = 100    ;
extern string  МетодСбросаЗаряда                    = "true=Ограничение/false=Сброс на 0";
extern   bool  ResetMetod                                   = true   ;
extern    int  MoovingMetod                                 = 0      ;
extern    int  MoovingPrice                                 = 0      ;
//+------------------------------------------------------------------+
//|   Includes                                                                  |
//+------------------------------------------------------------------+
//#include <OBJECTS_CLASSES.mqh>
//#include <AlertsAndSounds.mqh>//GetInfo("");          
//+------------------------------------------------------------------+
//|   Defines & Global variavles                                     |
//+------------------------------------------------------------------+
#define empty  EMPTY_VALUE

//+------------------------------------------------------------------+
//--- buffers
double diods[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void init(){
        //---- indicators
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,diods);
        //----
return;}
//+------------------------------------------------------------------+
void deinit(){return;}
//+------------------------------------------------------------------+
void start(){
        //----
                
        //----
        static int preLimit=0;
        static double prerp = 0;         
   int i, ii, x, y, counted = IndicatorCounted();
   if (counted > 0) counted--;
   int limit = Bars - counted;
   int per   = Period();
   string sy = Symbol();
   string txt="";
   double res=0,pres=0,diff=0,pdiff=0,koff=0;
   if(limit<=preLimit){limit=preLimit+1;}
        //----
   for(i=5000;i>=0;i--){
        res = iMA(sy,per,1,0,MoovingMetod,MoovingPrice,i);
        diff =  MathAbs(res-iMA(sy,per,1,0,MoovingMetod,MoovingPrice,i+1));
        if(diff > pdiff){
          koff-=MathAbs(diff-pdiff)/Resistance_R1;
        }else
        if(diff < pdiff){
          koff+=MathAbs(diff-pdiff)/Resistance_R2;
        }
        koff-=1/Resistance_C1;          
        
        pdiff=diff;
        if(koff>SafePerid){
          if(ResetMetod){
             koff = koff-SafePerid;
          }else{
             koff = 0;
          }   
        }
        if(koff<-(Capacity-1)){koff=-Capacity+1;}
        if(Capacity+koff>preLimit){preLimit = Capacity+koff;}
        diods[i] = iMA(sy,per,Capacity+koff,0,MoovingMetod,MoovingPrice,i+1);
   }
   
        //----
return;}
//+------------------------------------------------------------------+
C-4:

No, es tarde doctor, es hora de un diagnóstico.

No nos impida divertirnos : )
[Eliminado]
FAQ:
Es un indicador bastante blando el que tienes ahí. 
//+------------------------------------------------------------------+
//|                                                _2_DoidsSheme.mq4 |
//|           Copyright © 2012. XrustSolution. mail:xrustx@gmail.com |
//|          https://www.youtube.com/user/opmlv http://forexrust.info |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2012. XrustSolution. mail:xrustx@gmail.com"
#property link      "https://www.youtube.com/user/opmlv http://forexrust.info"
//+------------------------------------------------------------------+
//| Super Global Variables                                           |
//+------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Blue
//+------------------------------------------------------------------+
//| Extern Variables                                                 |
//+------------------------------------------------------------------+
extern string  ЕмкостьКонденсатора          = "= Начальный период МА";
extern    int  Capacity                                     = 50      ;
extern string  СопротивлениеУтечки                  = " конденсатора";
extern double  Resistance_C1                                = 100    ;
extern string  Резистор_В_Цепи_Заряда               = " конденсатора";
extern double  Resistance_R1                                = 0.3     ;
extern string  Резистор_В_Цепи_Разряда              = " конденсатора";
extern double  Resistance_R2                                = 0.1     ;
extern string  Порог_пробоя_Варистора               = "Максимальный период";
extern double  SafePerid                                    = 100    ;
extern string  МетодСбросаЗаряда                    = "true=Ограничение/false=Сброс на 0";
extern   bool  ResetMetod                                   = true   ;
extern    int  MoovingMetod                                 = 0      ;
extern    int  MoovingPrice                                 = 0      ;
//+------------------------------------------------------------------+
//|   Includes                                                                  |
//+------------------------------------------------------------------+
//#include <OBJECTS_CLASSES.mqh>
//#include <AlertsAndSounds.mqh>//GetInfo("");          
//+------------------------------------------------------------------+
//|   Defines & Global variavles                                     |
//+------------------------------------------------------------------+
#define empty  EMPTY_VALUE

//+------------------------------------------------------------------+
//--- buffers
double diods[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void init(){
        //---- indicators
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,diods);
        //----
return;}
//+------------------------------------------------------------------+
void deinit(){return;}
//+------------------------------------------------------------------+
void start(){
        //----
                
        //----
        static int preLimit=0;
        static double prerp = 0;         
   int i, ii, x, y, counted = IndicatorCounted();
   if (counted > 0) counted--;
   int limit = Bars - counted;
   int per   = Period();
   string sy = Symbol();
   string txt="";
   double res=0,pres=0,diff=0,pdiff=0,koff=0;
   if(limit<=preLimit){limit=preLimit+1;}
        //----
   for(i=5000;i>=0;i--){
        res = iMA(sy,per,Capacity+koff,0,MoovingMetod,MoovingPrice,i);
        diff =  MathAbs(res-iMA(sy,per,Capacity+koff,0,MoovingMetod,MoovingPrice,i+1));
        if(diff > pdiff){
          koff-=MathAbs(diff-pdiff)/Resistance_R1;
        }else
        if(diff < pdiff){
          koff+=MathAbs(diff-pdiff)/Resistance_R2;
        }
        koff-=1/Resistance_C1;          
        
        pdiff=diff;
        if(koff>SafePerid){
          if(ResetMetod){
             koff = koff-SafePerid;
          }else{
             koff = 0;
          }   
        }
        if(koff<-(Capacity-1)){koff=-Capacity+1;}
        if(Capacity+koff>preLimit){preLimit = Capacity+koff;}
        diods[i] = iMA(sy,per,Capacity+koff,0,MoovingMetod,MoovingPrice,i+1);
   }
   
        //----
return;}
//+------------------------------------------------------------------+

Con comentarios

DmitriyN:
Es un indicador bastante blando el que tienes ahí.

¿Qué esperabas de él?
[Eliminado]
FAQ:
Escucha, Rustam, ¿puedes convertir cualquier esquema en código MQL? No lo digo en broma, lo pregunto en serio.

MQL => Esquema : ninguna pregunta

Scheme =>MQL : Hasta donde la matriz del lenguaje lo permita.

Sólo en el primer caso no me pidas que lo haga en plancha, me da pereza :))

... Hm. La primera variante necesita un poco más de excavación (para ajustarla a las realidades del mercado) y puede ser enviada a la base. No está mal para un MA adaptativo.
1...282930313233343536373839404142...78
Nuevo comentario