Multi Time Frame ve Koklatılan İndiktorler

[kafkaf]

Uufuk üstat rsi için müsait zamanınızda ilgilenebilirmisiniz,henüz zamanı gelmedi sanırım bu süreç içinde bişeyler yapmaya çalıştım ama olmadı. saygılar.

Sayın emlak,

yazdığınız kodu burada paylaşın. Uufuk hocamın bir göz atması yeterli olacaktır:-)

[EMLAK]

MACD indikatörü için MTF kod aşağıdadır. uufuk hocama selamlar...

{ MACD }
per1:=Input("Short MA",1,377,8);
per2:=Input("Long MA",1,377,13);

Mov(C,per1,E )-Mov(C,per2,E )

------------------------------
{ MACD - MTF }

per1:=Input("Short MA",1,377,8);
per2:=Input("Long MA",1,377,13);
term:=Input("Hour=1 Day=2",1,2,1);
p1:=2/(per1+1); p2:=2/(per2+1);

{ Daily or Hourly Data }
Nw:=If(term=1,HOUR()<>ref(HOUR(),-1),DAYOFMONTH()<>ref(DAYOFMONTH(),-1));

{ MACD Engine }
mavs:=If(nw,(p1*Ref(C,-1))+((1-p1)*PREV),PREV);
mavl:=If(nw,(p2*Ref(C,-1))+((1-p2)*PREV),PREV);

{ plot on data window }
mavs-mavl
:0

Emeğe saygı +++1000000 ( sistem dön dolaş dedi borcum olsun ;) )

Sayın emlak,

yazdığınız kodu burada paylaşın. Uufuk hocamın bir göz atması yeterli olacaktır:-)

prd:=Input("RSI periods",3,610,14);
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=mov(u,prd,ww);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=mov(d,prd,ww);
rs:=rsu/rsd;
100-(100/(1+RS))
--------------------------------------------------
Nw:=DAYOFMONTH()<>ref(DAYOFMONTH(),-1);
prd:=Input("RSI periods",3,610,14);
p1:=1/prd;
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=If(nw,(p1*Ref(u,-1))+((1-p1)*PREV),PREV);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=If(nw,(p1*Ref(d,-1))+((1-p1)*PREV),PREV);
rs:=rsu/rsd;
100-(100/(1+rs))

Uufuk üstadın sabır taşı ile imtihanı :-) yüz kalmadı bende de.

[uufuk]

prd:=Input("RSI periods",3,610,14);
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=mov(u,prd,ww);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=mov(d,prd,ww);
rs:=rsu/rsd;
100-(100/(1+RS))
--------------------------------------------------
Nw:=DAYOFMONTH()<>ref(DAYOFMONTH(),-1);
prd:=Input("RSI periods",3,610,14);
p1:=1/prd;
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=If(nw,(p1*Ref(u,-1))+((1-p1)*PREV),PREV);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=If(nw,(p1*Ref(d,-1))+((1-p1)*PREV),PREV);
rs:=rsu/rsd;
100-(100/(1+rs))

Uufuk üstadın sabır taşı ile imtihanı :-) yüz kalmadı bende de.

Üst framede ref(c,-1) nasıl tarif edilir??

nw:=HOUR()<>ref(HOUR(),-1);
c2:=valuewhen(2,nw,ref(c,-1));

C
c1:=valuewhen(1,nw,ref(c,-1));

Alsana ipucu....

[ugur]

.............

[kafkaf]

Uufuk hocam, söyle bir şey olabilir mi? Tşk.

{ RSI - MTF }
prd:=Input("RSI periods",3,610,14);
term:=Input("Hour=1 Day=2",1,2,1);
p1:=1/prd;

{ Daily or Hourly Data }
Nw:=If(term=1,HOUR()<>ref(HOUR(),-1),DAYOFMONTH()<>ref(DAYOFMONTH(),-1));

{ RSI Engine }
RC1:=valuewhen(1,nw,ref(c,-1));
RC2:=valuewhen(2,nw,ref(c,-1));
u:=If(RC1>RC2,RC1-RC2,0);
rsu:=If(nw,(p1*Ref(u,-1))+((1-p1)*PREV),PREV);
d:=If(RC1<RC2,RC2-RC1,0);
rsd:=If(nw,(p1*Ref(d,-1))+((1-p1)*PREV),PREV);
rs:=rsu/rsd;

{ plot on new window }
100-(100/(1+rs))

Emeğe saygı +++1000000 ( sistem dön dolaş dedi borcum olsun ;) )



prd:=Input("RSI periods",3,610,14);
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=mov(u,prd,ww);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=mov(d,prd,ww);
rs:=rsu/rsd;
100-(100/(1+RS))
--------------------------------------------------
Nw:=DAYOFMONTH()<>ref(DAYOFMONTH(),-1);
prd:=Input("RSI periods",3,610,14);
p1:=1/prd;
u:=If(C>Ref(C,-1),C-Ref(C,-1),0);
rsu:=If(nw,(p1*Ref(u,-1))+((1-p1)*PREV),PREV);
d:=If(C<Ref(C,-1),Ref(C,-1)-C,0);
rsd:=If(nw,(p1*Ref(d,-1))+((1-p1)*PREV),PREV);
rs:=rsu/rsd;
100-(100/(1+rs))

Uufuk üstadın sabır taşı ile imtihanı :-) yüz kalmadı bende de.

Üst framede ref(c,-1) nasıl tarif edilir??

nw:=HOUR()<>ref(HOUR(),-1);
c2:=valuewhen(2,nw,ref(c,-1));

C
c1:=valuewhen(1,nw,ref(c,-1));

Alsana ipucu....

[EMLAK]

Kafkaf hocam, bu hali ile son bar "0" ı gösteriyor geçmiş değerler doğru ancak son bar değeri sürekli sıfıra atıyor neden acaba.?

[uufuk]

n:=14;          nw:=HOUR()<>ref(HOUR(),-1);           p1:=1/n;        
c1:=valuewhen(1,nw,ref(c,-1));                c2:=valuewhen(2,nw,ref(c,-1));       
po:=if(nw and (c1-c2)>0,c1-c2,0);            neg:=if(nw and (c1-c2)<0,c2-c1,0);
x1:=If(nw,p1*po+((1-p1)*PREV),PREV);   x2:=If(nw,p1*(neg)+((1-p1)*PREV),PREV);
100- 100/((x1/x2)+1):30:70

[EMLAK]

Uufuk hocam çok teşekkürler