Originally Posted by
cashhflow
Hatam nerde acaba görebilen var mı ? Amatörce bir çeviri yapmaya çalıştım :D
Cyber Cycle with the Inverse Fisher Transform, Mayıs 2004, John Ehlers.
PHP Code:
//Cyber Cycle with the Inverse Fisher Transform, Mayıs 2004, John Ehlers.
//Ayarlar
float alpha=0.008f;
//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 HH = Sistem.HHV(28,"Yuksek");
var LL = Sistem.LLV(28,"Dusuk");
//Değişkenler
var Price=Sistem.Liste(0);
var Smooth =Sistem.Liste(0);
var Cycle =Sistem.Liste(0);
var ICycle =Sistem.Liste(0);
for (int i=10; i < Sistem.BarSayisi; i++)
{
Price[i]= (H[i]+L[i])/2;
Smooth[i] = (Price[i] + 2*Price[i-1] + 2*Price[i-2] + Price[i-3])/6;
Cycle[i] = (float) ((1-0.5*alpha)*(1 -0.5*alpha)*(Smooth[i]-2*Smooth[i-1] + Smooth[i-2]) + 2*(1-alpha)*Cycle[i-1]-(1-alpha)*(1-alpha)*Cycle[i-2]);
ICycle[i] = (float)((Math.Exp(2*Cycle[i]) - 1) / (Math.Exp(2*Cycle[i]) + 1));
}
//Çizgiler
Sistem.DecimalPoint = 4;
Sistem.Cizgiler[0].Deger = Cycle;
Sistem.Cizgiler[1].Deger = ICycle;
//Strateji
var SonYon="";
for (int i = 2; i<Sistem.BarSayisi; i++)
{
if ( SonYon!= "A" && Cycle[i] > ICycle[i] && C[i] > HH[i-1] ) { Sistem.Yon[i] = "A"; SonYon = "A"; }
else if ( SonYon!= "S" && Cycle[i] < ICycle[i] && C[i] < LL[i-1] ) { Sistem.Yon[i] = "S"; SonYon = "S"; }
}
https://prnt.sc/loaa8d
https://prnt.sc/loaaok
Yer İmleri