Sistem Karşılaştırma 2

[kenten]

Bearbull abinin verdiği örnekte düzeltmesini yapabilir misiniz hocam , yada başka bir örnek paylaşabilir misiniz ?



C5-Mobile cihazımdan Tapatalk kullanılarak gönderildi

editorde yazdım , pozisyon atmasın diye idealde denemedim."kk" lar benim notum

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlı Barda Emir Gönderim Kalıbı
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi <= DefaLimiti   )// limitte ise dahil  kk
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarını Hesapla
            var Miktar = 0.0;
			if (DefaSayisi == DefaLimiti){Miktar=Pozisyon==0?0:-Pozisyon;}// flate  kk
            else if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            }
        }
    }
}

[alekss]

sorgu bölümünden ister kendi istediğiniz (kaydettiğiniz liste varsa) hazır listeleri tamamlatabilirsiniz.

var Sembol = Sistem.Sembol;
var yuzeysel = Sistem.YuzeyselVeriOku(Sembol);     
Sistem.SorguBaslik[0] = "SON";
Sistem.SorguBaslik[1] = "5 dk";
Sistem.SorguBaslik[2] = "60 dk";
Sistem.SorguBaslik[3] = "Gün";
Sistem.SorguBaslik[4] = "1 DK";
var son = Sistem.SonFiyat(Sembol); 
if ( son > 0 ) {
Sistem.GrafikVerisiIndir(Sembol, "1" );
Sistem.GrafikVerisiIndir(Sembol, "5" );
Sistem.GrafikVerisiIndir(Sembol, "60" );
Sistem.GrafikVerisiIndir(Sembol, "G" );
Sistem.SorguAciklama = "Data Tamamlandı " + Sembol ;
Sistem.SorguDeger[0] = son;
Sistem.SorguDeger[1] = son;
Sistem.SorguDeger[2] = son;
Sistem.SorguDeger[3] = son;
Sistem.SorguDeger[4] = son; 
Sistem.SorguOndalik[0] = 5;
Sistem.SorguOndalik[1] = 5;
Sistem.SorguOndalik[2] = 5;
Sistem.SorguOndalik[3] = 5;
Sistem.SorguOndalik[4] = 5; 
}
else
{
Sistem.SorguAciklama =  "*** Data YOK ***";
Sistem.SorguDeger[0] = son;
}

Sistem.SorguEkle(); 

teşekkürler sayın Bear_Bull
denedim çok güzel çalışıyor

[cashhflow]

elinde hazırda uyumsuzlukları gösteren bir algorıtması olan varmı tarama seklınde degıl.

viop için mantık uyduramadım nasıl birşey yazılabılırle ilgili hazır olan varsa onun uzerınden gıdeyım.

Birkaç denemem olmuştu. Uyumsuzluklar genelde hızlı yükseliş ve düşüş sonrası aşırı alım/satım bölgelerinin zorlanmasıyla oluşuyor. Genelde bilinenin aksini yapmak daha iyi getiri sağlıyor (örn: pozitif uyumsuzluk varsa alma sat). Ama şu olabilir 1000 bar içerisinde mesela 3 defa negatif uyumsuzluk olursa alış sinyaline girme denebilir (denemedim). Çünkü 3 4 defa uyumsuzluk olduktan sonra ancak fiyatlar dönüyor.

Kullanıcağın indikatörün hhv llv sini alıp fiyat ile indikatörü karşılaştırıp uyumsuzluk tespiti yapılabilir.

[erhanacikgoz1]

Birkaç denemem olmuştu. Uyumsuzluklar genelde hızlı yükseliş ve düşüş sonrası aşırı alım/satım bölgelerinin zorlanmasıyla oluşuyor. Genelde bilinenin aksini yapmak daha iyi getiri sağlıyor (örn: pozitif uyumsuzluk varsa alma sat). Ama şu olabilir 1000 bar içerisinde mesela 3 defa negatif uyumsuzluk olursa alış sinyaline girme denebilir (denemedim). Çünkü 3 4 defa uyumsuzluk olduktan sonra ancak fiyatlar dönüyor.

Kullanıcağın indikatörün hhv llv sini alıp fiyat ile indikatörü karşılaştırıp uyumsuzluk tespiti yapılabilir.

bende hhv lvv ile aklıma geldide uğraşmayayım hazır bır kod varsa onun ustunde gıdeyım diyorum.

düşünmem gerekecek şimdi hhvyi ekelyecem bilmem kac bardır düşüyorsa yükseliyorsa vesaire diyecem hazır kurulmuş algorıtma varsa onu evrıvereyım demiştim.

[oralet]

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlı Barda Emir Gönderim Kalıbı
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi < DefaLimiti)
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarını Hesapla
            var Miktar = 0.0;
            if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            }
        }
    }
} 

editorde yazdım , pozisyon atmasın diye idealde denemedim."kk" lar benim notum

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlı Barda Emir Gönderim Kalıbı
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi <= DefaLimiti   )// limitte ise dahil  kk
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarını Hesapla
            var Miktar = 0.0;
			if (DefaSayisi == DefaLimiti){Miktar=Pozisyon==0?0:-Pozisyon;}// flate  kk
            else if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            }
        }
    }
}

Teşekkürler....

[cashhflow]

Hazır robotlar açılmışken soru sorayım. İşlem yapacağımız lot miktarını hesaplamak için hesaptaki teminat +- son pozisyon kar zarar diyerek overall u bulabilir miyiz?

[kenten]

defasayısını güncellemeyi ihmal etmişim

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlı Barda Emir Gönderim Kalıbı
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi <= DefaLimiti   )// limitte ise dahil  kk
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarını Hesapla
            var Miktar = 0.0;
			if (DefaSayisi == DefaLimiti){Miktar=Pozisyon==0?0:-Pozisyon;}// flate  kk
            else if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
			}	
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            
        }
    }
}

[oralet]

defasayısını güncellemeyi ihmal etmişim

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlı Barda Emir Gönderim Kalıbı
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi <= DefaLimiti   )// limitte ise dahil  kk
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarını Hesapla
            var Miktar = 0.0;
if (DefaSayisi == DefaLimiti){Miktar=Pozisyon==0?0:-Pozisyon;}// flate  kk
            else if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
}
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            
        }
    }
}

Sn. Kenten hata vermedi ama her dakika emir gönderip flatlıyor