Fikirler -> Sistemler

[vobbook]

Sn Vobbook, gördüğüm kadarıyla Forex-tsd takipçilerindensiniz...
ex4 formatında gönderdiğiniz bu göstergeyi o forumdan Igorad kodlamıştı.

Bunu değil ama bir benzeri olan Trendstrength ki mantığı oldukça benzerdir daha önce ms formatına çevirmiş zaman zaman da kullanmıştım...

Bir boş vakitte trendrsi'yi çeviririm ancak şimdilik aşağıda oldukça benzer olan TrendStrength formülü verdim.

(Belki sizi böylece bir nebze de olsa data export import işleminden kurtarabilirim.)

sevgiler...






----------------------------
rsiperiods:= Input("rsi period" ,3 ,100 ,14 ) ;
smooth:= Input("smooth " ,1 ,100 ,5 ) ;
volacity:= Input("volacity " ,1 ,100 ,10 ) ;
k:= Input("k- 1=2.168; 2=4.236" ,1 ,2 ,1 ) ;

kv:=If(k=1,2.168,4.236);

indic:=RSI(C,rsiperiods);
smrsi:=Mov(indic,smooth,S);

hrsi:=If(smrsi>=Ref(smrsi,-1),smrsi, Ref(smrsi,-1));
lrsi:=If(smrsi<=Ref(smrsi,-1),smrsi,Ref(smrsi,-1));

attrs:=hrsi-lrsi;

dlt:=Mov(attrs,volacity,E);

smin:=smrsi-kv*dlt;
smax:=smrsi+kv*dlt;

bsmin:=If(smin>=Ref(smin,-1),smin,PREV);
bsmax:=If(smax<=Ref(smax,-1),smax,PREV);


trigger:=If(smrsi>Ref(bsmax,-1), 1, If(smrsi<Ref(bsmin,-1), -1, 0));

trend:=If(trigger<>0,trigger, ValueWhen(1 ,trigger<>0 ,trigger ) );

sminfinal:= HighestSince(1 ,trend > Ref(trend,-1) ,smin ) ;
smaxfinal:= LowestSince(1 ,trend < Ref(trend,-1) ,smax );

trendstrength:=If(trend=1, sminfinal, smaxfinal);

trendstrength;smrsi
--------------------------------------------

Önceki mesajımda verdiğim indikatörü nerden aldığımı hatırlamıyorum mt4 için formüller incelerken bir siteden elime geçmişti, dediğiniz gibi Forex-tsd'den de almış olabilirim.


Paylaştığınız indikatör dediğiniz gibi bezer . İlk incelememde gördüğüm kadarıyla sinyal vermekte biraz gecikiyor. Değişik periyodlarda da incelemem lazım.



Teşekkürler ederim paylaşım için. Sevgiler...