Kod:
//fibo %100 seviyesini 1 gün önce test eden ve kıran hisselerin taraması
//soru= eksper-34 cevap= ufuuk tarih= 27/01/2018
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
//%2lık trend için tepe dip zigzagı..%2 yi degişebilirsin...
perc= Param("yuzde",2,1,30,1);
diffHi= H-Ref(H,-1);
diffLo= Ref(L,-1)-L;
a= iIf(diffLo>diffHi,L,H);
z= ZIG(a,perc);
////////////////////////////////////
zp=iif(z>ref(z,-1),1,-1);//Küçük geri çekilmelerde poz degişmesin diye önlem
////////////////////////////////////////////
//Son ve önceki trend seviyeleri ile verdigin yüzdeden ufak trendleri eleyen ,repaint engelleyen önlem..
last =ValueWhen( ( 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),1);
last2 =ValueWhen( ( 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),2);
pc =(100*abs(C-last)/ last)>=perc;
//İstedigin al
al =Cross(c,last2) and pc and zp=1;
//---------------------
//Cabası sat üstüne beleş...
sat =Cross(last2,c) and pc and zp=-1;
Plot(last2,"last2",colorRed);
Plot(z,"zig",colorGrey40);
PlotShapes(al*shapeUpArrow, colorGreen);
PlotShapes(sat*shapedownArrow, colorred);
Buy =Cross(c,last2) and pc and zp=1;
Sell =Cross(last2,c) and pc and zp=-1;
Filter=Buy OR sell;
AddColumn(Buy,"Buy",1.2,colorGreen);
AddColumn(Sell,"Sell",1.2,colorRed);
Formül ile tarama da yapabilirsiniz.
Yer İmleri