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

[Klozon]

//Hisse Talimatlari burada girilecek.
var Sozluk = new Dictionary<string, List<double>>();
Sozluk["IMKBH'KOZAL"] = new List<double> { 0.04, 0.08, 1, 30, 20 };//Hisse - kademe_al_seviye / kademe_sat_seviye / kademe_lot / yuksek / dusuk
Sozluk["IMKBH'HALKB"] = new List<double> { 0.02, 0.07, 20, 16.80, 13 };//Hisse - kademe_al_seviye / kademe_sat_seviye / kademe_lot / yuksek / dusuk
Sozluk["IMKBH'TSKB"] = new List<double> { 0.02, 0.07, 10, 10, 7 };//Hisse - kademe_al_seviye / kademe_sat_seviye / kademe_lot / yuksek / dusuk

//Ana dongu kod yapisi
for (var No = 0; No < Sozluk.Count; No++)
{
var EmirSembol = Sozluk.ElementAt(No).Key;
var Anahtar = Sistem.Name + " , " + EmirSembol;
var IslemFiyat = 0.0;
DateTime IslemTarih;
var Rezerv = "";
var AlisFiyat = 0.0m;
var SatisFiyat = 0.0m;
var KademeFiyat = 0.0m;
var Pozisyon = Sistem.PozisyonKontrolOku(Anahtar, out IslemFiyat, out IslemTarih, out Rezerv);
var Lot = (double)Sozluk.ElementAt(No).Value[2];
var Yuksek = (double)Sozluk.ElementAt(No).Value[3];
var Dusuk = (double)Sozluk.ElementAt(No).Value[4];

var basicitem = Sistem.YuzeyselVeriOku(EmirSembol);
var sonfiyat = (decimal)basicitem.LastPrice;
var bidfiyat = (decimal)basicitem.BidPriceDec;
var askfiyat = (decimal)basicitem.AskPriceDec;

if (sonfiyat == 0) continue;
if (bidfiyat == 0) continue;
if (askfiyat == 0) continue;

//Ilk Ýslem Sarti (Mevcut fiyat yuksek/dusuk arasinda ise ve poz yoksa, Al/Sat seviyesi kademe kadar belirlenir)
string DosyaDir = "C:\\iDeal\\Kademeler" + EmirSembol.Split('\'')[1] + ".YapilanIslemler.txt"; // Dosya Adi
if (!System.IO.Directory.Exists("C:\\iDeal\\Kademeler ")) System.IO.Directory.CreateDirectory("C:\\iDeal\\Ka demeler");
if (!System.IO.File.Exists(DosyaDir)) System.IO.File.Create(DosyaDir);
var ReadLines = System.IO.File.ReadAllLines(DosyaDir);


if (ReadLines.Count() != 0)
{

KademeFiyat = (decimal)Convert.ToSingle(ReadLines.Last().Split(' \t')[1]);
AlisFiyat = (decimal)Convert.ToSingle(ReadLines.Last().Split(' \t')[2]);
SatisFiyat = (decimal)Convert.ToSingle(ReadLines.Last().Split(' \t')[3]);
}
else
{
AlisFiyat = (decimal)askfiyat;
}

var Islem = "";
var Miktar = 0.0;
//EKLEDÝÐÝM YER BURASI.....
var V = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
// var V = Sistem.GrafikFiyatOku(Sembol, "G", "Kapanis");
var TOMA = Sistem.TOMA(V, 3, 1, "Variable");
var MA = Sistem.MA(V, "Variable", 3);
var START = MA[MA.Count - 1] > TOMA[TOMA.Count - 2];
if (START) //BU KOÞUL SAÐLANIRSA ALIÞ YAP
{

if (bidfiyat <= AlisFiyat && Pozisyon >= 0 && bidfiyat >= (decimal)Dusuk && bidfiyat <= (decimal)Yuksek) // AL
{
Rezerv = "Alis : " + bidfiyat.ToString("0.00");
Miktar = Lot;
IslemFiyat = (double)bidfiyat;
}
}


else if (askfiyat >= SatisFiyat && Pozisyon > 0)
{
Rezerv = "Satis: " + askfiyat.ToString("0.00") + " Kar: " + (1 - Sistem.SayiYuvarla((decimal)IslemFiyat / SatisFiyat, 0.0001)).ToString("%0.00");
Miktar = -Lot;
IslemFiyat = (double)askfiyat;
}

if (Miktar > 0) Islem = "Alis";
if (Miktar < 0) Islem = "Satis";
if (Islem != "")
{
Sistem.PozisyonKontrolGuncelle(Anahtar, Miktar + Pozisyon, IslemFiyat, Rezerv);
Sistem.EmirSembol = EmirSembol;
Sistem.EmirIslem = Islem;
Sistem.EmirSuresi = "KIE"; //"GUN", "KIE", "IKG" //Kriptolar icin "GTC", Limit icin "GUN" ve "IKG"
Sistem.EmirTipi = "Piyasa"; //"Limit", "Piyasa"
Sistem.EmirMiktari = (double)Math.Abs(Miktar);
Sistem.EmirFiyati = IslemFiyat;
Sistem.EmirAciklama = Rezerv;
Sistem.EmirHesapAdi = "255516, Osmanlý Menkul"; //Portfoy peneceresinde gözüken ile ayný Hesap
Sistem.EmirAltHesap = "255516"; ////Portfoy peneceresinde gözüken ile ayný Alt Hesap
Sistem.EmirGonder();

//Alýþ Islemi Islemler dosyasýna eklenir.
if (Islem == "Alis")
{
string Mesaj = EmirSembol + "\t" + IslemFiyat.ToString() + "\t" + ((decimal)IslemFiyat - (decimal)Sozluk.ElementAt(No).Value[0]).ToString() + "\t" + ((decimal)IslemFiyat + (decimal)Sozluk.ElementAt(No).Value[1]).ToString() + "\t" + Lot.ToString() + "\t" + System.DateTime.Now.ToString() + "\r\n";
System.IO.File.AppendAllText(DosyaDir, Mesaj);
}
//Son Islem Islemler dosyasýndan çýkarýlýr.
if (Islem == "Satis")
{
var ReadLines2 = System.IO.File.ReadAllLines(DosyaDir);
System.IO.File.WriteAllLines(DosyaDir, ReadLines2.Take(ReadLines2.Count() - 1));
}
}
}

yazým hatalarý düzeltildi..

[Noyan]

var Islem = "";
var Miktar = 0.0;
//EKLEDÝÐÝM YER BURASI.....
var V = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
// var V = Sistem.GrafikFiyatOku(Sembol, "G", "Kapanis");
var TTI = Sistem.TOMA(V, 3, 1, "Variable");
var MA = Sistem.MA(V, "Variable", 3);
var START = MA[MA.Count - 1] > TOMA[TOMA.Count - 2];
if (START) //BU KOÞUL SAÐLANIRSA ALIÞ YAP
{

teþekkürler

[Noyan]

if (bidfiyat <= AlisFiyat && Pozisyon >= 0 && bidfiyat >= (decimal)Dusuk && bidfiyat <= (decimal)Yuksek) // AL
{
Rezerv = "Alis : " + bidfiyat.ToString("0.00");
Miktar = Lot;
IslemFiyat = (double)bidfiyat;

Lot++; // Alýþ yapýldýðýnda lot miktarýný birer birer arttýrmý

item.Value[2] = Lot; // Yeni lot miktarýný kaydet


al þartýnda her iþlemde 1 er lot artýrmak istersek bu kýsým doðru olurmu....

[Bear_Bull]

@Noyan

alýntýladýðýn @EROLMUTLU robotu ile kendin eklemek istediðin indikatöre göre alým ve ekleme yapmasý kodun özelliðine ters.

kod minik fiyat adýmlarý ile çok fazla iþlem yapmaya kurulu siz ise indikatör ile hisseyi bulsun sonrasýnda o kod ile iþlem yapsýn istiyorsunuz.
Bu þekil olmaz.

Ha olur biraz uðraþtýrýr.
nasýl derseniz?

Yazdýðýnýz kod ile tüm hisseleri taratýp al þartý oluþanlarý TXT dosyaya alým / satým fiyatlarý ile birlikte kaydettirirsiniz.
sonrasýnda o TXT dosyasýný okutup @ErolMutlu beyin yazdýðý kod içinde SOZLUK kýsmýna entegre edersiniz,
kod okuyup sadece o hisselerde iþlem yapmaya baþlar.

kodun içinden sözlüðe 1-2 tane hisse yazýp iþlem yapmasýný beklerseniz çok nadir olarak belki (çok doðru bir kurgu yaparsanýz) iþlem yapacaktýr
ama bu seferde aldýðý hisseyi

var Sozluk = new Dictionary<string, List<double>>();
Sozluk["IMKBH'KOZAL"] = new List<double> { 0.04, 0.08, 1, 30, 20 };
Sozluk["IMKBH'HALKB"] = new List<double> { 0.02, 0.07, 20, 16.80, 13 };
Sozluk["IMKBH'TSKB"] = new List<double> { 0.02, 0.07, 10, 10, 7 };

sýrasý ile 0,08 - 0,07 - 0,07 kademe sonra satacak
kendi indikatörünüze göre yine pozisyon kalmayacaktýr.


kolay gelsin.

[Noyan]

@Noyan

alýntýladýðýn @EROLMUTLU robotu ile kendin eklemek istediðin indikatöre göre alým ve ekleme yapmasý kodun özelliðine ters.

kod minik fiyat adýmlarý ile çok fazla iþlem yapmaya kurulu siz ise indikatör ile hisseyi bulsun sonrasýnda o kod ile iþlem yapsýn istiyorsunuz.
Bu þekil olmaz.

Ha olur biraz uðraþtýrýr.
nasýl derseniz?

Yazdýðýnýz kod ile tüm hisseleri taratýp al þartý oluþanlarý TXT dosyaya alým / satým fiyatlarý ile birlikte kaydettirirsiniz.
sonrasýnda o TXT dosyasýný okutup @ErolMutlu beyin yazdýðý kod içinde SOZLUK kýsmýna entegre edersiniz,
kod okuyup sadece o hisselerde iþlem yapmaya baþlar.

kodun içinden sözlüðe 1-2 tane hisse yazýp iþlem yapmasýný beklerseniz çok nadir olarak belki (çok doðru bir kurgu yaparsanýz) iþlem yapacaktýr
ama bu seferde aldýðý hisseyi


sýrasý ile 0,08 - 0,07 - 0,07 kademe sonra satacak
kendi indikatörünüze göre yine pozisyon kalmayacaktýr.


kolay gelsin.

orjinali erol hocanýn paylaþtýðý kodun al þartýna toma ekleyerek toma al verdiðinde sözlük içindeki kademelere göre alým satým yapmasýný saðlamak....tek hisse ile canlýda çalýþtý (toma al verdiðinde alým yapmaya baþladý...satým tarafýnda bi koþul olmadýðý için txt den okuyup satýþ yaptý)ama çoklu hisse ile denemedim ....alým kademesi düþük tutularak malsýz kalmanýn önüne geçilebilir diye düþünüyorum....bu haliyle karlýmý hayýr tabiki ...geliþtirilebilirmi...neden olmasýn...derdim kod bilgim eksik bunu tamamlamak pratik yapmak mantýðý kavramak...yönlendirmeleriniz için þimdiden teþekkürler...

[mahmutbir]

merhabalar kolay gelsin aþaðýdaki kodda nadaraya watson indikatörü kullanarak bir dca sistemi yapmaya çalýþtým. fiyat her alt bantý ihlal ettiðinde alým yapacak ve her aldýðýný yüzde 1 yada yüzde 2 gibi satacak þekinde yapmaya çalýþtým. ama sanýrým çalýþmadý yardýmcý olursanýz sevinirim.

var Length = 1000;
var Bandwidth = 17;
var mult = 2.5;
var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");

var y = Sistem.Liste(0);
var up = Sistem.Liste(0);
var down = Sistem.Liste(0);

double sum_e = 0.0;
for (int i = V.Count - Length; i < V.Count; i++)
{
double sum = 0.0;
double sumw = 0.0;
for (int j = V.Count - Length; j < V.Count - 1; j++)
{
double w = Math.Exp(-(Math.Pow(i - j, 2) / (Bandwidth * Bandwidth * 2)));
sum += C[j] * w;
sumw += w;
}
double y2 = sum / sumw;
sum_e += (Math.Abs(C[i] - y2));
y[i] = (float)y2;
}
double mae = sum_e / Length * mult;
for (int i = V.Count - Length + 1; i < V.Count; i++)
{
double y2 = y[i];
double y1 = y[i - 1];

up[i] = (float)(y2 + mae);
down[i] = (float)(y2 - mae);
}

Sistem.Cizgiler[1].Deger = up;
Sistem.Cizgiler[2].Deger = down;

// Alým yapýlan fiyatlarý ve miktarlarý saklamak için listeler oluþturun
var alimFiyatlari = new List<double>();
var alimMiktarlari = new List<int>();
var karFiyatlari = new List<double>(); // Her alým için hedef kar fiyatýný saklar

for (int i = Bandwidth; i < V.Count; i++)
{
Sistem.Yon[i] = ""; // Yönü sýfýrla

// Alým koþulu: Her alt bant ihlali olduðunda alým yap
if (C[i] < down[i] && C[i - 1] > down[i - 1])
{
Sistem.Yon[i] = "A";
var alimFiyati = C[i];
var alimMiktari = 1; // Varsayýlan olarak 1 lot alým
alimFiyatlari.Add(alimFiyati);
alimMiktarlari.Add(alimMiktari);

// Her alým için hedef kar fiyatýný belirle (%2 kar)
karFiyatlari.Add(alimFiyati * 1.01);
}

// Satýþ koþulu: Hedef kar fiyatýna ulaþýldýðýnda satýþ yap
if (karFiyatlari.Count > 0 && C[i] >= karFiyatlari[0])
{
Sistem.Yon[i] = "S";
karFiyatlari.RemoveAt(0); // Satýþ yapýlan alýmýn hedef kar fiyatýný listeden kaldýr
}
}

// Alýnan miktarlarý ve portföy deðerini güncelle
var Lots = new double[V.Count];
var Portfoy = new double[V.Count];

for (int i = Bandwidth; i < V.Count; i++)
{
if (alimFiyatlari.Count == 0)
continue;

Lots[i] = Lots[i - 1] + alimMiktarlari[i - Bandwidth];
Portfoy[i] = Portfoy[i - 1] + alimMiktarlari[i - Bandwidth] * C[i];
}

// Grafikleri güncelle
Sistem.Cizgiler[3].Deger = Lots;
Sistem.Cizgiler[4].Deger = Portfoy;

[bymehmet]

@mahmutbir
Bu tarz robotlarýn nerede hata üreteceði belli olmaz ama gözüme çarpan aþaðýdaki yer.

// Satýþ koþulu: Hedef kar fiyatýna ulaþýldýðýnda satýþ yap
if (karFiyatlari.Count > 0 && C[i] >= karFiyatlari[0])
{
Sistem.Yon[i] = "S";
karFiyatlari.RemoveAt(0); // Satýþ yapýlan alýmýn hedef kar fiyatýný listeden kaldýr
}

Burada ilk deðeri deðil son deðeri itibara alýp satýþ yapmalý ve listeden çýkarman gerek çünkü kodunun mantýðýna göre ilk satým son alýma ait olmalý.

[mahmutbir]

@mahmutbir
bu tarz robotlarýn nerede hata üreteceði belli olmaz ama gözüme çarpan aþaðýdaki yer.

// satýþ koþulu: Hedef kar fiyatýna ulaþýldýðýnda satýþ yap
if (karfiyatlari.count > 0 && c[i] >= karfiyatlari[0])
{
sistem.yon[i] = "s";
karfiyatlari.removeat(0); // satýþ yapýlan alýmýn hedef kar fiyatýný listeden kaldýr
}

burada ilk deðeri deðil son deðeri itibara alýp satýþ yapmalý ve listeden çýkarman gerek çünkü kodunun mantýðýna göre ilk satým son alýma ait olmalý.

teþekür ederim mehmet hocam