slm...orhan bey
//Ehlers Dominant Cycle -Dominant Cycle Tuned Bypass Filter kullanım şekli hakkında bilgi verebilirmisniz?
0 sıfırdan büyük yada küçük (çizgiler sıfırdan büyük iken fiyat ters hareket ediyor)
Printable View
slm...orhan bey
//Ehlers Dominant Cycle -Dominant Cycle Tuned Bypass Filter kullanım şekli hakkında bilgi verebilirmisniz?
0 sıfırdan büyük yada küçük (çizgiler sıfırdan büyük iken fiyat ters hareket ediyor)
biraz uydurma oldu ama
var SMA= Sistem.MA(C, "simple", 21);
var EMA= Sistem.MA(C, "exp", 21);
var MAT= Sistem.MA(C, "volume", 21);
var TA= Sistem.MA(C, "triangular", 21);
var MA= Sistem.MA(C, "weighted", 21);
var TMA= Sistem.MA(C, "timeseries", 21);
var ZMA= Sistem.MA(C, "zerolag", 21);
var AA= Sistem.MA(C, "variable", 21);
var AT= Sistem.MA(C, "wilder", 21);
var TEMA= Sistem.TEMA(21);
var DEMA= Sistem.DEMA(21);
var a = Sistem.Liste(0);
var x = Sistem.Liste(0);
for (int i = 11; i < Sistem.BarSayisi; i++)
{
x[i] = (SMA[i] + EMA[i] + MAT[i] + TA[i] + MA[i] + TMA[i] + ZMA[i] + AT[i] + AA[i] + TEMA[i] + DEMA[i]) / 11;
a[i] = x[i];
}
Sistem.Cizgiler[0].Deger = a;
var ATT = Sistem.Cizgiler[0].Deger = a;
var TOMA = Sistem.TOMA(ATT, 20, 0.5);
Sistem.Cizgiler[1].Deger = TOMA;
var SonYon = "";
var Sinyal = "";
double SonFiyat = 0.0;
for (int i = 100; i < V.Count; i++)
{
// Strateji
if ( ATT[i] >TOMA[i]) Sinyal = "A";
else if (ATT[i] < TOMA[i] ) Sinyal = "S";
bool FiltreUP = (C[i] >= SonFiyat * 1.003 || C[i] <= SonFiyat);
bool FiltreDN = (C[i] >= SonFiyat || C[i] <= SonFiyat * 0.997);
// Yön Kalıbı
if (Sinyal == "A" && SonYon != "A" && FiltreUP)
{
Sistem.Yon[i] = "A";
SonYon = Sistem.Yon[i];
SonFiyat = V[i].Close;
}
if (Sinyal == "S" && SonYon != "S" && FiltreDN)
{
Sistem.Yon[i] = "S";
SonYon = Sistem.Yon[i];
SonFiyat = V[i].Close;
}
if (Sinyal == "F" && SonYon != "F")
{
Sistem.Yon[i] = "F";
SonYon = Sistem.Yon[i];
SonFiyat = V[i].Close;
}
}
Orhan Hocam faydalı bir başlık olmuş elinize sağlık..
Orhan hocam paylasimlarini sabirsizlikla bekliyoruz umarim hersey yolundadir .
Selamlar Orhan bey. Öncelikle emeklerinize sağlık sayenizde daha önce soğuduğum ve bu nedenle çok fazla fonksiyon yazamadığım için zorunlu olarak Tradingview kullanmak zorunda kalan biri olarak beni tekrar ideal! e sıcak bakmama sebep oldunuz :) Ayrıca emeklerinize sağlık. Verdiğiniz bilgiler sonsuz değerli. Jurik RSI formül Tradingview, bunu ideale çevirirsek çok memnun olurum.
PHP Code:
length = input(title="Length", type=integer, defval=14)
src = input(title="Source", type=source, defval=hlc3)
obLevel = input(title="OB Level", type=integer, defval=70)
osLevel = input(title="OS Level", type=integer, defval=30)
highlightBreakouts = input(title="Highlight Overbought/Oversold Breakouts ?", type=bool, defval=true)
f8 = 100 * src
f10 = nz(f8[1])
v8 = f8 - f10
f18 = 3 / (length + 2)
f20 = 1 - f18
f28 = 0.0
f28 := f20 * nz(f28[1]) + f18 * v8
f30 = 0.0
f30 := f18 * f28 + f20 * nz(f30[1])
vC = f28 * 1.5 - f30 * 0.5
f38 = 0.0
f38 := f20 * nz(f38[1]) + f18 * vC
f40 = 0.0
f40 := f18 * f38 + f20 * nz(f40[1])
v10 = f38 * 1.5 - f40 * 0.5
f48 = 0.0
f48 := f20 * nz(f48[1]) + f18 * v10
f50 = 0.0
f50 := f18 * f48 + f20 * nz(f50[1])
v14 = f48 * 1.5 - f50 * 0.5
f58 = 0.0
f58 := f20 * nz(f58[1]) + f18 * abs(v8)
f60 = 0.0
f60 := f18 * f58 + f20 * nz(f60[1])
v18 = f58 * 1.5 - f60 * 0.5
f68 = 0.0
f68 := f20 * nz(f68[1]) + f18 * v18
f70 = 0.0
f70 := f18 * f68 + f20 * nz(f70[1])
v1C = f68 * 1.5 - f70 * 0.5
f78 = 0.0
f78 := f20 * nz(f78[1]) + f18 * v1C
f80 = 0.0
f80 := f18 * f78 + f20 * nz(f80[1])
v20 = f78 * 1.5 - f80 * 0.5
f88_ = 0.0
f90_ = 0.0
f88 = 0.0
f90_ := nz(f90_[1]) == 0 ? 1 : nz(f88[1]) <= nz(f90_[1]) ? nz(f88[1]) + 1 : nz(f90_[1]) + 1
f88 := nz(f90_[1]) == 0 and (length - 1 >= 5) ? length - 1 : 5
f0 = f88 >= f90_ and f8 != f10 ? 1 : 0
f90 = f88 == f90_ and f0 == 0 ? 0 : f90_
v4_ = f88 < f90 and v20 > 0 ? (v14 / v20 + 1) * 50 : 50
rsx = v4_ > 100 ? 100 : v4_ < 0 ? 0 : v4_
rsxColor = rsx > obLevel ? #0ebb23 : rsx < osLevel ? #ff0000 : #f4b77d
plot(rsx, title="RSX", linewidth=2, color=rsxColor, transp=0)
transparent = color(white, 100)
maxLevelPlot = hline(100, title="Max Level", linestyle=dotted, color=transparent)
obLevelPlot = hline(obLevel, title="Overbought Level", linestyle=dotted)
hline(50, title="Middle Level", linestyle=dotted)
osLevelPlot = hline(osLevel, title="Oversold Level", linestyle=dotted)
minLevelPlot = hline(0, title="Min Level", linestyle=dotted, color=transparent)
fill(obLevelPlot, osLevelPlot, color=purple, transp=95)
obFillColor = rsx > obLevel and highlightBreakouts ? green : transparent
osFillColor = rsx < osLevel and highlightBreakouts ? red : transparent
fill(maxLevelPlot, obLevelPlot, color=obFillColor, transp=90)
fill(minLevelPlot, osLevelPlot, color=osFillColor, transp=90)