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

[Zülfü Aşkın]

Ana grafik 60 dk lık ara grafikler 30 ve 15 dk lık...

60 dk grafik üzerinden sat sinyali geldi 3 adet sort açtım...Daha sonra 15 dk grafik üzerinde al sinyali geldi 1 adet sort kapanacak ardından 30 dk al verdi 1 adet sort daha kapanacak 60dk al sinyali gelirse diger 1 adet sort kapanacak ve long poza gececek 3 adet

60 dk al devam ederken 15 dk sat verdi 1 poz kapanacak derken tekrar 15 dklık al verdi kapanan poz tekrar acılacak 60 dk sat sinayli verene kadar..


Ana poz 60 dk lık 15 ve 30 dk lıklar ana poza ters düşerse 1 adet kapanacak 15 ve 30 dk 60 dk lık ile aynı yöne gelirse tekrar açılacak...

Bunu robota uygulayacak yardımcı olacak arkadaş veya arkadaşlara şimdiden teşekkürler..


[IMG][/IMG]


[IMG][/IMG]


[IMG][/IMG]

[Bear_Bull]

//////_5_Sistem_Tek_islem_Robot////////

var Poz1 = Sistem.PozisyonKontrolOku("Robot1" + " , " + Sistem.AktifViopKontrat);
var Poz2 = Sistem.PozisyonKontrolOku("Robot2" + " , " + Sistem.AktifViopKontrat);
var Poz3 = Sistem.PozisyonKontrolOku("Robot3" + " , " + Sistem.AktifViopKontrat);
var Poz4 = Sistem.PozisyonKontrolOku("Robot4" + " , " + Sistem.AktifViopKontrat);
var Poz5 = Sistem.PozisyonKontrolOku("Robot5" + " , " + Sistem.AktifViopKontrat);

var PozExtra = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + Sistem.AktifViopKontrat);

var Miktar = 0.0;
if (Poz1 + Poz2 + Poz3 + Poz4 + Poz5 == 5)
{
    if (PozExtra == 0)
        Miktar = 2;
}
else if (Poz1 + Poz2 + Poz3 + Poz4 + Poz5 == -5)
{
    if (PozExtra == 0)
        Miktar = -2;
}
else if (PozExtra != 0)
{
    Miktar = -PozExtra;
}

// Emir Gönder
if (Miktar != 0)
{
    Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + Sistem.AktifViopKontrat, Miktar + PozExtra);
    Sistem.EmirSembol = Sistem.AktifViopKontrat;
    Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS"; ;
    Sistem.EmirMiktari = Math.Abs(Miktar);
    Sistem.EmirSuresi = "GUN";
    Sistem.EmirTipi = "KPY";
    Sistem.EmirFiyatTipi = "PYS";
    Sistem.EmirGonder();
} 

[SSilentmaNN]

Düzeltiyorum, çalışıyormuş. Yanlış kodladım galiba.

Merhaba arkadaşlar.
Sistem.RobotStop(); komutu çalışmıyor, artık.
Sistem elemanları pencersinde de bulunmuyor. Kod ile robotu nasıl durdurabilirim.

[Revisionist]

Arkadaşlar macd nin kapanış fiyatından değilde high+low/2 hesaplanmasını ve exponanetial değilde zerolag olmasını istiyorum. Ayrıca smoothh olması için bir iki filtreleme yapmam gerekiyor. Şöyle bir kod yazdım ama çizdirmiyor. Nerede hata yapıyorum.

//Veriler
var V = Sistem.GrafikVerileri ;
var high = Sistem.GrafikFiyatOku(V, "Yuksek") ;
var low = Sistem.GrafikFiyatOku(V, "Dusuk") ;
//Variable
var src= (high + low)/2;
var ma1= Sistem.MA(src, "ZeroLag", 12);
var ma2= Sistem.MA(src, "ZeroLag", 26);
var ma3= Sistem.MA(src, "ZeroLag", 9);
//Calculations 
var fast = ma1 - ma2;
var slow= ma3(fast);
var avr = fast - slow;
//Lines
Sistem.Cizgiler[0].Deger = fast;  
Sistem.Cizgiler[1].Deger = slow;
Sistem.Cizgiler[2].Deger = avr; 

Birde slow 'u histogram olarak nasıl çizdirirm?

[alekss]

Arkadaşlar macd nin kapanış fiyatından değilde high+low/2 hesaplanmasını ve exponanetial değilde zerolag olmasını istiyorum. Ayrıca smoothh olması için bir iki filtreleme yapmam gerekiyor. Şöyle bir kod yazdım ama çizdirmiyor. Nerede hata yapıyorum.

//Veriler
var V = Sistem.GrafikVerileri ;
var high = Sistem.GrafikFiyatOku(V, "Yuksek") ;
var low = Sistem.GrafikFiyatOku(V, "Dusuk") ;
//Variable
var src= (high + low)/2;
var ma1= Sistem.MA(src, "ZeroLag", 12);
var ma2= Sistem.MA(src, "ZeroLag", 26);
var ma3= Sistem.MA(src, "ZeroLag", 9);
//Calculations 
var fast = ma1 - ma2;
var slow= ma3(fast);
var avr = fast - slow;
//Lines
Sistem.Cizgiler[0].Deger = fast;  
Sistem.Cizgiler[1].Deger = slow;
Sistem.Cizgiler[2].Deger = avr; 

Birde slow 'u histogram olarak nasıl çizdirirm?

dostum şöyle bir yazılmış formül var belki işine yarar
var fastperiod = 12;
var slowperiod = 26;
var signalperiod = 9;

var Veriler = Sistem.GrafikVerileri;

var C=Sistem.Liste(0);
var V=Sistem.Liste(0);
var CV=Sistem.Liste(0);
var fastMA=Sistem.Liste(0);
var slowMA=Sistem.Liste(0);
var VWMACD=Sistem.Liste(0);

for (int i = 1; i < Veriler.Count; i++)
{ C[i] =Veriler[i].Close;
V[i] =Veriler[i].Vol;
CV[i]=V[i] * C[i];
}

var KVWMA1= Sistem.MA(CV,"Exp",fastperiod );
var KVWMA2= Sistem.MA(V,"Exp",fastperiod );
var UVWMA1 = Sistem.MA(CV,"Exp",slowperiod );
var UVWMA2 = Sistem.MA(V,"Exp",slowperiod );

for (int i = 1; i < Veriler.Count; i++)
{
fastMA[i] = KVWMA1[i] / KVWMA2[i] ;
slowMA[i] = UVWMA1[i] / UVWMA2[i] ;
VWMACD[i] = fastMA[i] - slowMA[i] ;
}

var signal = Sistem.MA (VWMACD,"Simple",signalperiod);

var hist=Sistem.Liste(0);
for (int i = 1; i < Veriler.Count; i++)
{
hist[i] = VWMACD[i] - signal[i] ;
}

Sistem.Cizgiler[0].Deger = VWMACD; Sistem.Cizgiler[0].Panel = 2;
Sistem.Cizgiler[1].Deger = signal; Sistem.Cizgiler[1].Panel = 2;
Sistem.Cizgiler[2].Deger = hist; Sistem.Cizgiler[2].Panel = 2; Sistem.Cizgiler[2].Stil = 5;
Sistem.Cizgiler[3].Deger = Sistem.Liste(0); Sistem.Cizgiler[3].Panel = 2;

[Janbulat]

Arkadaslar belli kosullarda dusukleri seçip topladığım bir liste var.Bu listedeki elmanların MA ,TOMA vb tarafından kesildiği bir al sat kosulu uretmek istiyorum olmuyor bir turlu lutfen yardım edermisiniz.Cok sıkıstım.
var x1=Sistem.Liste(Veriler,0);
var MA1=Sistem.MA(2, "Simple", "Kapanis");
for(int i=0; i<enDusuklerListesi3.Count; i++)
{
Sistem.YaziEkle("L", 1, enDusuklerListesi3[i], Sistem.GrafikVerileri[enDusuklerListesi3[i]].Low, Renk2, "Tahoma", 12);
}
for (int i = 10; i < Veriler.Count-1; i++)
{
{
x1[i]=
enDusuklerListesi3[i]>MA1[i]? -1:

enDusuklerListesi3[i]<MA1[i]?1:
x[i-1];
}
if(x[i]==1&&SonYon!="A")
{
SonYon = "A";
Sistem.Yon[i]=SonYon;
}
if(x[i]==-1&&SonYon!="S")
{
SonYon = "S";
Sistem.Yon[i]=SonYon;
}
}

[ozmen]

var slow= ma3(fast); 

Slow kodu nedir?

//Veriler
var V = Sistem.GrafikVerileri ;
var SRC = Sistem.GrafikFiyatSec("OrtaNokta") ;

//Variable

var ma1= Sistem.MA(SRC, "ZeroLag", 12);
var ma2= Sistem.MA(SRC, "ZeroLag", 26);
var ma3= Sistem.MA(SRC, "ZeroLag", 9);
//Calculations 

var fast=Sistem.Liste(0);
var slow=Sistem.Liste(0);
var avr=Sistem.Liste(0);


//for (int i = 0; i < V.Count; i++)
for (int i=1; i < Sistem.BarSayisi; i++)
{
fast[i] = ma1[i] - ma2[i];
//slow[i] = ma3[i] - fast[i];
//slow[i] = fast[i] != 0 ? ma3[i] / fast[i] : slow[i-1];
avr[i] = fast[i] - slow[i];
}

//Lines
Sistem.Cizgiler[0].Deger = fast;  
Sistem.Cizgiler[1].Deger = slow;  Sistem.Cizgiler[1].Stil = 5;
Sistem.Cizgiler[2].Deger = avr; 
 
//Sistem.Cizgiler[3].Deger = SRC; 

[ozmen]

Arkadaşlar döngü içerisindeki elemanın son değerini düz çizgi olarak nasıl çizdirebilirim.