Matriks Formülleri

[kafkaf]

Uufuk hocam, uzun süredir SAR kodunu bekliyoruz.
http://www.hisse.net/forum/showthrea...6#post14051736
Sizden ricam SAR kaynak kodunu paylaşmanız

len:=30;  i1:=mov(c,len,s);   
a:=if(c>i1,prev+1,prev-1); 
i2:=mov(a,len,s); 

odd:=Cum(1)/2=Int(Cum(1)/2);
aa1:=If(a>i2,If(odd,a,i2),i2);
aa2:=If(a>i2,If(odd=0,a,i2),i2);
i21:=If(a<i2,If(odd,a,i2),i2);
i22:=If(a<i2,If(odd=0,a,i2),i2);

aa1;aa2; {<- blue}
i21;i22; {<- red}
a ; {<- blue}
i2 {<- red}

Moving Average Trend Filter

https://www.tradingview.com/script/4...-Trend-Filter/

len:=30;  i1:=mov(c,len,s);   
a:=if(c>i1,prev+1,prev-1); 
i2:=mov(a,len,s); 
a ; i2

Bu formul tarama çizgisiz olarak indikatoru cizer...
Matriks grafigindeki tarama yapan ilaveleri cizen formulleri yazacak dostumuza hediye var..
Formulunu şimdiye kadar vermedigim ama grafigini paylaştıgım ARZULADIGI formulu verecegim..

[uufuk]

Uufuk hocam, uzun süredir SAR kodunu bekliyoruz.
http://www.hisse.net/forum/showthrea...6#post14051736
Sizden ricam SAR kaynak kodunu paylaşmanız

len:=30;  i1:=mov(c,len,s);   
a:=if(c>i1,prev+1,prev-1); 
i2:=mov(a,len,s); 

odd:=Cum(1)/2=Int(Cum(1)/2);
aa1:=If(a>i2,If(odd,a,i2),i2);
aa2:=If(a>i2,If(odd=0,a,i2),i2);
i21:=If(a<i2,If(odd,a,i2),i2);
i22:=If(a<i2,If(odd=0,a,i2),i2);

aa1;aa2; {<- blue}
i21;i22; {<- red}
a ; {<- blue}
i2 {<- red}

en:=30;  i1:=mov(c,len,s);   a:=if(c>i1,prev+1,prev-1); i2:=mov(a,len,s); 
ty:=if(a>i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,a,i2),a); 
ty1:=if(a<i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,i2,a),i2); 
ty; ty1; a ; i2

n:=0.02;          m:=0.2;              {     n:=atr(10)/4;       if(c>h1,0,h1)     if(c>a,a,0);    if(c<a,a,0) }
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        x:=if(c>a,1,0);       y:=if(c<a,-1,0) ;      z:=valuewhen(1,x+y,x+y);   
n:=if(BarsSince(Cross(0,z) or Cross(z,0))*n<m,BarsSince(Cross(0,z) or Cross(z,0))*n,m);
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        if(c>a,a,0);    if(c<a,a,0)

Bu kod geliştirilebilinir...

[kafkaf]

Hocam elinize, emeğinize sağlık. Siz bunları bize bedava verirken benim bencillik yapmam hoş olmazdı. Onun için paylaşın dedim ama takdir tabiki size aittir :-)
Yanlız bu hali ile bir sıkıntı var sanki hocam.



Not: Biraz vakit bulup yoğunlaşabilsem multitime frame olayını da çözeceğim inşallah...

en:=30;  i1:=mov(c,len,s);   a:=if(c>i1,prev+1,prev-1); i2:=mov(a,len,s); 
ty:=if(a>i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,a,i2),a); 
ty1:=if(a<i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,i2,a),i2); 
ty; ty1; a ; i2

n:=0.02;          m:=0.2;              {     n:=atr(10)/4;       if(c>h1,0,h1)     if(c>a,a,0);    if(c<a,a,0) }
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        x:=if(c>a,1,0);       y:=if(c<a,-1,0) ;      z:=valuewhen(1,x+y,x+y);   
n:=if(BarsSince(Cross(0,z) or Cross(z,0))*n<m,BarsSince(Cross(0,z) or Cross(z,0))*n,m);
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        if(c>a,a,0);    if(c<a,a,0)

Bu kod geliştirilebilinir...

[uufuk]

Hocam elinize, emeğinize sağlık. Siz bunları bize bedava verirken benim bencillik yapmam hoş olmazdı. Onun için paylaşın dedim ama takdir tabiki size aittir :-)

Not: Biraz vakit bulup yoğunlaşabilsem multitime frame olayını da çözeceğim inşallah...

O zaman dördüncü olacaksın..Bu da kamcı olsun...
Ama üzülme mov'dan öte yazan yok...

[kafkaf]

O zaman dördüncü olacaksın..Bu da kamcı olsun...

Kamçıyı yedik hocam ama yoğunlaşma sıkıntısı mevcut :-)

SAR'da bu hali ile bir sıkıntı var sanki hocam.

[uufuk]

Kamçıyı yedik hocam ama yoğunlaşma sıkıntısı mevcut :-)

SAR'da bu hali ile bir sıkıntı var sanki hocam.

Ah,gülüm nokta kullan veya if le tek cizgi yap...

[kafkaf]

Ah,gülüm nokta kullan veya if le tek cizgi yap...

Her şeyi sizden bekler olduk galiba :-) Artık kusurumuza bakmayın. Tşk.

[erkmen]

uufuk hocam SAR formülünün system tester al-sat açık kapat olarak nasıl yazabiliriz.

en:=30;  i1:=mov(c,len,s);   a:=if(c>i1,prev+1,prev-1); i2:=mov(a,len,s); 
ty:=if(a>i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,a,i2),a); 
ty1:=if(a<i2,if(int((cum(1)-1)/2)-(cum(1)-1)/2=0,i2,a),i2); 
ty; ty1; a ; i2

n:=0.02;          m:=0.2;              {     n:=atr(10)/4;       if(c>h1,0,h1)     if(c>a,a,0);    if(c<a,a,0) }
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        x:=if(c>a,1,0);       y:=if(c<a,-1,0) ;      z:=valuewhen(1,x+y,x+y);   
n:=if(BarsSince(Cross(0,z) or Cross(z,0))*n<m,BarsSince(Cross(0,z) or Cross(z,0))*n,m);
h1:=((ref(h,-1) - prev) *n+prev);            l1:= ((ref(l,-1) - prev) *n+prev );       
a:=if(c>prev,l1,h1);        if(c>a,a,0);    if(c<a,a,0)

Bu kod geliştirilebilinir...