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

[netkit]

İyi Haftalar;
tek taramada Aylık ma x/x kesenleri ve bu hisselerin günlük ma x/x leri kesenleri nasıl tarabilirim?

[ozmen]

İyi Haftalar;
tek taramada Aylık ma x/x kesenleri ve bu hisselerin günlük ma x/x leri kesenleri nasıl tarabilirim?

http://www.hisse.net/topluluk/showth...00#post2932800

Double MA lı anladım ben Sayın Netkit.
Sayın Tiberus un kodunda değişiklilik yapılmış hali ile aşağıdadır. Teşekkürler Tiberius.

var MAX = Sistem.Parametreler[0]; // Küçük Periyot
var MAY = Sistem.Parametreler[1]; // Büyük Periyot

var VGUN = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");        // günlük veri listesi
var CGUN = Sistem.GrafikFiyatOku(VGUN, "Kapanis");                // günlük kapanış listesi
var VAY = Sistem.GrafikVerileriniOku(Sistem.Sembol, "A");        // Aylık veri listesi
var CAY = Sistem.GrafikFiyatOku(VAY, "Kapanis");                // Aylık kapanış listesi

var MAGUN = Sistem.MA(CGUN, "Exp", MAX);
var MAGUN2 = Sistem.MA(CGUN, "Exp", MAY);

var MAAY = Sistem.MA(CAY, "Exp", MAX);
var MAAY2 = Sistem.MA(CAY, "Exp", MAY);
            
string Aciklama = "";
if (MAAY2[MAAY2.Count - 1] < MAAY[MAAY.Count - 1] && MAGUN[MAGUN.Count - 1] > MAGUN2[MAGUN2.Count - 1] && MAGUN[MAGUN.Count - 2] < MAGUN2[MAGUN2.Count - 2])
{
    Aciklama = " Yukarı Dönüş";
    Sistem.SorguZeminRengi = Color.Green;
    Sistem.SorguYaziRengi = Color.White;
}
if (MAAY[MAAY.Count - 1] < MAAY2[MAAY2.Count - 1] && MAGUN2[MAGUN2.Count - 1] > MAGUN[MAGUN.Count - 1]&& MAGUN2[MAGUN2.Count - 2] < MAGUN[MAGUN.Count - 2])
{
    Aciklama = " Aşağı Dönüş";
    Sistem.SorguZeminRengi = Color.Red;
    Sistem.SorguYaziRengi = Color.White;
}


Sistem.SorguBaslik[0] = "SON FIYAT";
Sistem.SorguBaslik[1] = "MA GUN";
Sistem.SorguBaslik[2] = "MA AY";
if (Aciklama != "")
{
    Sistem.SorguAciklama = Aciklama;
    Sistem.SorguDeger[0] = CGUN[CGUN.Count - 1];
    Sistem.SorguDeger[1] = MAGUN[MAGUN.Count - 1];
    Sistem.SorguDeger[2] = MAAY[MAAY.Count - 1];
    Sistem.SorguEkle();
} 

[/QUOTE]

[netkit]

http://www.hisse.net/topluluk/showth...00#post2932800

Double MA lı anladım ben Sayın Netkit.
Sayın Tiberus un kodunda değişiklilik yapılmış hali ile aşağıdadır. Teşekkürler Tiberius.

var MAX = Sistem.Parametreler[0]; // Küçük Periyot
var MAY = Sistem.Parametreler[1]; // Büyük Periyot

var VGUN = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");        // günlük veri listesi
var CGUN = Sistem.GrafikFiyatOku(VGUN, "Kapanis");                // günlük kapanış listesi
var VAY = Sistem.GrafikVerileriniOku(Sistem.Sembol, "A");        // Aylık veri listesi
var CAY = Sistem.GrafikFiyatOku(VAY, "Kapanis");                // Aylık kapanış listesi

var MAGUN = Sistem.MA(CGUN, "Exp", MAX);
var MAGUN2 = Sistem.MA(CGUN, "Exp", MAY);

var MAAY = Sistem.MA(CAY, "Exp", MAX);
var MAAY2 = Sistem.MA(CAY, "Exp", MAY);
            
string Aciklama = "";
if (MAAY2[MAAY2.Count - 1] < MAAY[MAAY.Count - 1] && MAGUN[MAGUN.Count - 1] > MAGUN2[MAGUN2.Count - 1] && MAGUN[MAGUN.Count - 2] < MAGUN2[MAGUN2.Count - 2])
{
    Aciklama = " Yukarı Dönüş";
    Sistem.SorguZeminRengi = Color.Green;
    Sistem.SorguYaziRengi = Color.White;
}
if (MAAY[MAAY.Count - 1] < MAAY2[MAAY2.Count - 1] && MAGUN2[MAGUN2.Count - 1] > MAGUN[MAGUN.Count - 1]&& MAGUN2[MAGUN2.Count - 2] < MAGUN[MAGUN.Count - 2])
{
    Aciklama = " Aşağı Dönüş";
    Sistem.SorguZeminRengi = Color.Red;
    Sistem.SorguYaziRengi = Color.White;
}


Sistem.SorguBaslik[0] = "SON FIYAT";
Sistem.SorguBaslik[1] = "MA GUN";
Sistem.SorguBaslik[2] = "MA AY";
if (Aciklama != "")
{
    Sistem.SorguAciklama = Aciklama;
    Sistem.SorguDeger[0] = CGUN[CGUN.Count - 1];
    Sistem.SorguDeger[1] = MAGUN[MAGUN.Count - 1];
    Sistem.SorguDeger[2] = MAAY[MAAY.Count - 1];
    Sistem.SorguEkle();
} 

[/QUOTE]

Çok teşekkür ederim yarın deneyecegim.

[Tiberius]

Yeni bir dönem açıyoruz, yakında dertler bitecek.
Şablon robot geliyor.
Eğitim programları da olacak.

[alekss]

Yeni bir dönem açıyoruz, yakında dertler bitecek.
Şablon robot geliyor.
Eğitim programları da olacak.

sayın Tiberius
idealdata olarak son zamanlardaki yeniliklerle adeta oyunun kurallarını yeniden yazıyorsunuz
sabırsızlıkla bekliyoruz bahsettiğiniz yeniliği
tebrikler , beyninize sağlık

[tuncahm]

Yeni bir dönem açıyoruz, yakında dertler bitecek.
Şablon robot geliyor.
Eğitim programları da olacak.