Yeni İndikatörler

[cem_songa]

Merhabalar..

Orhan bey filtre paylaşımlarınız fiyat bölgesinde olanlar bir ortalama çizgisi gibi çalışıyor.

normal ortalamalara göre avantaj ve dezavantajları nedir ?

tşk

[Orhan AKDOĞAN]

Merhabalar..

Orhan bey filtre paylaşımlarınız fiyat bölgesinde olanlar bir ortalama çizgisi gibi çalışıyor.

normal ortalamalara göre avantaj ve dezavantajları nedir ?

tşk

makalesini de atmıştım zaten. daha responsive olması.

[Orhan AKDOĞAN]

Laguerre Filter

Oldukça eski aslında fakat forumda ve sistemde göremedim.

John Ehlers Article: 'Time Warp Without Space Travel'
http://www.stockspotter.com/Files/timewarp.pdf

//Laguerre Filter

//Ayarlar
var alpha = 0.2f;

//Veriler
var V = Sistem.GrafikVerileri; 
var Price = Sistem.GrafikFiyatOku(V, "OrtaNokta");

//Değişkenler
var Laguerre= Sistem.Liste(0); 
var FIR= Sistem.Liste(0); 
var L0= Sistem.Liste(0); 
var L1= Sistem.Liste(0); 
var L2= Sistem.Liste(0); 
var L3= Sistem.Liste(0); 

//Hesaplamalar
for (int i = 4; i < Price.Count; i++)
{ 
 L0[i] = ((1-alpha) * Price[i]) + alpha * (L0[i-1]);
 L1[i] = (-alpha * L0[i])+ L0[i-1] + (alpha * L1[i-1]);
 L2[i] = (-alpha * L1[i])+ L1[i-1] + (alpha * L2[i-1]);
 L3[i] = (-alpha * L2[i])+ L2[i-1] + (alpha * L3[i-1]);
 Laguerre[i] = (L0[i]+2*L1[i]+2*L2[i]+L3[i])/6;
 FIR[i] = (Price[i] + 2*Price[i-1] + 2*Price[i-2] + Price[i-3]) / 6;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = Laguerre;
Sistem.Cizgiler[1].Deger = FIR; 

https://prnt.sc/lpkejw

Düzeltme:

//Laguerre Filter

//Ayarlar
var alpha = 0.8f;

//Veriler
var V = Sistem.GrafikVerileri; 
var Price = Sistem.GrafikFiyatOku(V, "OrtaNokta");

//Değişkenler
var Laguerre= Sistem.Liste(0); 
var FIR= Sistem.Liste(0); 
var L0= Sistem.Liste(0); 
var L1= Sistem.Liste(0); 
var L2= Sistem.Liste(0); 
var L3= Sistem.Liste(0); 

//Hesaplamalar
for (int i = 4; i < Price.Count; i++)
{ 
 L0[i] = alpha*Price[i] + (1 - alpha)*L0[i-1];  
 L1[i] = -(1 - alpha)*L0[i] + L0[i-1] + (1 - alpha)*L1[i-1];
 L2[i] = -(1 - alpha)*L1[i] + L1[i-1] + (1 - alpha)*L2[i-1];
 L3[i] = -(1 - alpha)*L2[i] + L2[i-1] + (1 - alpha)*L3[i-1];
 Laguerre[i] = (L0[i]+2*L1[i]+2*L2[i]+L3[i])/6; 
 FIR[i] = (Price[i] + 2*Price[i-1] + 2*Price[i-2] + Price[i-3]) / 6;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = Laguerre;
Sistem.Cizgiler[1].Deger = FIR; 

[automatic]

Çok düğümlü = Çok segmentli midir ? Bunun için bollinger with hhll gibi şeyler kullandık ama mantıklı sonuçlar elde edemedik hatta idealin twitterdan paylaştığı sys_toma_trix in benzeri hhll ile segment yapılmış örneği vardı o zamanlar iyiydi şimdi düz sistemler ondan iyi çalışıyor. Bu konuyu birkaç kişi dışında kimsenin yapabildiğini de görmedik yada gizleniyorlar

[Orhan AKDOĞAN]

Laguerre Adaptive Filter

John Ehlers Article: 'Time Warp Without Space Travel'
http://www.stockspotter.com/Files/timewarp.pdf

//Laguerre Adaptive Filter

//Ayarlar
int Length = 14;
int Median = 5;

//Veriler
var V = Sistem.GrafikVerileri; 
var Price = Sistem.GrafikFiyatOku(V, "OrtaNokta");

//Değişkenler
var LaguerreAdaptiveFilter= Sistem.Liste(0); 
var FIR= Sistem.Liste(0); 
var L0= Sistem.Liste(0); 
var L1= Sistem.Liste(0); 
var L2= Sistem.Liste(0); 
var L3= Sistem.Liste(0); 

var Diff= Sistem.Liste(0); 
var HH= Sistem.Liste(0); 
var LL= Sistem.Liste(0); 
var Med= Sistem.Liste(0); 
var DLH= Sistem.Liste(0); 

//Hesaplamalar
if(Median > Length ) Median = Length-1;
for (int i = Length+1; i < Price.Count; i++)
{ 
    Diff[i] = Math.Abs(Price[i] - LaguerreAdaptiveFilter[i-1]);
    HH[i] = Diff[i];LL[i] = Diff[i];


    for(int j = 0; j < Length ; j++) 
    {
      if (Diff[i-j] > HH[i]) HH[i] = Diff[i-j];
      if (Diff[i-j] < LL[i]) LL[i] = Diff[i-j];
    }

   if (Diff[i] - LL[i] != 0 && HH[i] - LL[i] != 0)  DLH[i] = (Diff[i] - LL[i]) / (HH[i] - LL[i]); else DLH[i] = 0;
    
   for (int count = 0; count < Median; count++) Med[i-count] = DLH[i-count];

   bool swapped = true;
   double temp;
   while (swapped)
   {
    swapped = false;
    for (int count = 0; count < Median ; count++)
    {    
        if (Med[i-count] > Med[i-count - 1])
        { 
            temp = Med[i-count];    
            Med[i-count] = Med[i-count -1 ];
            Med[i-count -1] = (float)temp; 
            swapped = true;
        }
    }
   }

 float alpha = Med[i-2];

 L0[i] = alpha*Price[i] + (1 - alpha)*L0[i-1];  
 L1[i] = -(1 - alpha)*L0[i] + L0[i-1] + (1 - alpha)*L1[i-1];
 L2[i] = -(1 - alpha)*L1[i] + L1[i-1] + (1 - alpha)*L2[i-1];
 L3[i] = -(1 - alpha)*L2[i] + L2[i-1] + (1 - alpha)*L3[i-1];
 LaguerreAdaptiveFilter[i] = (float)(L0[i]+2*L1[i]+2*L2[i]+L3[i])/6; 
}

//Çizgiler
Sistem.Cizgiler[0].Deger = LaguerreAdaptiveFilter; 

https://prnt.sc/lpqa3f

[Orhan AKDOĞAN]

//Ayarlar
int bandperiod = 10;
int fast  = 12;
int slow  = 26;
float stdDevNumber = 1f;
int adxLength = 6;
float adxDiv= 6;

//Veriler
var V = Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis") ;
var H = Sistem.GrafikFiyatOku(V, "Yuksek") ;
var L = Sistem.GrafikFiyatOku(V, "Dusuk") ;
var O = Sistem.GrafikFiyatOku(V, "Acilis") ;

//İndikatörler
var ADX  = Sistem.ADX(adxLength);
var MACD = Sistem.MACD(fast, slow);

//Değişkenler
var BBMACD=Sistem.Liste(0);  
var Upper=Sistem.Liste(0); 
var Lower=Sistem.Liste(0);  

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  float adx = ADX[i]/adxDiv;
  adx = Math.Min(100, adx * adx) * 0.01f;
  float adx1 = ADX[i-1]/adxDiv;
  adx1  = Math.Min(100, adx1 * adx1) * 0.01f;
  BBMACD[i] = MACD[i]* 100;
} 

var EMA    = Sistem.MA(BBMACD, "Exp", bandperiod);
var StdDev = Sistem.StDev(BBMACD, bandperiod);

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  Upper[i]= EMA[i] + StdDev[i] * stdDevNumber;
  Lower[i]= EMA[i] - StdDev[i] * stdDevNumber;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = BBMACD;  //Panel 2
Sistem.Cizgiler[1].Deger = Upper;   //Panel 2
Sistem.Cizgiler[2].Deger = Lower;   //Panel 2 

https://prnt.sc/lrtewh

[stradivarius]

//Ayarlar
int bandperiod = 10;
int fast  = 12;
int slow  = 26;
float stdDevNumber = 1f;
int adxLength = 6;
float adxDiv= 6;

//Veriler
var V = Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis") ;
var H = Sistem.GrafikFiyatOku(V, "Yuksek") ;
var L = Sistem.GrafikFiyatOku(V, "Dusuk") ;
var O = Sistem.GrafikFiyatOku(V, "Acilis") ;

//İndikatörler
var ADX  = Sistem.ADX(adxLength);
var MACD = Sistem.MACD(fast, slow);

//Değişkenler
var BBMACD=Sistem.Liste(0);  
var Upper=Sistem.Liste(0); 
var Lower=Sistem.Liste(0);  

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  float adx = ADX[i]/adxDiv;
  adx = Math.Min(100, adx * adx) * 0.01f;
  float adx1 = ADX[i-1]/adxDiv;
  adx1  = Math.Min(100, adx1 * adx1) * 0.01f;
  BBMACD[i] = MACD[i]* 100;
} 

var EMA    = Sistem.MA(BBMACD, "Exp", bandperiod);
var StdDev = Sistem.StDev(BBMACD, bandperiod);

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  Upper[i]= EMA[i] + StdDev[i] * stdDevNumber;
  Lower[i]= EMA[i] - StdDev[i] * stdDevNumber;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = BBMACD;  //Panel 2
Sistem.Cizgiler[1].Deger = Upper;   //Panel 2
Sistem.Cizgiler[2].Deger = Lower;   //Panel 2 

https://prnt.sc/lrtewh

hocam adx hesabini nicin yapiyoruz. sonradan bir hesapta kullanilmamis sanki.

[Orhan AKDOĞAN]

hocam adx hesabini nicin yapiyoruz. sonradan bir hesapta kullanilmamis sanki.

silmeyi unutmuşum onları

Düzeltme:

BB MACD

//Ayarlar
int bandperiod = 10;
int fast  = 12;
int slow  = 26;
float stdDevNumber = 1f;

//Veriler
var V = Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis") ;
var H = Sistem.GrafikFiyatOku(V, "Yuksek") ;
var L = Sistem.GrafikFiyatOku(V, "Dusuk") ;
var O = Sistem.GrafikFiyatOku(V, "Acilis") ;

//İndikatörler
var MACD = Sistem.MACD(fast, slow);

//Değişkenler
var BBMACD=Sistem.Liste(0);  
var Upper=Sistem.Liste(0); 
var Lower=Sistem.Liste(0);  

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  BBMACD[i] = MACD[i]* 100;
} 

var EMA    = Sistem.MA(BBMACD, "Exp", bandperiod);
var StdDev = Sistem.StDev(BBMACD, bandperiod);

for (int i = slow;  i < Sistem.BarSayisi;  i++)
{ 
  Upper[i]= EMA[i] + StdDev[i] * stdDevNumber;
  Lower[i]= EMA[i] - StdDev[i] * stdDevNumber;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = BBMACD;  //Panel 2
Sistem.Cizgiler[1].Deger = Upper;   //Panel 2
Sistem.Cizgiler[2].Deger = Lower;   //Panel 2