Yeni İndikatörler

Recursive Median Filter

PHP Code:

---

//Ayarlar
int Period= 50;

//Veriler
var V = Sistem.GrafikVerileri; 
var C = Sistem.GrafikFiyatSec("Kapanis");
var H = Sistem.GrafikFiyatSec("YUksek");
var L = Sistem.GrafikFiyatSec("Dusuk");
var O = Sistem.GrafikFiyatSec("Açılış");

var median = Sistem.Median(C, 5-1);

double a = (Math.Cos(6.28319/Period) + Math.Sin(6.28319/Period) - 1) / Math.Cos(6.28319/Period);
var RecursiveMedianFilter= Sistem.Liste(0); 

for (int i = 6; i < C.Count; i++) 
{ 
   RecursiveMedianFilter[i] = (float)((i == 0 ? C[i] : a * median[i]  + (1-a) * RecursiveMedianFilter[i-1] ));
}

Sistem.Cizgiler[0].Deger  = RecursiveMedianFilter; 


---

https://image.prntscr.com/image/XCEA...4mj2d392ng.png
https://prnt.sc/lmzmit

Deviation Scaled Moving Average as published in the October 2018 S&C article titled
'Probability-Probably A Good Thing To Know' by John F. Ehlers

PHP Code:

---

//Deviation Scaled Moving Average


//Ayarlar
int Period= 300;


//Veriler
var V = Sistem.GrafikVerileri; 
var C = Sistem.GrafikFiyatSec("Kapanis");
var H = Sistem.GrafikFiyatSec("YUksek");
var L = Sistem.GrafikFiyatSec("Dusuk");
var O = Sistem.GrafikFiyatSec("Açılış"); 


double a1, b1, c1, c2, c3;
var Filt= Sistem.Liste(0);
var Zeros= Sistem.Liste(0);
var DSMAPD= Sistem.Liste(0); 
            
a1 = Math.Exp(-1.414 * 3.14159 / (.5 * (double)Period));
b1 = 2 * a1 * Math.Cos((1.414 * 180 / (.5 * (double)Period)) * (3.14159 / 180));
c2 = b1;
c3 = -a1 * a1;
c1 = 1 - c2 - c3;


for (int j = Period; j < C.Count; j++) 
{ 
             double ScaledFilt = 0, RMS = 0, alpha1 = 0;
            Zeros[0] = C[j] - C[j-2];
            Filt[j] = (float) (c1 * (Zeros[0] + Zeros[1]) / 2 + c2 * Filt[j-1] + c3 * Filt[j-2]);
            for (int i = 0; i <= Period-1; i++) RMS = RMS + Filt[j-i] * Filt[j-i];
            RMS = Math.Sqrt(RMS / (double)Period);
            ScaledFilt = Filt[j] / RMS;
            DSMAPD[j] = (float) ScaledFilt;
                 for (int i = Period; i > 0; i--) Filt[i] = Filt[i];  
            Zeros[1] = (float) Zeros[0];
}


Sistem.Cizgiler[0].Deger  = DSMAPD; 


---

https://image.prntscr.com/image/ozks...-O4NlV173Q.png
https://prnt.sc/lmzu7f

Orhan hocam emeğinize sağlık tesekkür ederim

dsma . bu son olan epeyce yeni , konu basligina uygun olmus.

eliniz degmisken su formulude cevirmeniz mumkun mu. ben ugrastim ancak bi sonuc cikmadi, buyuk ihtimla biseyleri yanlis yaptim.

PHP Code:

---


Price((H+L)/2);
Vars:
delta(0.1),
gamma(0),
alpha(0),
beta(0),
N(0),
Period(0),
MaxAmpl(0),
Num(0),
Denom(0),
DC(0),
DomCyc(0),
Color1(0),
Color2(0),
alpha1(0),
HP(0),
SmoothHP(0);
Arrays:
I[50](0),
OldI[50](0),
OlderI[50](0),
Q[50](0),
OldQ[50](0),
OlderQ[50](0),
Real[50](0),
OldReal[50](0),
OlderReal[50](0),
Imag[50](0),
OldImag[50](0),
OlderImag[50](0),
Ampl[50](0),
OldAmpl[50](0),
DB[50](0);
alpha1 = (1 - Sine (360 / 40)) / Cosine(360 / 40);
HP = .5*(1 + alpha1)*(Price - Price[1]) + alpha1*HP[1];
SmoothHP = (HP + 2*HP[1] + 3*HP[2] + 3*HP[3] + 2*HP[4] + HP[5]) / 12;
IF CurrentBar < 7 Then SmoothHP = Price - Price[1];
IF CurrentBar = 1 THEN SmoothHP = 0;
delta = -.015*CurrentBar + .5;
If delta < .15 then delta = .15;
If CurrentBar > 6 Then Begin
For N = 8 to 50 Begin
beta = Cosine(360 / N);
gamma = 1 / Cosine(720*delta / N);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Q[N] = (N / 6.283185)*(SmoothHP - SmoothHP[1]);
I[N] = SmoothHP;
Real[N] = .5*(1 - alpha)*(I[N] - OlderI[N]) + beta*(1 + alpha)*OldReal[N] -
alpha*OlderReal[N];
Imag[N] = .5*(1 - alpha)*(Q[N] - OlderQ[N]) + beta*(1 + alpha)*OldImag[N]
- alpha*OlderImag[N];
Ampl[N] = (Real[N]*Real[N] + Imag[N]*Imag[N]);
End;
End;
For N = 8 to 50 Begin
OlderI[N] = OldI[N];
OldI[N] = I[N];
OlderQ[N] = OldQ[N];
OldQ[N] = Q[N];
OlderReal[N] = OldReal[N];
OldReal[N] = Real[N];
OlderImag[N] = OldImag[N];
OldImag[N] = Imag[N];
OldAmpl[N] = Ampl[N];
End;
MaxAmpl = Ampl[10];
For N = 8 to 50 Begin
If Ampl[N] > MaxAmpl then MaxAmpl = Ampl[N];
End;
For N = 8 to 50 Begin
IF MaxAmpl <> 0 AND (Ampl[N] / MaxAmpl) > 0 THEN DB[N] = -10*Log(.01 / (1 -
.99*Ampl[N] / MaxAmpl)) / Log(10);
If DB[N] > 20 then DB[N] = 20;
End;
Num = 0;
Denom = 0;
For N = 10 to 50 Begin
If DB[N] <= 3 Then Begin
Num = Num + N*(20 - DB[N]);
Denom = Denom + (20 - DB[N]);
End;
If Denom <> 0 Then DC = Num / Denom;
End;
DomCyc = Median(DC, 10);
If DomCyc < 8 Then DomCyc = 20;
beta = Cosine(360 / DomCyc);
gamma = 1 / Cosine(720*delta / DomCyc);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Value1 = .5*(1 - alpha)*(SmoothHP - SmoothHP[1]) + beta*(1 + alpha)*Value1[1] -
alpha*Value1[2];
Value2 = (DomCyc / 6.28)*(Value1 - Value1[1]); 


---

code tagı olmadan kod paylaşıldığında forum sapıtıyor sanırım, kod atılamaz oldu.sn. stradivarius paylaştığınız kod içersinde alabilir misiniz. bununla ilgili olabilir belki.

Alıntı:

---

Originally Posted by Orhan AKDOĞAN

code tagı olmadan kod paylaşıldığında forum sapıtıyor sanırım, kod atılamaz oldu.sn. stradivarius paylaştığınız kod içersinde alabilir misiniz. bununla ilgili olabilir belki.

---

tag arasina aldim ustat ancak, ben de ayni sorunu senin kodu alintiladigimda yasadim. bi sikinti var ama nedir anlayamadim.

sizden değilmiş demek ki düz metin dışında paylaşım yapamıyorum şu anda.bir süre sonra tekrar deneyeceğim."Deviation Scaled Moving Average with Fisher Transform" ve sizin paylaştığınız "Spectrum" u paylaşırım.

Alıntı:

---

Originally Posted by Orhan AKDOĞAN

sizden değilmiş demek ki düz metin dışında paylaşım yapamıyorum şu anda.bir süre sonra tekrar deneyeceğim."Deviation Scaled Moving Average with Fisher Transform" ve sizin paylaştığınız "Spectrum" u paylaşırım.

---

Alintida tag varsa yapiyo olabilir.