
Originally Posted by
eksper_34
hocam hayırlı olsun ben yeni katıldım aranıza. forum tarzı bir siteye de ilk defa üye oldum acemilimi mazur görün.
benim şöyle bir sorum olacakdı sizlere
resimdeki gibi düşen trend de fibo 100 seviyesini 1 günce test eden sonra kıran hisselerin tarama formülünü yazabilirmiyiz
Dostum mesajındaki çizim manuel olararak studio çizim...
Tepeler ile dipler arası fibo seviyeleri...
Tarama yapacak,Explorer de çeşit sened fiyatı var...
% cinsinden fiyat hareketlerini zigzaga cizdirip çözüm buluruz,yalnız bazı önlemler almalıyızkı repaint yapmasın...
Verecegim formulu sat içinde kullanabilirsin....

------------------------------------------------
%2lık trend için tepe dip zigzagı..%2 yi degişebilirsin...
perc:=2;
diffHi:=H-Ref(H,-1); diffLo:=Ref(L,-1)-L; a:=If(diffLo>diffHi,L,H);
z:=ZIG(a,perc,%);
-----------------------------
Küçük geri çekilmelerde poz degişmesin diye önlem
zp:=if(z>ref(z,-1),1,-1);
---------------
Son ve önceki trend seviyeleri ile verdigin yüzdeden ufak trendleri eleyen ,repaint engelleyen önlem..
last:=ValueWhen(1, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
last2:=ValueWhen(2, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
pc:=(100*abs(C-last)/ last)>=perc;
--------------------------------
İstedigin al
Cross(c,last2) and pc and zp=1;
---------------------
Cabası sat üstüne beleş...
Cross(last2,c) and pc and zp=-1
---------------------------------------------------
Explorer için
Al kolonu
Kod:
perc:=2; diffHi:=H-Ref(H,-1); diffLo:=Ref(L,-1)-L; a:=If(diffLo>diffHi,L,H);
z:=ZIG(a,perc,%); zp:=if(z>ref(z,-1),1,-1);
last:=ValueWhen(1, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
last2:=ValueWhen(2, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
pc:=(100*abs(C-last)/ last)>=perc;
Cross(c,last2) and pc and zp=1
Sat kolonu
Kod:
perc:=2; diffHi:=H-Ref(H,-1); diffLo:=Ref(L,-1)-L; a:=If(diffLo>diffHi,L,H);
z:=ZIG(a,perc,%); zp:=if(z>ref(z,-1),1,-1);
last:=ValueWhen(1, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
last2:=ValueWhen(2, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
pc:=(100*abs(C-last)/ last)>=perc;
Cross(last2,c) and pc and zp=-1
Yer İmleri