Yeni İndikatörler

[Orhan AKDOĞAN]

Recursive Median Filter

//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://prnt.sc/lmzmit

[Orhan AKDOĞAN]

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

//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://prnt.sc/lmzu7f

[tuncahm]

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

[stradivarius]

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.

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]); 

[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.

[stradivarius]

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.

[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.

[stradivarius]

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.