Your Welcome to Borsa Okulu
Nick:  
Pass:     
Kayıt Ol Yardım Üye Listesi Yeni Mesajlara Bak Bugünkü Mesajlara Bak

Yeni Cevap 
Trend Resistance Line / Channel
Yazar Mesaj
BorsaOkulu Çevrimdışı
Administrator
*******

Mesajlar: 1.172
Katılım: Nov 2012
Mesaj: #1
Trend Resistance Line / Channel
pds:=Input("Lookback Periods",2,100,5);
hic:= H>Ref(HHV(H,pds),-1) AND H>=Ref(HHV(H,pds),pds);
y1t:=LastValue(ValueWhen( 2, hic=1, H ));
y2t:=LastValue(ValueWhen( 1, hic=1, H ));
x1t:=LastValue(ValueWhen( 2, hic=1 , Cum(1) ));
x2t:=LastValue(ValueWhen( 1, hic=1 , Cum(1) )); {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
yt:=(y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t;
{yt:=at*cum(1)+bt;}
e1:=H-yt; ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));
seg1:=LastValue(Int((x2t-x1t)/2+Int(2*pds/5)){+pds-1});
x1:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret1),seg1)-ret1);
y1:=LastValue(ValueWhen(1,x1=Cum(1),H));
ret2:=LastValue(Cum(1)-(x2t+Int(4*pds/5)));
seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*pds/5));
x2:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret2),seg2)-ret2);
y2:=LastValue(ValueWhen(1,x2=Cum(1),H)); {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
a:=(y1-y2)/(x1-x2);
HiTL:=If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)/(x1-x2) *x1,BarsSince(Cum(1)>x1t-5)); Diff:=Ref(HiTL-L,-LastValue(Cum(1)-x2t)); decal:=LastValue(HHV(Diff,x2t-x1t));
HiTL;
HiTL-decal



[Resim: 12.23.2012-16.jpg]
12-23-2012 05:48 PM
Bu kullanıcının gönderdiği tüm mesajları bul Bu mesaji bir cevapta alıntı yap
Yeni Cevap 




Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi



Borsa Okulu © 2018.