Merhaba,
Kıvanç Hocanın yazmış olduğu bu indikatörlerde %61,8 için tarama kodu rica ediyorum.
5 indikatör için %61,80 fibo seviyesini 5 bar içerisinde yukarı kırmış ve sorgu sırasında %61,80 fibodan yukarda olması
5 indikatör için %61,80 fibo seviyesini 5 bar içerisinde aşağı kırmış ve sorgu sırasında %61,80 fibodan aşağıda olması
CMF
length:=input("İndikatör Periyodu",1,1000,21);
ind:=CMF(length);
BarS:=input("Auto Fibo Bar Sayısı",1,10000,144);
HV:=HHV(ind,BARS);
LV:=LLV(ind,BARS);
Hbars:=BarsSince(ind=HV);
LBars:=BarsSince(ind=LV);
L236:=if(Hbars>LBars, LV+(HV-LV)*.236,HV-(HV-LV)*.236);
L382:=if(Hbars>LBars, LV+(HV-LV)*.382,HV-(HV-LV)*.382);
L500:=if(Hbars>LBars, LV+(HV-LV)*.5,HV-(HV-LV)*.5);
L618:=if(Hbars>LBars, LV+(HV-LV)*.618,HV-(HV-LV)*.618);
L786:=if(Hbars>LBars, LV+(HV-LV)*.786,HV-(HV-LV)*.786);
Lastvalue(HV);
Lastvalue(LV);
Lastvalue(L236);
Lastvalue(L382);
Lastvalue(L500);
Lastvalue(L618);
Lastvalue(L786);
ind
CMO
length:=input("İndikatör Periyodu",1,1000,21);
ind:=CMO(C,length);
BarS:=input("Auto Fibo Bar Sayısı",1,10000,144);
HV:=HHV(ind,BARS);
LV:=LLV(ind,BARS);
Hbars:=BarsSince(ind=HV);
LBars:=BarsSince(ind=LV);
L236:=if(Hbars>LBars, LV+(HV-LV)*.236,HV-(HV-LV)*.236);
L382:=if(Hbars>LBars, LV+(HV-LV)*.382,HV-(HV-LV)*.382);
L500:=if(Hbars>LBars, LV+(HV-LV)*.5,HV-(HV-LV)*.5);
L618:=if(Hbars>LBars, LV+(HV-LV)*.618,HV-(HV-LV)*.618);
L786:=if(Hbars>LBars, LV+(HV-LV)*.786,HV-(HV-LV)*.786);
Lastvalue(HV);
Lastvalue(LV);
Lastvalue(L236);
Lastvalue(L382);
Lastvalue(L500);
Lastvalue(L618);
Lastvalue(L786);
ind
MFI
length:=input("İndikatör Periyodu",1,1000,14);
ind:=MFI(length);
BarS:=input("Auto Fibo Bar Sayısı",1,10000,144);
HV:=HHV(ind,BARS);
LV:=LLV(ind,BARS);
Hbars:=BarsSince(ind=HV);
LBars:=BarsSince(ind=LV);
L236:=if(Hbars>LBars, LV+(HV-LV)*.236,HV-(HV-LV)*.236);
L382:=if(Hbars>LBars, LV+(HV-LV)*.382,HV-(HV-LV)*.382);
L500:=if(Hbars>LBars, LV+(HV-LV)*.5,HV-(HV-LV)*.5);
L618:=if(Hbars>LBars, LV+(HV-LV)*.618,HV-(HV-LV)*.618);
L786:=if(Hbars>LBars, LV+(HV-LV)*.786,HV-(HV-LV)*.786);
Lastvalue(HV);
Lastvalue(LV);
Lastvalue(L236);
Lastvalue(L382);
Lastvalue(L500);
Lastvalue(L618);
Lastvalue(L786);
ind
RSI
length:=input("İndikatör Periyodu",1,1000,14);
ind:=RSI(c,length);
BarS:=input("Auto Fibo Bar Sayısı",1,10000,144);
HV:=HHV(ind,BARS);
LV:=LLV(ind,BARS);
Hbars:=BarsSince(ind=HV);
LBars:=BarsSince(ind=LV);
L236:=if(Hbars>LBars, LV+(HV-LV)*.236,HV-(HV-LV)*.236);
L382:=if(Hbars>LBars, LV+(HV-LV)*.382,HV-(HV-LV)*.382);
L500:=if(Hbars>LBars, LV+(HV-LV)*.5,HV-(HV-LV)*.5);
L618:=if(Hbars>LBars, LV+(HV-LV)*.618,HV-(HV-LV)*.618);
L786:=if(Hbars>LBars, LV+(HV-LV)*.786,HV-(HV-LV)*.786);
Lastvalue(HV);
Lastvalue(LV);
Lastvalue(L236);
Lastvalue(L382);
Lastvalue(L500);
Lastvalue(L618);
Lastvalue(L786);
ind
STOCASTİC
length:=input("İndikatör Periyodu",1,1000,14);
ind:=STOFK(length,3);
BarS:=input("Auto Fibo Bar Sayısı",1,10000,144);
HV:=HHV(ind,BARS);
LV:=LLV(ind,BARS);
Hbars:=BarsSince(ind=HV);
LBars:=BarsSince(ind=LV);
L236:=if(Hbars>LBars, LV+(HV-LV)*.236,HV-(HV-LV)*.236);
L382:=if(Hbars>LBars, LV+(HV-LV)*.382,HV-(HV-LV)*.382);
L500:=if(Hbars>LBars, LV+(HV-LV)*.5,HV-(HV-LV)*.5);
L618:=if(Hbars>LBars, LV+(HV-LV)*.618,HV-(HV-LV)*.618);
L786:=if(Hbars>LBars, LV+(HV-LV)*.786,HV-(HV-LV)*.786);
Lastvalue(HV);
Lastvalue(LV);
Lastvalue(L236);
Lastvalue(L382);
Lastvalue(L500);
Lastvalue(L618);
Lastvalue(L786);
ind