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

[mehmetoruc]

teþekkür ederim sn Sonli

Sanýrým ideal SORGU modülünde CROSS fonksiyonu yok

emeðine saðlýk

[engin.kilic.73]

Bu iþi bilenlerin sorguya çekemezsin dediði konudur.
Varmýdýr bir babayiðit bunu sorguda çekebilen.

Aracý kurum daðýlýmýnda en çok hacim yapan ilk 5 kurumun toplam rakamlarýný ve maliyetini çekmek istiyorum.
1 krurum xxxx lot xx maliyet
2. kurum ayný þekilde gibi.

Matriks yada ideal farketmez.

[Noyan]

YGT:=0.6/100;
KYN:=Mov( (H+L+C)/3,3,E);
AD:=If((KYN*(1-YGT))>PREV,KYN*(1-YGT),If((KYN*(1+YGT))<PREV,KYN*(1+YGT),PREV));
BU:=0.05/100;
SU:=Mov( (H+L+C)/3,3,E) ;
DD:=If((SU*(1-BU))>PREV,SU*(1-BU),If((SU*(1+BU))<PREV,SU*(1+BU),PREV));
Int(AD/0.025+0.50)*0.025;Int(DD/0.025+0.50)*0.025

ÝDEAL FORMÜLDEKÝ HATA NEREDE....
//HATALI ...
var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var L = Sistem.GrafikFiyatSec("Dusuk");
var H = Sistem.GrafikFiyatSec("Yuksek");
var O = Sistem.GrafikFiyatSec("Acilis");


double ygt = 0.6/100; // orjinal = 0.8
double bu = 0.05/100; // orjinal = 0.2

var hlc = Sistem.Liste(0);
var ad = Sistem.Liste(0);
var dd = Sistem.Liste(0);


for (int i = 1; i < Sistem.BarSayisi; i++)
{
hlc[i] = (H[i] + L[i] + C[i]) / 3;
}

var kyn = Sistem.MA(hlc, "Exp", 3);
var su = Sistem.MA(hlc, "Exp", 3);

for (int i = 2; i < Sistem.BarSayisi; i++)
{
if (kyn[i] * (1-ygt) > ad[i-1] ) ad[i] = (float)Math.Round(kyn[i] * (1 - ygt), 2);

else if ( kyn[i] * (1+ygt) < ad[i-1] ) ad[i] = (float)Math.Round(kyn[i] * (1 - ygt), 2);

else ad[i] = ad[i-1];

if ( su[i] * (1-bu) > dd[i-1] ) dd[i] = (float)Math.Round(su[i] * (1 - bu), 2);

else if ( su[i] * (1 + bu) < dd[i-1] ) dd[i] = (float)Math.Round(su[i] * (1 + bu), 2);

else dd[i] = dd[i-1] ;
}

Sistem.Cizgiler[0].Deger = ad;
Sistem.Cizgiler[1].Deger = dd;

[INVENTOR]

Bu hafta hacim; 29.01.2024 09:23 itibariyle; sýfýr.
Bir hafta hacim sýfýr olmamalý.

 #region QUERY VOLUME
 if (Sistem.BaglantiVar == true)
 {
     
     var SonFiyat = Sistem.SonFiyat(Sistem.Sembol);

     if (SonFiyat > 0)
     {

         try
         {
             var GünlükVeriler = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");

             var HacimBirHafta = Sistem.HacimBirHafta(Sistem.Sembol);
             var HacimBuHafta = Sistem.HacimBuHafta(Sistem.Sembol);

             var HacimBirAy = Sistem.HacimBirAy(Sistem.Sembol);
             var HacimBuAy = Sistem.HacimBuAy(Sistem.Sembol);
                        
             var HacimÜçAy = Sistem.HacimUcAy(Sistem.Sembol);
             var HacimAltýAy = Sistem.HacimAltiAy(Sistem.Sembol);

             var HacimBirYýl = Sistem.HacimBirYil(Sistem.Sembol);
             var HacimBuYýl = Sistem.HacimBuYil(Sistem.Sembol);

... 

[RcP]

Arkadaþlar kolay gelsin aþaðýda TOMA ile ilgili iDeal_SistemGenel.pdf içerisinde de örnek olarak bulunan basit al,sat stratejinin sorgusunu nasýl yapabilirim?Toma da bulan üssel HO ve izsüren stobun kesiþme anlarýný bulmak istiyorum.Ya da bir bar üst ve alt mý olur bilemiyorum tam kesiþme aný. Bir de acaba bu stratejiye içeriði þifreli bir indikatörü de ekleme þansýmýz varmý (ARS) Teþekkür Ederim


var TomaPeriyot = 3; //EMA TOMA PERÝYODU
var Yuzde = 2; //TOMA YÜZDESÝ
var E = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(E,TomaPeriyot, Yuzde);
var EMA = Sistem.MA(E, "Exp",TomaPeriyot);
//var ARS = Sistem.ARS;
var SonYon = "";
for (int i= 1; i < Sistem.BarSayisi; i++)
{
if (EMA[i] > TOMA[i] && SonYon != "A")
{
SonYon = "A";
Sistem.Yon[i] = "A";
}
if (EMA[i] < TOMA[i] && SonYon != "F")
{
SonYon = "F";
Sistem.Yon[i] = "F";
}
}
Sistem.Cizgiler[0].Deger = EMA;
Sistem.Cizgiler[1].Deger = TOMA;

[Noyan]

//ideal kod yazmada yeniyim yardýmcý olurmusunuz ....tþk
//TIBERYUS HOCAMIN FORMÜLÜNDE ALIÞ VE BELÝRLÝYECEÐÝMÝZ SATIÞ(ÖRNEÐÝN ;ALDIÐI FÝYATTAN 10 KADEME SONRASINDA SAT) KOÞULLARINA GÖRE EMÝR GÖNDERME KISMI NASIL YAZILMAKTADIR TÞK.
var milisaniye = 1000;
var Kademesayisi = 3;



var Tablo = new Dictionary<string, int>();
Tablo["IMKBH'ISFIN"] = 1;
Tablo["IMKBH'FONET"] = 1;
Tablo["IMKBH'ISCTR"] = 1;
Tablo["IMKBH'TSKB"] = 1;
Tablo["IMKBH'GSDHO"] = 1;
Tablo["IMKBH'KOZAL"] = 1;
Tablo["IMKBH'ULKER"] = 1;
Tablo["IMKBH'THYAO"] = 1;

foreach (var item in Tablo)
{
var Sembol = item.Key;
var Lot = item.Value;

var AnahtarFiyat = Sistem.Name + ";" + Sembol + "FIYAT";
var AnahtarSure = Sistem.Name + ";" + Sembol + "SURE";
var AlisFiyat = Sistem.SayiTablosunuOku(AnahtarFiyat);
var Sure = Sistem.SayiTablosunuOku(AnahtarSure);

var Yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var FiyatAdým = (decimal)Yuzeysel.PriceStep;
var YeniFiyat = (decimal)Yuzeysel.BidPriceDec;

if (Environment.TickCount > Sure + milisaniye)
{
if (AlisFiyat != 0 && YeniFiyat != 0)
{
if (YeniFiyat >= AlisFiyat + Kademesayisi * FiyatAdým)
{
//EMÝR GÖNDER

}


}
}
AlisFiyat = (decimal)Yuzeysel.BidPriceDec;
Sure = Environment.TickCount;
Sistem.SayiTablosunuGuncelle(AnahtarFiyat, AlisFiyat);
Sistem.SayiTablosunuGuncelle(AnahtarSure, Sure);

Sistem.Mesaj(YeniFiyat.ToString() + " " + FiyatAdým.ToString() + " " + Sure.ToString());

}

[Noyan]

//ideal kod yazmada yeniyim yardýmcý olurmusunuz ....tþk
//TIBERYUS HOCAMIN FORMÜLÜNDE ALIÞ VE BELÝRLÝYECEÐÝMÝZ SATIÞ(ÖRNEÐÝN ;ALDIÐI FÝYATTAN 10 KADEME SONRASINDA SAT) KOÞULLARINA GÖRE EMÝR GÖNDERME KISMI NASIL YAZILMAKTADIR TÞK.
var milisaniye = 1000;
var Kademesayisi = 3;



var Tablo = new Dictionary<string, int>();
Tablo["IMKBH'ISFIN"] = 1;
Tablo["IMKBH'FONET"] = 1;
Tablo["IMKBH'ISCTR"] = 1;
Tablo["IMKBH'TSKB"] = 1;
Tablo["IMKBH'GSDHO"] = 1;
Tablo["IMKBH'KOZAL"] = 1;
Tablo["IMKBH'ULKER"] = 1;
Tablo["IMKBH'THYAO"] = 1;

foreach (var item in Tablo)
{
var Sembol = item.Key;
var Lot = item.Value;

var AnahtarFiyat = Sistem.Name + ";" + Sembol + "FIYAT";
var AnahtarSure = Sistem.Name + ";" + Sembol + "SURE";
var AlisFiyat = Sistem.SayiTablosunuOku(AnahtarFiyat);
var Sure = Sistem.SayiTablosunuOku(AnahtarSure);

var Yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var FiyatAdým = (decimal)Yuzeysel.PriceStep;
var YeniFiyat = (decimal)Yuzeysel.BidPriceDec;

if (Environment.TickCount > Sure + milisaniye)
{
if (AlisFiyat != 0 && YeniFiyat != 0)
{
if (YeniFiyat >= AlisFiyat + Kademesayisi * FiyatAdým)
{
//EMÝR GÖNDER

}


}
}
AlisFiyat = (decimal)Yuzeysel.BidPriceDec;
Sure = Environment.TickCount;
Sistem.SayiTablosunuGuncelle(AnahtarFiyat, AlisFiyat);
Sistem.SayiTablosunuGuncelle(AnahtarSure, Sure);

Sistem.Mesaj(YeniFiyat.ToString() + " " + FiyatAdým.ToString() + " " + Sure.ToString());

}

emir gönderme koþulunun mantýðýný anlýyamadým malesef....gerek yüzeysel veri üzerinden ve grafik üzerinden nasýl yapabiliyoruz ...tþk

[Noyan]

//YAPMAYA ÇALIÞTIM HATAM VARMI KONTROL EDEBÝLÝRMÝSÝNÝZ......TÞK

var milisaniye = 1000;
var Kademesayisi = 3;



var Tablo = new Dictionary<string, int>();
Tablo["IMKBH'ISFIN"] = 1;
Tablo["IMKBH'FONET"] = 1;
Tablo["IMKBH'ISCTR"] = 1;
Tablo["IMKBH'TSKB"] = 1;
Tablo["IMKBH'GSDHO"] = 1;
Tablo["IMKBH'KOZAL"] = 1;
Tablo["IMKBH'ULKER"] = 1;
Tablo["IMKBH'THYAO"] = 1;

foreach (var item in Tablo)
{
var Sembol = item.Key;
var Lot = item.Value;

var AnahtarFiyat = Sistem.Name + ";" + Sembol + "FIYAT";
var AnahtarSure = Sistem.Name + ";" + Sembol + "SURE";
var AlisFiyat = Sistem.SayiTablosunuOku(AnahtarFiyat);
var Sure = Sistem.SayiTablosunuOku(AnahtarSure);

var Yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var FiyatAdim = (decimal)Yuzeysel.PriceStep;
var YeniFiyat = (decimal)Yuzeysel.BidPriceDec;

if (Environment.TickCount > Sure + milisaniye)
{

var Pozisyon = Sistem.PozisyonKontrolOku(Sembol);
if (YeniFiyat >= AlisFiyat + Kademesayisi * FiyatAdim)
{
var Miktar = 1;
Sistem.PozisyonKontrolGuncelle(Sembol, Miktar);
Sistem.EmirSembol = Sembol;
Sistem.EmirIslem = "Alýþ";
Sistem.EmirMiktari = Miktar;
Sistem.EmirFiyati = "Aktif";
Sistem.EmirSuresi = "SEANS"; // SEANS, GUN
Sistem.EmirTipi = "NORMAL"; // NORMAL, KIE, KPY, AFE/KAFE
Sistem.EmirGonder();
}
if (Pozisyon > 0 )
{
var Miktar = Pozisyon;
Sistem.PozisyonKontrolGuncelle(Sembol, 0);
Sistem.EmirSembol = Sembol;
Sistem.EmirIslem = "Satýþ";
Sistem.EmirMiktari = Miktar;
Sistem.EmirFiyati = "Aktif";
Sistem.EmirSuresi = "SEANS"; // SEANS, GUN
Sistem.EmirTipi = "NORMAL"; // NORMAL, KIE, KPY, AFE/KAFE
Sistem.EmirSatisTipi = "NORMAL"; // imkb (NORMAL, ACIGA, VIRMANDAN)
Sistem.EmirGonder();
}
}
AlisFiyat = (decimal)Yuzeysel.BidPriceDec;
Sure = Environment.TickCount;
Sistem.SayiTablosunuGuncelle(AnahtarFiyat, AlisFiyat);
Sistem.SayiTablosunuGuncelle(AnahtarSure, Sure);

Sistem.Mesaj(YeniFiyat.ToString() + " " + FiyatAdim.ToString() + " " + Sure.ToString());

}