Koğuş №6 - sayfa 35

Yeni yorum
 
Dur - uygulamayın, bir hata bulundu. hemen düzelteceğim
 
Dr.Drain :
Sanırım bir kondansatör koymanın zamanı geldi mi? :-)))

Hayır, çok geç doktor, teşhis koyma zamanı.
  
//+------------------------------------------------------------------+
//|                                                _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 :

Hayır, çok geç doktor, teşhis koyma zamanı.

hadi eğlenelim :)
 
FAQ:
Bir mashkoobrazny göstergeniz var.
  
//+------------------------------------------------------------------+
//|                                                _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 ;}
//+------------------------------------------------------------------+

geri bildirim ile

 
DmitriyN :
Bir mashkoobrazny göstergeniz var.

Ondan ne bekliyordun?
 
FAQ :
Dinle Rüstem, herhangi bir planı MQL koduna çevirebilir misin? Şaka yapmıyorum, ciddi soruyorum.
 

MQL => Şema : soru yok

Scheme =>MQL : Dilin matematik aparatının izin verdiği kadarıyla.

İlk durumda mevcut, donanımda yapmayın, çok tembelim :))

 
... Hm. İlk seçenek hala kazmak (piyasanın gerçeklerine göre ayarlamak) ve veritabanına gönderilebilir. İyi bir uyarlanabilir Mashka çıktı.
1...282930313233343536373839404142...78
Yeni yorum
Neden: