İDEAL veri terminalinde /Sistem/İndikatör/Robot

[Sezai KILIÇ]

Sezai bey ; İdealTrade ya da diğer arkadaşlardan bir kod ricam olacaktı , biliyorum Barsince komutları biraz gıcık ve ben ceviremedim. Beğendiğim bir indikatör Connor RSI. Yardımcı olabilirseniz sevinirim.

data:=CLOSE;

lenRSI:=3;
lenStreak:=2;
lenPctRank:=100;

WildersRSI:=RSI(data, lenRSI);

UpDays:=BarsSince(C<=Ref(C,-1));
DownDays:=BarsSince(C>=Ref(C,-1));
Streak:=If(upDays>0,upDays,If(downDays>0,-downDays,0));
StreakRSI:=RSI(Streak,lenStreak);

larger:=Sum(data>LastValue(data+PREV*0),lenPctRank);
PctRank:=100 * larger / lenPctRank; {edited code}

ConnorsRSI:=(WildersRSI + StreakRSI + PctRank) / 3;
ConnorsRSI;

Buyrun:

var C = Sistem.GrafikFiyatSec("Kapanis");
var lenRSI =3;
var lenStreak = 2;
var lenPctRank = 100;
var WildersRSI = Sistem.RSI(C,lenRSI);
var Up = new List<int>();
var Dn = new List<int>();
var UpDn = Sistem.Liste(0);
var ch = Sistem.Liste(0);
var ConnorsRSI = Sistem.Liste(0);
var PctRank = Sistem.Liste(Sistem.BarSayisi,0);
var temp = new List<float>();
for(int i = 1 ; i<Sistem.BarSayisi;i++)
{
   ch[i] = (C[i]-C[i-1])/C[i-1]*100;
   temp.Add(ch[i]);
     if(ch[i]<=0)
     Up.Add(i);
    if(ch[i] >=0)
     Dn.Add(i);

   if(Up.Count>0 && Dn.Count>0)
   UpDn[i] = (i-Up.Last())- (i-Dn.Last());
   
      var son = temp.Count-1;      
      if(son>=lenPctRank)
     {
       var count = 0;
      for(int j =lenPctRank ; j>=1;j--)
      {
          if(temp[son]> ch[son-j])
             count=count+1;
      }     
     PctRank[i] = 100*count / lenPctRank;
     }
}

var StreakRSI = Sistem.RSI(UpDn,lenStreak);

for(int i = 0 ; i<Sistem.BarSayisi;i++)
   ConnorsRSI[i] =( WildersRSI[i]+ StreakRSI[i] + PctRank[i])/3;

Sistem.Cizgiler[0].Deger = ConnorsRSI; //panel2

[ykoc]

Buyrun:

var C = Sistem.GrafikFiyatSec("Kapanis");
var lenRSI =3;
var lenStreak = 2;
var lenPctRank = 100;
var WildersRSI = Sistem.RSI(C,lenRSI);
var Up = new List<int>();
var Dn = new List<int>();
var UpDn = Sistem.Liste(0);
var ch = Sistem.Liste(0);
var ConnorsRSI = Sistem.Liste(0);
var PctRank = Sistem.Liste(Sistem.BarSayisi,0);
var temp = new List<float>();
for(int i = 1 ; i<Sistem.BarSayisi;i++)
{
   ch[i] = (C[i]-C[i-1])/C[i-1]*100;
   temp.Add(ch[i]);
     if(ch[i]<=0)
     Up.Add(i);
    if(ch[i] >=0)
     Dn.Add(i);

   if(Up.Count>0 && Dn.Count>0)
   UpDn[i] = (i-Up.Last())- (i-Dn.Last());
   
      var son = temp.Count-1;      
      if(son>=lenPctRank)
     {
       var count = 0;
      for(int j =lenPctRank ; j>=1;j--)
      {
          if(temp[son]> ch[son-j])
             count=count+1;
      }     
     PctRank[i] = 100*count / lenPctRank;
     }
}

var StreakRSI = Sistem.RSI(UpDn,lenStreak);

for(int i = 0 ; i<Sistem.BarSayisi;i++)
   ConnorsRSI[i] =( WildersRSI[i]+ StreakRSI[i] + PctRank[i])/3;

Sistem.Cizgiler[0].Deger = ConnorsRSI; //panel2

teşekkür ederim zahmet verdim. Elinize sağlık.

[yusuf06_tr]

Arkadaşlar vps serverda bileşik sistem getiri eğrisi bölümüne girince resimdeki hata mesajini veriyor , sorunun idealdemi yoksa servardami oldugunu anliyamadim programi silip yüklemekten başka , hatayi gidermenin bir yôntemi varmidir?

[uufuk]

Sezai bey ; İdealTrade ya da diğer arkadaşlardan bir kod ricam olacaktı , biliyorum Barsince komutları biraz gıcık ve ben ceviremedim. Beğendiğim bir indikatör Connor RSI. Yardımcı olabilirseniz sevinirim.

data:=CLOSE;

lenRSI:=3;
lenStreak:=2;
lenPctRank:=100;

WildersRSI:=RSI(data, lenRSI);

UpDays:=BarsSince(C<=Ref(C,-1));
DownDays:=BarsSince(C>=Ref(C,-1));
Streak:=If(upDays>0,upDays,If(downDays>0,-downDays,0));
StreakRSI:=RSI(Streak,lenStreak);

larger:=Sum(data>LastValue(data+PREV*0),lenPctRank);
PctRank:=100 * larger / lenPctRank; {edited code}

ConnorsRSI:=(WildersRSI + StreakRSI + PctRank) / 3;
ConnorsRSI;

Dostum..
Metastock CONNORSRSI formulu bendeki "OSRConnors.dll" kullanılarak yazılmış ve formulu aşağıda..

RSILength:=Input("Please enter a value for <RSI Length>",2,1000,3);
RSILengthStreak:=Input("Please enter a value for <RSI Length of Streak>",2,1000,2);
Ranklookback:=Input("Please enter a value for <Rank lookback>",21,500,100);

upDays:=BarsSince(C<=Ref(C,-1));
downDays:=BarsSince(C>=Ref(C,-1));
upDownDays:=If(upDays>0,upDays,If(downDays>0,-downDays,0)); 

Rankx:=ExtFml("OSRConnors.PercentRankx", ROC(C,1,PERCENT), Ranklookback);
UpDnRSI:=RSI(upDownDays, RSILengthStreak);
RSI3:=RSI(CLOSE, RSILength);

ConnorsRSI:=( Rankx +UpDnRSI + RSI3)/3;

ConnorsRSI;

İkisinini karşılaştırdım çıktılar farklı..Zamanında "dll"siz yazmak için bayağı ugraşmışdım...
Bence refarans aldığınız formul hatalı...

[erhanacikgoz1]

Arkadaşlar vps serverda bileşik sistem getiri eğrisi bölümüne girince resimdeki hata mesajini veriyor , sorunun idealdemi yoksa servardami oldugunu anliyamadim programi silip yüklemekten başka , hatayi gidermenin bir yôntemi varmidir?

versionyeni mi ki ?

[ykoc]

versionyeni mi ki ?

Bu hata eger birlesik sistem getiri ekranina kayitli bir sistemi sildiyseniz, ya da programi acip sistemler henuz yuklenmediginde hemen birlesik sistem getiri ekranini acarsaniz cikiyor diye hatirliyorum. Programi silmeye falan gerek yok .

[yusuf06_tr]

versionyeni mi ki ?

Erhan hallettik , config klasöründeki dosyayi silince düzeldi sn. Korsan yardimci oldu..

[ykoc]

Dostum..
Metastock CONNORSRSI formulu bendeki "OSRConnors.dll" kullanılarak yazılmış ve formulu aşağıda..

RSILength:=Input("Please enter a value for <RSI Length>",2,1000,3);
RSILengthStreak:=Input("Please enter a value for <RSI Length of Streak>",2,1000,2);
Ranklookback:=Input("Please enter a value for <Rank lookback>",21,500,100);

upDays:=BarsSince(C<=Ref(C,-1));
downDays:=BarsSince(C>=Ref(C,-1));
upDownDays:=If(upDays>0,upDays,If(downDays>0,-downDays,0)); 

Rankx:=ExtFml("OSRConnors.PercentRankx", ROC(C,1,PERCENT), Ranklookback);
UpDnRSI:=RSI(upDownDays, RSILengthStreak);
RSI3:=RSI(CLOSE, RSILength);

ConnorsRSI:=( Rankx +UpDnRSI + RSI3)/3;

ConnorsRSI;

İkisinini karşılaştırdım çıktılar farklı..Zamanında "dll"siz yazmak için bayağı ugraşmışdım...
Bence refarans aldığınız formul hatalı...

Tşk sv uufuk biraz yumuşatilmiş ve dll olmadan olabilen şekli diyelim buna . Oldugu kadar olmadiği kader