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

[Bear_Bull]

abi cok aradim ama kullanicisembolleri ni dosyadan aramama ragmen bulamadim. menulerin altinda da endeks tanimlama var . bu kullanicisembolleri , sistem tanimlarinin yapildigi yer midir.

resimde iþaretledim

[slumber]

Birleþik sistemin PozList Listesini, kapanmýþ olan en son bardaki deðerine göre okutup kullanýrsanýz repaint yapmaz. (birleþtirilen sistemleriniz de repaint yapmayan kodlardýr diye varsayýyorum tabi)
Tek yapmanýz gereken deðiþiklik var PozList = Sistem.Liste(0) satýrýný var PozList = Sistem.SayiListesi; þeklinde deðiþtirmek.

Bu durumda, aþaðýdaki robot kodu, birleþik sistemi çaðýrýr, kümüle pozisyon deðerini ve yönü elde eder ve kendi pozisyonunu olmasý gereken pozisyona eþitleyecek þekilde emirler gönderir.

var MySistem = Sistem.SistemGetir("BirlesikSistem", "VIP'VIP-X030", "5");
if (MySistem == null)
{
    Sistem.Mesaj("Sistem Dosyasý Okunamadý !");
}
else
{
    var EmirSembol = Sistem.AktifViopKontrat;
    var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
    var OlmasiGerekenPoz = MySistem.SayiListesi[MySistem.SayiListesi.Count - 1 - 1];
    // Emir Gönder
    if (OlmasiGerekenPoz != Pozisyon && Sistem.Saat.CompareTo("09:30:00") >= 0 && Sistem.Saat.CompareTo("18:14:59") <= 0)
    {
        var EmirMiktar = OlmasiGerekenPoz - Pozisyon;
        var Islem = (EmirMiktar > 0 ? "ALIS" : "SATIS");
        Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, OlmasiGerekenPoz);
        Sistem.EmirSembol = EmirSembol;
        Sistem.EmirIslem = Islem;
        Sistem.EmirMiktari = Math.Abs(EmirMiktar);
        Sistem.EmirTipi = "Piyasa";
        Sistem.EmirSuresi = "KIE";
        Sistem.EmirGonder();
    }
}

þu kod iþ görebilir.
VIOP 1 dakikalýk grafik üzerinde çalýþtýrýn.
þu satýrdan kopyalayýp istediðiniz kadar sistem ekleyebilirsiniz.
ilk parametre sistem adý
ikinci parametre periyot
üçüncü parametre lot sayýsý

ParametreList.Add("S3 , 1, 1");

var ParametreList = new List<string>();
ParametreList.Add("S3 , 1, 1");
ParametreList.Add("S5 , 1, 1");
ParametreList.Add("S6 , 1, 2");
ParametreList.Add("S7 , 1, 1");
ParametreList.Add("S9 , 1, 1");







var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatOku(V, "Kapanis");
for (int i = 300; i < V.Count; i++)
{
    if (V[i].Date.Month != V[i - 1].Date.Month)
        Sistem.DikeyCizgiEkle(i, Color.DimGray, 2, 2);
}


var SistemList = new List<string>();
var PeriyotList = new List<string>();
var LotList = new List<float>();
for (int i = 0; i < ParametreList.Count; i++)
{
    var FieldArray = ParametreList[i].Split(',');
    SistemList.Add(FieldArray[0].Trim());
    PeriyotList.Add(FieldArray[1].Trim());
    LotList.Add(Convert.ToSingle(FieldArray[2].Trim()));
}


var ViopData = Sistem.GrafikVerileri;
var TarihDictionary = new Dictionary<DateTime, int>();
for (int i = 0; i < ViopData.Count; i++)
    TarihDictionary[ViopData[i].Date] = i;

// yön listelerini oluþtur
List<List<string>> Yonler = new List<List<string>>();
//for (int i = 0; i < ParametreList.Count; i++)
//    Yonler.Add(System.Linq.Enumerable.Repeat("", ViopData.Count).ToList());
for (int i = 0; i < ParametreList.Count; i++)
{
    var BosList = new List<string>();
    for (int j = 0; j < ViopData.Count; j++)
        BosList.Add("");
    Yonler.Add(BosList);
}

// yönleri bul
for (int i = 0; i < ParametreList.Count; i++)
{
    var SembolSistem = Sistem.SistemGetir(SistemList[i], Sistem.Sembol, PeriyotList[i]);
    if (SembolSistem == null) continue;
    for (int j = 0; j < SembolSistem.GrafikVerileri.Count; j++)
    {
        var Tarih = SembolSistem.GrafikVerileri[j].Date;
        if (TarihDictionary.ContainsKey(Tarih))
            Yonler[i][TarihDictionary[Tarih]] = SembolSistem.Yon[j];
    }
}

// pozisyon hesapla
var SonPozDictionary = new Dictionary<string, int>();
var PozList = Sistem.Liste(0);
for (int i = 0; i < Yonler.Count; i++)
{
    var SonPozStr = "";
    for (int j = V.Count - 1; j > 0; j--)
    {
        if (Yonler[i][j] != "")
        {
            SonPozStr = Yonler[i][j];
            break;
        }
    }
    int SonPozLot = 0;
    if (SonPozStr == "A")
        SonPozLot = Convert.ToInt32(LotList[i]);
    else if (SonPozStr == "S")
        SonPozLot = -Convert.ToInt32(LotList[i]);
    SonPozDictionary[SistemList[i]] = SonPozLot;


    float Poz = 0;
    for (int j = 0; j < V.Count; j++)
    {
        if (Yonler[i][j] == "A")
            Poz = LotList[i];
        else if (Yonler[i][j] == "S")
            Poz = -LotList[i];
        else if (Yonler[i][j] == "F")
            Poz = 0;

        PozList[j] += Convert.ToInt32(Poz);
    }
}
Sistem.Cizgiler[0].Deger = PozList;
Sistem.Cizgiler[1].Deger = Sistem.Liste(0);
Sistem.DolguEkle(0, 1, Color.FromArgb(120, 0, 255, 0), Color.FromArgb(120, 255, 0, 0));

// sistem son durumlarý yazdýr
int Counter = -1;
foreach (var item in SonPozDictionary)
{
    Counter++;
    var RenkPoz = Color.Gold;
    if (item.Value > 0)
        RenkPoz = Color.LimeGreen;
    else if (item.Value < 0)
        RenkPoz = Color.Red;

    Sistem.GradientYaziEkle(ParametreList[Counter], 1, 250, (Counter + 1) * 25, RenkPoz, RenkPoz, "Tahoma", 18);
    Sistem.GradientYaziEkle(" :   " + Math.Abs(item.Value).ToString("0"), 1, 450, (Counter + 1) * 25, RenkPoz, RenkPoz, "Tahoma", 18);
}






// al sat renklendir
var SonYon = "";
for (int i = 0; i < V.Count; i++)
{
    if (PozList[i] > 0 && SonYon != "A")
        Sistem.Yon[i] = "A";
    else if (PozList[i] < 0 && SonYon != "S")
        Sistem.Yon[i] = "S";
    else if (PozList[i] == 0 && SonYon != "F")
        Sistem.Yon[i] = "F";

    if (Sistem.Yon[i] != "")
        SonYon = Sistem.Yon[i];
}



// kar zarar hesapla
var Kasa = 0.0f;
var KZList = Sistem.Liste(0);
for (int i = 1; i < V.Count; i++)
{
    if (PozList[i] != PozList[i - 1])
        Kasa += -(PozList[i] - PozList[i - 1]) * C[i];
    KZList[i] = Kasa + (PozList[i] * C[i]);
}
Sistem.Cizgiler[2].Deger = KZList;



// yazýlar
//Sistem.GradientYaziEkle(Sistem.Name, 1, 20, 30, Color.Gold, Color.Gold, "Tahoma", 30);
//Sistem.GradientYaziEkle(DateTime.Now.ToString("dd/MMM/yyyy"), 1, 20, 80, Color.Gold, Color.Gold, "Tahoma", 30);
//Sistem.GradientYaziEkle(KZList[KZList.Count - 1].ToString("0"), 1, 20, 130, Color.Gold, Color.Gold, "Tahoma", 30);



var Sure = (DateTime.Now - V[0].Date).TotalDays / 30.4;

// gün
var DateGun = DateTime.Now.AddDays(-1);
var DateGunBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date.Day <= DateGun.Day)
    {
        DateGunBarNo = i;
        break;
    }
}
var GetiriGun = Math.Round((KZList[KZList.Count - 1] - KZList[DateGunBarNo]) * 100, 1);

// 1 ay
var Date1Ay = DateTime.Now.AddDays(-30);
var Date1AyBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date <= Date1Ay)
    {
        Date1AyBarNo = i;
        break;
    }
}
var Getiri1Ay = KZList[KZList.Count - 1] - KZList[Date1AyBarNo];

// 2 ay
var Date2Ay = DateTime.Now.AddDays(-60);
var Date2AyBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date <= Date2Ay)
    {
        Date2AyBarNo = i;
        break;
    }
}
var Getiri2Ay = KZList[KZList.Count - 1] - KZList[Date2AyBarNo];

// 3 ay
var Date3Ay = DateTime.Now.AddDays(-90);
var Date3AyBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date <= Date3Ay)
    {
        Date3AyBarNo = i;
        break;
    }
}
var Getiri3Ay = KZList[KZList.Count - 1] - KZList[Date3AyBarNo];

// 6 ay
var Date6Ay = DateTime.Now.AddDays(-180);
var Date6AyBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date <= Date6Ay)
    {
        Date6AyBarNo = i;
        break;
    }
}
var Getiri6Ay = KZList[KZList.Count - 1] - KZList[Date6AyBarNo];

// 12 ay
var Date12Ay = DateTime.Now.AddDays(-365);
var Date12AyBarNo = 0;
for (int i = V.Count - 1; i > 0; i--)
{
    if (V[i].Date <= Date12Ay)
    {
        Date12AyBarNo = i;
        break;
    }
}
var Getiri12Ay = KZList[KZList.Count - 1] - KZList[Date12AyBarNo];


Sistem.GradientYaziEkle(Sure.ToString("0.0") + " Ay", 3, 10, 20, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(KZList[KZList.Count - 1].ToString("0.000"), 3, 180, 20, Color.Gold, Color.Gold, "Tahoma", 18);
Sistem.GradientYaziEkle("30 Gün", 3, 10, 50, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(Getiri1Ay.ToString("0.000"), 3, 180, 50, Color.Gold, Color.Gold, "Tahoma", 18);
Sistem.GradientYaziEkle("60 Gün", 3, 10, 80, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(Getiri2Ay.ToString("0.000"), 3, 180, 80, Color.Gold, Color.Gold, "Tahoma", 18);
Sistem.GradientYaziEkle("90 Gün", 3, 10, 110, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(Getiri3Ay.ToString("0.000"), 3, 180, 110, Color.Gold, Color.Gold, "Tahoma", 18);
Sistem.GradientYaziEkle("180 Gün", 3, 10, 140, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(Getiri6Ay.ToString("0.000"), 3, 180, 140, Color.Gold, Color.Gold, "Tahoma", 18);
Sistem.GradientYaziEkle("Yýl", 3, 10, 170, Color.Silver, Color.Silver, "Tahoma", 18);
Sistem.GradientYaziEkle(Getiri12Ay.ToString("0.000"), 3, 180, 170, Color.Gold, Color.Gold, "Tahoma", 18);


var Renk = Color.Gold;
if (GetiriGun > 0)
    Renk = Color.LimeGreen;
else if (GetiriGun < 0)
    Renk = Color.Red;
Sistem.GradientYaziEkle("BU GÜN", 3, 10, 230, Renk, Renk, "Tahoma", 18);
Sistem.GradientYaziEkle(GetiriGun.ToString("0.00"), 3, 180, 230, Renk, Renk, "Tahoma", 18);


var SonPoz = PozList[PozList.Count - 1];
Renk = Color.Gold;
if (SonPoz > 0)
    Renk = Color.LimeGreen;
else if (SonPoz < 0)
    Renk = Color.Red;
Sistem.GradientYaziEkle("POZISYON", 3, 10, 260, Renk, Renk, "Tahoma", 18);
Sistem.GradientYaziEkle(SonPoz.ToString("0"), 3, 180, 260, Renk, Renk, "Tahoma", 18);

Bu mantýk ile diðer versiyonda denedim (Farklý periyotlara sahip sistemler) ancak baþaramadým.. Yapýlabilir mi acaba ??

[Zülfü Aþkýn]

Yabancý payý bulunan hisselerdeki yabancý ve yerli takas oranýný hisse bazlý grafik üzerinde görmek münkün mü?..

Örnek olarak GARAN daki yabancý ve yerli takas oranýný grafik üzerinde görmek... böylece hisselerdeki yabancý ve yerli deðiþimi daha rahat takip etmiþ olurum... hatta biraz daha ucup kurumsal bazlý bakmak ( CITI,MERLL ) gibi..

[xacemi]

Merhaba

Acaba binance ya da farklý coin sitelerindeki fiyatlarý ideale aktarmak mümkün mü? Tþkler

SM-N910C cihazýmdan hisse.net mobile app kullanarak gönderildi.

[tripharma]

Belki basit bir þey ama yapamadým. Deðeri 0 olan toplam miktar adýnda bir deðiþkenim var emir gönderme þartý gerçekleþtiðinde toplam miktarýn o anki kademede bulunan miktar kadar her seferinde artmasýný istiyorum.
Yani diyelim ki belirlediðim
alýþ fiyatý 5,05
satýþ kademesinin aktif fiyatý 5,00
Satýþ kademesinin aktif fiyatý 5,05 olana kadar aktif kademedeki miktar kadarýný alýyorum. Aldýðým miktarlarý Toplam miktar adýnda bir deðiþkende kümülatif olarak görmek istiyorum.
Þimdiden teþekkür ederim.

[tripharma]

Belki basit bir þey ama yapamadým. Deðeri 0 olan toplam miktar adýnda bir deðiþkenim var emir gönderme þartý gerçekleþtiðinde toplam miktarýn o anki kademede bulunan miktar kadar her seferinde artmasýný istiyorum.
Yani diyelim ki belirlediðim
alýþ fiyatý 5,05
satýþ kademesinin aktif fiyatý 5,00
Satýþ kademesinin aktif fiyatý 5,05 olana kadar aktif kademedeki miktar kadarýný alýyorum. Aldýðým miktarlarý Toplam miktar adýnda bir deðiþkende kümülatif olarak görmek istiyorum.
Þimdiden teþekkür ederim.

Ufak bir örneðini aþaðýda paylaþtým asýl sonuca ulaþmak istediðim yer for döngüsünün içi.

//Hisseleri Tanýmlama
var Spot_Hisse = Sistem.Parametreler[0]; //Spot KRDMD
// Derinlik Okutma
var Spot_Derinlik = Sistem.DerinlikVerisiOku(Spot_Hisse);
// Alýþ Kademesi Fiyatýný Tanýmla
int Spot_Hisse_AF = Spot_Derinlik.Bids[0].Price;
//Satýþ Kademesi Fiyatýný Tanýmla
int Spot_Hisse_SF = Spot_Derinlik.Asks[0].Price;
//Alýþ Kademesindeki Miktarýný Tanýmla
int Spot_Hisse_AM = Spot_Derinlik.Bids[0].Size;
//Satýþ Kademesindeki Miktarýný Tanýmla
int Spot_Hisse_SM = Spot_Derinlik.Asks[0].Size;
//%21 Faizli Fiyatýný Hesapla
var YHAF = Spot_Hisse_SF * (1+(0.09f/12));
float FHAFD = Sistem.SayiYuvarla(YHAF, 0.01);
//%10 Faizli Fiyatýný Hesapla
var YHSF = Spot_Hisse_AF * (1+(0.04f/12));
float YHSFD = Sistem.SayiYuvarla(YHSF,0.01);
// Toplam Emir Miktarý Hesaplama
// Toplam Satýþ Emir Miktarý Belirleme THSEM
var THSEM = 0.0;
if ( Hisse_AF <=YHAFD )
{
THSEM+= Hisse_AM;
}
// Toplam Alýþ Emir Miktarý Belirleme THAEM
var THAEM = 0.0;
if (Hisse_AF >=YHAFD)
{
THAEM+= Hisse_SM;
} 

[Bayesian]

Bu yazdýðýnýz kodda, þu aþaðýdaki deðiþkenleri ne ile gösterdiniz?
alýþ fiyatý, Satýþ kademesinin aktif fiyatý, aktif kademe,toplam miktar

Kod kýsmýnda yardýmcý olabilirim ama sistem nasýl çalýþýyor çok anlamýyorum.
Bahsettiðiniz kod þöyle bir þey

toplamMiktar = 0
while ( satýþ kademesinin aktif fiyatý  < alýþ fiyatý){
emir.gönder
toplamMiktar += emir.miktar
} 

[tripharma]

Bu yazdýðýnýz kodda, þu aþaðýdaki deðiþkenleri ne ile gösterdiniz?
alýþ fiyatý, Satýþ kademesinin aktif fiyatý, aktif kademe,toplam miktar

Kod kýsmýnda yardýmcý olabilirim ama sistem nasýl çalýþýyor çok anlamýyorum.

Aslýnda yapmak istediðim þeyi nasýl yapabilceðimi anlatabilirsen gerisini ben yapabilirim belki. if döngüsünde ki þart her gerçekleþtiðinde emir miktarý kadar eklemeyi toplam miktar adýnda bir deðiþkene eklesin istiyorum.
Örneðin if döngüsünde ki þart gerçekleþti Pozisyon Kontrol 1 oldu
emir miktarý = Satýþ kademesinde ki miktar (SM)
Toplam Miktar= SM olsun
Sonra tekrar if döngüsünde ki þart gerçekleþti pozisyon kontrol 2 oldu
Toplam Miktar = SM + Satýþ kademesinde ki miktar (SM) olsun
Bunu if döngüsüne ekleyemiyorum.