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

[mehmetoruc]

çok teşekkürler.

Sorgu penceresi açılıyor fakat bir sey göstermiyor.

[mehmetoruc]

daha önce mum formasyonlarını bu forumda bir arkadaş paylaşmıstı ben de ideal yetkilerineden bu mum formasyonlarının sorgusunu rica etmiştim ,sagolsunlar sorgusunu yapmışlar göndermişler , kullanmak isteyenler olabilir

hata veriyor sanırım.

[mehmetoruc]

Teşekkür ederim. Faydalı bir sorgu. Emeğinize sağlık.

[mehmetoruc]

hatalar var

[mehmetoruc]

Toma değerlerini düzenleyin.

Sistem.SorguAciklamaGenislik = 10;
Sistem.SorguBaslik[0] = "Kapanış"; Sistem.SorguOndalik[0] = 2;
Sistem.SorguBaslik[1] = "MACD";    Sistem.SorguOndalik[1] = 0;
Sistem.SorguBaslik[2] = "RSI";    Sistem.SorguOndalik[2] = 0;
Sistem.SorguBaslik[3] = "MOM";    Sistem.SorguOndalik[3] = 0;
Sistem.SorguBaslik[4] = "8-21";   Sistem.SorguOndalik[4] = 0;
Sistem.SorguBaslik[5] = "50-200";   Sistem.SorguOndalik[5] = 0;
Sistem.SorguBaslik[6] = "TOMA";   Sistem.SorguOndalik[6] = 0;
Sistem.SorguBaslik[7] = "SONUC";   Sistem.SorguOndalik[7] = 0;

var MAC = Sistem.MACD(12,26);       
var EMAM = Sistem.MA(MAC,"Exp",9);
var RSI = Sistem.RSI(14);
var MOM = Sistem.Momentum(14);
var MA8 = Sistem.MA(8, "Exp", "Kapanis");
var MA21 = Sistem.MA(21, "Exp", "Kapanis");
var MA50 = Sistem.MA(50, "Exp", "Kapanis");
var MA100 = Sistem.MA(100, "Exp", "Kapanis");
var TOM = Sistem.TOMA(3, 2);
var EMAT = Sistem.MA(TOM, "Exp", 3);

var Son = Sistem.BarSayisi -1;

var xMACD = Sistem.Liste(0);       
var xRSI = Sistem.Liste(0);
var xMOM = Sistem.Liste(0);
var xMA821 = Sistem.Liste(0);
var xMA50100 = Sistem.Liste(0);
var xTOM = Sistem.Liste(0);

for (int i=1; i < Sistem.BarSayisi; i++)
{  
 xMACD[i] = MAC[i] > EMAM[i] ? 1 :0;
 xRSI[i] = RSI[i]>50.0f ? 1 :0;
 xMOM[i] = MOM[i]>100.0f ? 1 :0;
 xMA821[i] = MA8[i]>MA21[i] ? 1 :0;
 xMA50100[i] = MA50[i]>MA100[i] ? 1 :0; 
 xTOM[i] = TOM[i]>EMAT[i] ? 1 :0; 
}

// Macd filtrele 
// if ( MAC[Son] > EMAM[Son] && MAC[Son-1] < EMAM[Son-1]   )

{
   Sistem.SorguDeger[0] = Sistem.GrafikVerileri[Sistem.BarSayisi-1].Close;
   Sistem.SorguDeger[1] = xMACD[Son];
   Sistem.SorguDeger[2] = xRSI[Son];   
   Sistem.SorguDeger[3] = xMOM[Son];
   Sistem.SorguDeger[4] = xMA821[Son];
   Sistem.SorguDeger[5] = xMA50100[Son]; 
   Sistem.SorguDeger[6] = xTOM[Son];
   Sistem.SorguDeger[7] = xMACD[Son]+xRSI[Son]+xMOM[Son]+xMA821[Son]+xMA50100[Son]+xTOM[Son];
}
  Sistem.SorguEkle(); 

çok teşekkür ederim en kapsamlı sorgulardan biri

[mehmetoruc]

Merhaba arkadaşkar ideal'in sitesinden indirdiğim kodda küçük bir değişiklik yaparak, sorgu ile hisselere ait para giriş çıkışını listeletiyorum.
Fakat bir sorunum var, imkb 50 hisselerini seçiyorum ve bana az sayıda hisse gösteriyor. Sorun nerededir acaba. Kaç hisse seçmişsem o kadar hisseye ait listeleme yapması lazım.

var Seviye = 5; //kaç kurum seviyesi için PGÇ

var Sembol = Sistem.Sembol;
var Sembol1 = Sembol.Substring(6);


Sistem.SorguBaslik[0] = "Son";
Sistem.SorguBaslik[1] = "PGÇ";
Sistem.SorguBaslik[2] = "Frk %";


var KurumlarNet = new Dictionary<string, double>();
var Islemler = Sistem.HisseIslemleriniOku();


foreach (var Islem in Islemler)
{
    if (Islem.Symbol == Sembol1 )
    {
        if (KurumlarNet.ContainsKey(Islem.BuyerCode) == false)
            KurumlarNet[Islem.BuyerCode] = 0;
        if (KurumlarNet.ContainsKey(Islem.SellerCode) == false)
            KurumlarNet[Islem.SellerCode] = 0;
        Double TL = Islem.Price * Islem.Size;
        KurumlarNet[Islem.BuyerCode] += TL;
        KurumlarNet[Islem.SellerCode] -= TL;
    }
}

KurumlarNet = KurumlarNet.OrderBy(x => x.Value).ToDictionary(x => x.Key, y => y.Value);

double AlanNet = 0;
double SatanNet = 0;
if (KurumlarNet.Count > 2 * Seviye)
{
    for (int i = 0; i < Seviye; i++)
        SatanNet += KurumlarNet.ElementAt(i).Value;
    for (int i = KurumlarNet.Count - Seviye; i < KurumlarNet.Count; i++)
        AlanNet += KurumlarNet.ElementAt(i).Value;
}
// PGC
double PGC = AlanNet + SatanNet;


Sistem.SorguDeger[0] = Sistem.SonFiyat(Sembol);
Sistem.SorguDeger[1] = Convert.ToInt64(PGC);
Sistem.SorguDeger[2] = Sistem.YuzdeGun(Sembol);
Sistem.SorguEkle(); 

sorunu çözebildinizmi

[mehmetoruc]

Teşekkürler sayı sonlu hacım şartı eklemek ve daha kısa periyotlarla kesenleri tarasak nasıl bir modofikasyon yapmamız gerekir çok saolun ... saygilar

SM-N9000Q cihazımdan hisse.net mobile app kullanarak gönderildi.

elinize sağlık

[engin.kilic.73]

Aşağıdaki sorgu değerinin sonucuna 13.sütünü nasıl renklendirebilirim.

Sistem.SorguDeger[13] = ( AKDE.Satici[0].Kurum == SorgulananKurum || AKDE.Satici[1].Kurum == SorgulananKurum || AKDE.Satici[2].Kurum == SorgulananKurum )?1 : 0;