ÝDEAL veri terminalinde /Sistem/Ýndikatör/Robot

[anonimm]

m büyük ihtimalle hareketli ortalama deðiþkeni. Ama kodun bütününü görmek lazým, bu sadece kod parçacýðý..

Geldik, gidiyoruz..

study("Pseudo Polynomial Channel",overlay=true)
length = input(14),morph = input(0.9,minval=0,maxval=1),mult = input(1.),flatten = input(1.)
//----
x = n
y = close
m(a,b) =>
    p = morph * a + (1-morph) * b
k = nz(m(k[length],y),y) + (x-x[length])/(x[length*2]-x[length]) * (nz(m(k[length*2],y),y) - nz(m(k[length],y),y))/flatten
k1 = sma(k,length)
er = cum(abs(y-k1))/n * mult
//----
a = k1 + er
b = k1 - er
//----
A = plot(a,color=#2196f3,linewidth=2,transp=0)
plot(k1,color=#e65100,linewidth=2,transp=0)
B = plot(b,color=#ff1100,linewidth=2,transp=0)
fill(A,B,#2196f3,transp=95)

[BME Fund]

idealde super trend ve matriks de ki ott indikatörünün kodu olan var mý ðaylaþýrsa makbule geçer

[sonli]

study("Pseudo Polynomial Channel",overlay=true)
length = input(14),morph = input(0.9,minval=0,maxval=1),mult = input(1.),flatten = input(1.)
//----
x = n
y = close
m(a,b) =>
    p = morph * a + (1-morph) * b
k = nz(m(k[length],y),y) + (x-x[length])/(x[length*2]-x[length]) * (nz(m(k[length*2],y),y) - nz(m(k[length],y),y))/flatten
k1 = sma(k,length)
er = cum(abs(y-k1))/n * mult
//----
a = k1 + er
b = k1 - er
//----
A = plot(a,color=#2196f3,linewidth=2,transp=0)
plot(k1,color=#e65100,linewidth=2,transp=0)
B = plot(b,color=#ff1100,linewidth=2,transp=0)
fill(A,B,#2196f3,transp=95)

Uðraþtým biraz ama beceremedim, sýkýntý m deðil, onunla fonksiyon tanýmlýyor gibi birþey.. x ile neyi ifade ettiðini tam anlayamadým..
m(a,b) yapýsýna þunu uygula diyor: morph * a + (1-morph) * b
x ve y(kapanýþ normalde) rastgele tanýmlayýp çizsin gerisine sonra bakarým dedim ama yemedi
m çiziyor ama m1 olamadý..


var C = Sistem.GrafikFiyatSec("Kapanis");
int i=Sistem.BarSayisi-1;
int length=14;
float morph=0.9f;
int mult=1;
int flatten=1;
var x=Sistem.GrafikFiyatSec("Yuksek"); //muhtemelen anlýk fiyat ya da bar no
var y=Sistem.Ref(C,-1);

var k=Sistem.Liste(0);

for (int j = 100; j < Sistem.BarSayisi; j++)
{
var m = morph*k[j-length] + (1-morph)*y[j] ;
if(m==0) m=y[j];
var m2 = morph*k[j-length*2] + (1-morph)*y[j] ;
if(m2==0) m2=y[j];

var m1= (x[j]-x[j-length])/( x[j-length*2]-x[j-length])*(m2-m)/flatten ;

//k = nz(m(k[length],y),y) + (x-x[length])/(x[length*2]-x[length]) * (nz(m(k[length*2],y),y) - nz(m(k[length],y),y))/flatten


k[j] = m + m1;

}

Sistem.Cizgiler[0].Deger = k;

[venseremos]

Ýyi bayramlar,

Periyodlarý farklý olan 2 sistemi nasýl birleþtiririz? Ayný yönde ise iþlem olacak, yönler farklý ise pozisyonda iken bile flat olacak ve ayný yönde sinyale kadar bekleyecek.

Kütüphanede hazýr olan sistem birleþtir ile repaint oluyor. Daha önce deneyen var mý?

[anonimm]

Uðraþtým biraz ama beceremedim, sýkýntý m deðil, onunla fonksiyon tanýmlýyor gibi birþey.. x ile neyi ifade ettiðini tam anlayamadým..
m(a,b) yapýsýna þunu uygula diyor: morph * a + (1-morph) * b
x ve y(kapanýþ normalde) rastgele tanýmlayýp çizsin gerisine sonra bakarým dedim ama yemedi
m çiziyor ama m1 olamadý..


var C = Sistem.GrafikFiyatSec("Kapanis");
int i=Sistem.BarSayisi-1;
int length=14;
float morph=0.9f;
int mult=1;
int flatten=1;
var x=Sistem.GrafikFiyatSec("Yuksek"); //muhtemelen anlýk fiyat ya da bar no
var y=Sistem.Ref(C,-1);

var k=Sistem.Liste(0);

for (int j = 100; j < Sistem.BarSayisi; j++)
{
var m = morph*k[j-length] + (1-morph)*y[j] ;
if(m==0) m=y[j];
var m2 = morph*k[j-length*2] + (1-morph)*y[j] ;
if(m2==0) m2=y[j];

var m1= (x[j]-x[j-length])/( x[j-length*2]-x[j-length])*(m2-m)/flatten ;

//k = nz(m(k[length],y),y) + (x-x[length])/(x[length*2]-x[length]) * (nz(m(k[length*2],y),y) - nz(m(k[length],y),y))/flatten


k[j] = m + m1;

}

Sistem.Cizgiler[0].Deger = k;

Þöyle birþey olabilir

 // Pseudo Polynomial Channel

var length = 14 ; //
var lengthh = 2 * length ; 
var morph = 0.9f ; 
var mult = 1.0f ;
var flatten = 1.0f ;

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

var x = Sistem.BarSayisi ;

var xx =  -1 *  ( x - x + length )/( x - lengthh - x + length )  ;

 
//var xx =  -1 * ( x -  length )/( x - lengthh - x + length )  ;

var k= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)

k[i] = 

morph * k[i-length]+ (1-morph) * C[i]  + 

xx * (  morph * k[i-lengthh]+ (1-morph) * C[i] )  -  

 ( morph * k[i-length]+ (1-morph) * C[i] ) / flatten  ;


 
 





 

var k1 = Sistem.MA(k, "Simple", length )  ;




var k2= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)
{

k2[i] = Math.Abs(C[i] - k1[i] ) ;

 

}




var er = Sistem.Sum(k2) / x * mult ;

 
var a = Sistem.Liste(0);

var b = Sistem.Liste(0);



for (int i = 50; i < V.Count; i++)
{

 

a[i] = k1[i] + er  ;
b[i] = k1[i] - er ;
 

}

 


Sistem.Cizgiler[0].Deger= a  ; //panel1
Sistem.Cizgiler[1].Deger= b  ; //panel1

[anonimm]

Ýyi bayramlar,

Periyodlarý farklý olan 2 sistemi nasýl birleþtiririz? Ayný yönde ise iþlem olacak, yönler farklý ise pozisyonda iken bile flat olacak ve ayný yönde sinyale kadar bekleyecek.

Kütüphanede hazýr olan sistem birleþtir ile repaint oluyor. Daha önce deneyen var mý?

s1 ve s2 sistemlerinin yönlerini, bitmiþ bar üzerinden dönem çevir ile 1 dk grafik üzerine aktarýp deneyebilirsiniz.

[Hector Salamanca]

Þöyle birþey olabilir

 // Pseudo Polynomial Channel

var length = 14 ; //
var lengthh = 2 * length ; 
var morph = 0.9f ; 
var mult = 1.0f ;
var flatten = 1.0f ;

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

var x = Sistem.BarSayisi ;

var xx =  -1 *  ( x - x + length )/( x - lengthh - x + length )  ;

 
//var xx =  -1 * ( x -  length )/( x - lengthh - x + length )  ;

var k= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)

k[i] = 

morph * k[i-length]+ (1-morph) * C[i]  + 

xx * (  morph * k[i-lengthh]+ (1-morph) * C[i] )  -  

 ( morph * k[i-length]+ (1-morph) * C[i] ) / flatten  ;


 
 





 

var k1 = Sistem.MA(k, "Simple", length )  ;




var k2= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)
{

k2[i] = Math.Abs(C[i] - k1[i] ) ;

 

}




var er = Sistem.Sum(k2) / x * mult ;

 
var a = Sistem.Liste(0);

var b = Sistem.Liste(0);



for (int i = 50; i < V.Count; i++)
{

 

a[i] = k1[i] + er  ;
b[i] = k1[i] - er ;
 

}

 


Sistem.Cizgiler[0].Deger= a  ; //panel1
Sistem.Cizgiler[1].Deger= b  ; //panel1

Savitzky-Golay kullanarak yumuþatmýþ eleman ama sizinki sanki sert olmuþ gibi.
þöyle olursa en azýndan mid sapmaz gibi. sanýrým sum olduðundan up ve down çizgileri farklý periyotlarda bar sayýsý ve duyarlýlýk gibi nedenlerle farklýlaþabilir. paramla ayarlanýr gerçi onlarda.

bence framanýn TTI ýný alýp kanal yapmaktan daha iyi gibi, hemde bedava

/* https://www.tradingview.com/script/qusoEeMf-Pseudo-Polynomial-Channel/ */

var V = Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis");

var    length  = 14;
var    morph   = 0.9f;  
float  mult    = 1f;
var    flatten = 1f;

var Up = Sistem.Liste(0);
var Down = Sistem.Liste(0);
var k = Sistem.Liste(0);
var kcum=0f;

for (int i = length*2 ; i < C.Count; i++)
{
   k[i] =    (morph * k[i-length] + (1-morph) * C[i] )
           + (i - (i+length) )
           / ( (i+length*2f)  - (i+length)  )
           * (
                (morph * k[i-length*2] + (1f-morph) * C[i] )
              - (morph * k[i-length]   + (1f-morph) * C[i] )
             )
           / flatten;
}

var k1 = Sistem.MA(k, "Simple", length  );

for (int i = length*2 ; i < C.Count; i++)
{
  kcum += Math.Abs(C[i] - k1[i] );  
  float er = kcum / i * mult; 
  Up[i]    = ( k1[i] + er);
  Down[i]  = ( k1[i] - er);
}

Sistem.Cizgiler[0].Deger = Up;
Sistem.Cizgiler[1].Deger = k1;
Sistem.Cizgiler[2].Deger = Down; 

[sonli]

Þöyle birþey olabilir

 // Pseudo Polynomial Channel

var length = 14 ; //
var lengthh = 2 * length ; 
var morph = 0.9f ; 
var mult = 1.0f ;
var flatten = 1.0f ;

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

var x = Sistem.BarSayisi ;

var xx =  -1 *  ( x - x + length )/( x - lengthh - x + length )  ;

 
//var xx =  -1 * ( x -  length )/( x - lengthh - x + length )  ;

var k= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)

k[i] = 

morph * k[i-length]+ (1-morph) * C[i]  + 

xx * (  morph * k[i-lengthh]+ (1-morph) * C[i] )  -  

 ( morph * k[i-length]+ (1-morph) * C[i] ) / flatten  ;


 
 





 

var k1 = Sistem.MA(k, "Simple", length )  ;




var k2= Sistem.Liste(0);
 


for (int i = 50; i < V.Count; i++)
{

k2[i] = Math.Abs(C[i] - k1[i] ) ;

 

}




var er = Sistem.Sum(k2) / x * mult ;

 
var a = Sistem.Liste(0);

var b = Sistem.Liste(0);



for (int i = 50; i < V.Count; i++)
{

 

a[i] = k1[i] + er  ;
b[i] = k1[i] - er ;
 

}

 


Sistem.Cizgiler[0].Deger= a  ; //panel1
Sistem.Cizgiler[1].Deger= b  ; //panel1

Hocam x i böyle tanýmlarsak x ve length ler sadeleþip geriye xx=1/length kalýyor. Adam böyle kodlamazdý herhalde, o sebeple bar sayýsý deðil diye düþünmüþtüm..

var xx = -1 * ( x - x + length )/( x - lengthh - x + length ) ;