Cmf auto fibo cmo auto fıbo fıbo MFI autı fıbo fıbo RSI auto fıbo

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