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

[Bear_Bull]

///////////// derinlik bilgisi ///////////////

var NetLot = Sistem.NetLot(Sistem.Sembol); //Anlık olarak Net lot bilgisini gösterir
var NetHacim = Sistem.NetHacim(Sistem.Sembol);//Anlık olarak net hacimi gösterir
var OncekiKapanis = Sistem.OncekiKapanisGun(Sistem.Sembol); //Anlık olarak

var Derinlik = Sistem.DerinlikVerisiOku(Sistem.Sembol);
var AlisFiyatKademe0 = Derinlik.Bids[0].Price; //Anlık olarak alış tarafta en üst satırdaki fiyatı verir (ilk satır numarası 0, son satır numarası 9 olacak şekilde derinlik tablosundaki bilgileri çekebilirsin)
var AlisLotKademe0 = Derinlik.Bids[0].Size; // Anlık olarak alış tarafta en üst satırdaki lot miktarını verir
var AlisEmirSayisi = Derinlik.Bids[0].OrderCount; //Anlık olarak alış tarafta en üst satırdaki emir sayısını gösterir
var SatisFiyatKademe0 = Derinlik.Asks[0].Price;
var SatisLotKademe0 = Derinlik.Asks[0].Size;
var SatisEmirSayisi = Derinlik.Asks[0].OrderCount;
var SatisEmirSaati = Derinlik.Asks[0].Time;
var AlisEmirSayisi_3 = Derinlik.Bids[3].OrderCount;
var SatisEmirSayisi_3 = Derinlik.Asks[3].OrderCount;

Sistem.Mesaj("Netlot =" + NetLot.ToString() + "\r\n" + "Onceki Gun Kapanis =" + OncekiKapanis.ToString() + "\r\n" + "Alış Fiyatı =" + AlisFiyatKademe0.ToString() + "\r\n" + "SatisEmirSayisi_3 =" + SatisEmirSayisi_3.ToString() + "\r\n" + "AlisEmirSayisi_3 =" + AlisEmirSayisi_3.ToString() + "\r\n" + "Alış Lot = " + SatisEmirSaati.ToString() + "\r\n" + "Alış Emir = " + AlisEmirSayisi.ToString()+ "\r\n" + "Satış Emir Sayısı = " + SatisEmirSayisi.ToString()); 

[Bear_Bull]

//////////// derinlik tablo /////////////

/////////// TABLO 1
string TabloAd = "GARAN Derinlik";
var SutunGenislik = new int[4]{100,70,70,100};
var SutunHizala = new int[4]{1,1,1,1};
var SutunBaslik = new string[4]{"A.Lot","A.Fiyat","S.Fiyat","S.Lot"};
Sistem.Tablo(TabloAd, 500, 200, 400, 180, 4, 5, SutunGenislik, SutunHizala, SutunBaslik);
Sistem.TabloTemizle(TabloAd);
var Derinlik = Sistem.DerinlikVerisiOku("IMKBH'GARAN");
for (int i=0;i<5;i++)
{
   Sistem.TabloYazdir(TabloAd, 0, i, Derinlik.Bids[i].Size.ToString("0,000"));
   Sistem.TabloYazdir(TabloAd, 1, i, Derinlik.Bids[i].Price.ToString("0.00"));
   Sistem.TabloYazdir(TabloAd, 2, i, Derinlik.Asks[i].Price.ToString("0.00"));
   Sistem.TabloYazdir(TabloAd, 3, i, Derinlik.Asks[i].Size.ToString("0,000"));
}

//////////// TABLO 2
TabloAd = "SAHOL Derinlik";
Sistem.Tablo(TabloAd, 500, 400, 400, 180, 4, 5, SutunGenislik, SutunHizala, SutunBaslik);
Sistem.TabloTemizle(TabloAd);
Derinlik = Sistem.DerinlikVerisiOku("IMKBH'SAHOL");
for (int i=0;i<5;i++)
{
   Sistem.TabloYazdir(TabloAd, 0, i, Derinlik.Bids[i].Size.ToString("0,000"));
   Sistem.TabloYazdir(TabloAd, 1, i, Derinlik.Bids[i].Price.ToString("0.00"));
   Sistem.TabloYazdir(TabloAd, 2, i, Derinlik.Asks[i].Price.ToString("0.00"));
   Sistem.TabloYazdir(TabloAd, 3, i, Derinlik.Asks[i].Size.ToString("0,000"));
} 

[Bear_Bull]

Kodum aşağıda, yardımcı olabilecek bir arkadaşımız çıkarsa çok sevinirim.

var hisse = "IMKBH'AKFGY";
var derinlik = Sistem.DerinlikVerisiOku(stock);
 
var fiyat1 = derinlik.Asks[0].Price;
var miktar1 = derinlik.Asks[0].Size;
var tl1 = Convert.ToInt32(fiyat1 * miktar1);
 
Sistem.Mesaj(fiyat1.ToString() + " " + miktar1.ToString() + " " + tl1.ToString());

stock yerine hisse yazmayıda deneyebilirsiniz.

[alekss]

Selam idealdeki paçal örneğini biraz değiştirdim ama idealdeki gibi sistem al verdiğinde maliyeti düşürecek şekilde lot toplayıp TP olunca satmıyor? sizce sebebi nedir? Ben sadece al koşulu idealde RSI olan yere MA koydum sadece bir kere alıyor TP görünce satıyor. nerede hata yapıyorum sızce?

Saygılar..


var Bakiye = 1000 ;


var Bars = Sistem.GrafikVerileri;

var C = Sistem.GrafikFiyatSec("Kapanis");

//var RSI = Sistem.RSI(14);

var Cum = 0.0;

var Maliyet = 0.0;

var Miktar = 0;

var TP = 1.01f; //YÜZDE 1

//var C = Sistem.GrafikFiyatSec("Kapanis");
var L = Sistem.GrafikFiyatSec("Dusuk");
var H = Sistem.GrafikFiyatSec("Yuksek");
var MA1 = Sistem.MA(C, "Exp", 3);
var MA2 = Sistem.MA(C, "Exp", 10);
var MA3 = Sistem.MA(H, "Exp", 10);
//var SonYon = "";


var SonYon = "";

var Pozisyon = Sistem.SayiListesi;

var OrtalamaMaliyet = Sistem.Liste(0);

var ToplamMaliyet = Sistem.Liste(0);

var MiktarList = Sistem.Liste(0);



var Liste = new List<string>();

for (int i = 1; i<Sistem.BarSayisi; i++)

{

Pozisyon[i] = Sistem.SayiListesi[i-1];


//for (int i = 1; i<Sistem.BarSayisi; i++)
//{

if (MA1[i] > MA3[i] && SonYon != "A") // AL
{
// Sistem.Yon[i] = SonYon = "A"; // alış


// if (RSI[i-1] < 50 && RSI[i] > 50)



SonYon = "A";

Sistem.Yon[i] = "A";

Miktar = (int)Sistem.SayiYuvarla(Bakiye / C[i],0);

MiktarList[i] = Miktar;

Cum = Cum + Miktar * C[i];

ToplamMaliyet[i] = (float)Cum;

Pozisyon[i] += Miktar;

Maliyet = (float) Cum / Pozisyon[i];

OrtalamaMaliyet[i] = (float)Maliyet ;

}

else if (C[i] >= Maliyet * TP && SonYon != "F")

{

SonYon = "F";

Sistem.Yon[i] = "F";

MiktarList[i] = 0;

Miktar = 0;

Cum = 0.0;

Maliyet = 0.0;

Pozisyon[i] = 0;

OrtalamaMaliyet[i] = 0;

ToplamMaliyet[i] = 0;

Liste.Add(Bars[i].Date.ToString("dd.MM.yyyy")

+ ";" + Bars[i].Date.ToString("HH:mm")

+ ";" + Bars[i].Close.ToString()

+ ";" + Sistem.Yon[i]

+ ";" + Pozisyon[i]);

}

else

OrtalamaMaliyet[i] = OrtalamaMaliyet[i-1];



}







//var DosyaAdi = "d:\\Ideal\\Rapor" + Sistem.Sembol + "_" + Sistem.Periyot + ".CSV";

//File.WriteAllLines(DosyaAdi, Liste);



Sistem.Cizgiler[0].Deger = Pozisyon;

Sistem.Cizgiler[0].Aciklama = "Pozisyon";



Sistem.Cizgiler[1].Deger = OrtalamaMaliyet;

Sistem.Cizgiler[1].Aciklama = "Ortalama Maliyet";



Sistem.Cizgiler[2].Deger = MiktarList;

Sistem.Cizgiler[2].Aciklama = "Miktar";



Sistem.Cizgiler[3].Deger = ToplamMaliyet;

Sistem.Cizgiler[3].Aciklama = "Cum";



//Sistem.Cizgiler[4].Deger = RSI;

//Sistem.Cizgiler[4].Aciklama = "RSI";

sayın santi affınıza sığınarak bir şey söylemek istiyorum
borsada paçal yapmak borsada yapılabilecek en buyuk yanlışlardandır hele viop ta çok buyuk yamlış
borsada paçal yapmak benim gözümde aynen şu
izmirden istanbula gitmek üzere yola çıkılmış ama sehven ankara yoluna girilmiş yanlış yolda gaza basmak gibi bir şey
saygılar

Burada paylaşmış olduğum yorum ve grafik çalışmaları eğitim amaçlı olup ,yatırım danışmanlığı kapsamında değildir.Kesinlikle al-sat-tut tavsiyesi değildir.

[Santi78]

sayın santi affınıza sığınarak bir şey söylemek istiyorum
borsada paçal yapmak borsada yapılabilecek en buyuk yanlışlardandır hele viop ta çok buyuk yamlış
borsada paçal yapmak benim gözümde aynen şu
izmirden istanbula gitmek üzere yola çıkılmış ama sehven ankara yoluna girilmiş yanlış yolda gaza basmak gibi bir şey
saygılar

Burada paylaşmış olduğum yorum ve grafik çalışmaları eğitim amaçlı olup ,yatırım danışmanlığı kapsamında değildir.Kesinlikle al-sat-tut tavsiyesi değildir.

Sagolun hocam tavsiye için ama ben algo kullanarak sistemli bir şekilde maliyet düşürmek istiyorum, ama pek beceremedim.
Saygılar

[alekss]

Sagolun hocam tavsiye için ama ben algo kullanarak sistemli bir şekilde maliyet düşürmek istiyorum, ama pek beceremedim.
Saygılar

algo kullanarak maliyet düşüremediğiniz hayra delalet ,umuyorum hayat boyunca başarısısız olursunuz maliyet düşürme işinde ��

[mbati19]

Merhaba arkadaslar

Yazdigim sistemin islemde kalma suresini gosteren bir grafigi hangi kodla cizdirebilirim ? Tek yonlu alis yapan bir sistem uzerine calisiyorum.


ayrica bu kayma komisyon isini sisteme eklemek icin getiri egrisinin yanindaki rakami giriyoruz sanirim. Ama hangi degeri girmek mantikli ben butun hisselerde bakiyorum sisteme. Ordaki deger yuzde mi fiyat mi ? Bu konularda maalesef ideal sitesinde cok eksik bilgi var :s Yeni baslayanlar icin rehber niteliginde bi dokuman bulamadim bu tip konularda

[tuncahm]

Merhabalar.Elimdeki bu kodu ideal sorgu sistemine çevirebilirmisiniz?
BAR:=144;
Fibo:=61.8;
Yuzde:=5;
HV:=HHV(H,BAR);
LV:=LLV(L,BAR);
HV-(HV-LV)*(Fibo-Yuzde)/100>C AND C>HV-(HV-LV)*(Fibo+Yuzde)/100 and BarsSince(HLBTop(BAR)=H)<BarsSince(HLBBot(BAR)=L)

Sistem.SorguAciklamaGenislik = 50;

Sistem.SorguBaslik[0] = "Fiyat";
Sistem.SorguBaslik[1] = "Dip";
Sistem.SorguBaslik[2] = "Tepe";
Sistem.SorguBaslik[3] = "Fibo382";
Sistem.SorguBaslik[4] = "Fibo50";
Sistem.SorguBaslik[5] = "Fibo618";
Sistem.SorguBaslik[6] = "Fibo786";
Sistem.SorguBaslik[7] = "Fibo886";


Sistem.SorguOndalik[0] = 2;
Sistem.SorguOndalik[1] = 2;
Sistem.SorguOndalik[2] = 2;
Sistem.SorguOndalik[3] = 2;
Sistem.SorguOndalik[4] = 2;
Sistem.SorguOndalik[5] = 2;
Sistem.SorguOndalik[6] = 2;
Sistem.SorguOndalik[7] = 2;


var Dip = Sistem.LLV(144);
var Tepe = Sistem.HHV(144);
var Fiyat = Sistem.GrafikFiyatSec("Kapanis");
var Fibo50 = Sistem.Liste(0);
var Fibo618 = Sistem.Liste(0);
var Fibo382 = Sistem.Liste(0);
var Fibo786 = Sistem.Liste(0);
var Fibo886 = Sistem.Liste(0);




for (int i = 0; i < Sistem.BarSayisi; i++)
{
Fibo886[i] = Tepe[i] - ((Tepe[i]-Dip[i])*0.886F);
Fibo786[i] = Tepe[i] - ((Tepe[i]-Dip[i])*0.786F);
Fibo50[i] = Tepe[i] - ((Tepe[i]-Dip[i])*0.5F);
Fibo618[i] = Tepe[i] - ((Tepe[i]-Dip[i])*0.618F);
Fibo382[i] = Tepe[i] - ((Tepe[i] - Dip[i]) * 0.382f);
}

if(Fiyat[Sistem.BarSayisi-1] > Fibo618[Sistem.BarSayisi-1] && Fiyat[Sistem.BarSayisi-1] > Fibo786[Sistem.BarSayisi-1] && Fiyat[Sistem.BarSayisi-1] > Fibo886[Sistem.BarSayisi-1] &&Fiyat[Sistem.BarSayisi-1] < Fibo50[Sistem.BarSayisi-1] && Fiyat[Sistem.BarSayisi-1] < Fibo382[Sistem.BarSayisi-1] )
{
Sistem.SorguDeger[0] = Fiyat[Sistem.BarSayisi-1];
Sistem.SorguDeger[1] = Dip[Sistem.BarSayisi-1];
Sistem.SorguDeger[2] = Tepe[Sistem.BarSayisi-1];
Sistem.SorguDeger[3] = Fibo382[Sistem.BarSayisi-1];
Sistem.SorguDeger[4] = Fibo50[Sistem.BarSayisi-1];
Sistem.SorguDeger[5] = Fibo618[Sistem.BarSayisi-1];
Sistem.SorguDeger[6] = Fibo786[Sistem.BarSayisi-1];
Sistem.SorguDeger[7] = Fibo886[Sistem.BarSayisi-1];

Sistem.SorguEkle();
}