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

**KOSA** · 13-02-2016, 18:10

var Pivot = Sistem.GrafikVerileriniOku(Sistem.Sembol, "A");//A=Aylık, G=Günlük,
var WH = Sistem.Liste(0);
var WL = Sistem.Liste(0);
var WCL = Sistem.Liste(0);
var BP = Sistem.Liste(0);
var D = Sistem.Liste(0);
var B = Sistem.Liste(0);
var D1 = Sistem.Liste(0);
var B1 = Sistem.Liste(0);
var SB1 = Sistem.Liste(0);
var SB2 = Sistem.Liste(0);
var SB3 = Sistem.Liste(0);
var SB4 = Sistem.Liste(0);
var SB5 = Sistem.Liste(0);
var SB6 = Sistem.Liste(0);
var SB7 = Sistem.Liste(0);
var RB1 = Sistem.Liste(0);
var RB2 = Sistem.Liste(0);
var RB3 = Sistem.Liste(0);
var RB4 = Sistem.Liste(0);
var RB5 = Sistem.Liste(0);
var RB6 = Sistem.Liste(0);
var RB7 = Sistem.Liste(0);
for (int i = 1; i < Pivot.Count; i++)
{
WH[i] = Pivot[i-1].High;
WL[i] = Pivot[i-1].Low;
WCL[i] = Pivot[i-1].Close;
BP[i] = (WH[i]+WL[i]+WCL[i])/3;
D[i] = ((WH[i]-WL[i])/2)+BP[i];
B[i] = BP[i]-((WH[i]-WL[i])/2);
D1[i] = (WH[i]-WL[i])+BP[i];
B1[i] = BP[i]-(WH[i]-WL[i]);
SB1[i] = BP[i]-((WH[i]-WL[i])*2.140f);
SB2[i] = BP[i]-((WH[i]-WL[i])*1.620f);
SB3[i] = BP[i]-((WH[i]-WL[i])*1.382f);
SB4[i] = BP[i]-((WH[i]-WL[i])*0.780f);
SB5[i] = BP[i]-((WH[i]-WL[i])*0.620f);
SB6[i] = BP[i]-((WH[i]-WL[i])*0.225f);
SB7[i] = BP[i]-((WH[i]-WL[i])*0.072f);
RB1[i] = ((WH[i]-WL[i])*2.140f)+BP[i];
RB2[i] = ((WH[i]-WL[i])*1.620f)+BP[i];
RB3[i] = ((WH[i]-WL[i])*1.382f)+BP[i];
RB4[i] = ((WH[i]-WL[i])*0.780f)+BP[i];
RB5[i] = ((WH[i]-WL[i])*0.620f)+BP[i];
RB6[i] = ((WH[i]-WL[i])*0.225f)+BP[i];
RB7[i] = ((WH[i]-WL[i])*0.072f)+BP[i];
}
Sistem.Cizgiler[0].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, BP);
Sistem.Cizgiler[1].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, D);
Sistem.Cizgiler[2].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, B);
Sistem.Cizgiler[3].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, D1);
Sistem.Cizgiler[4].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, B1);
Sistem.Cizgiler[5].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB1);
Sistem.Cizgiler[6].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB2);
Sistem.Cizgiler[7].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB3);
Sistem.Cizgiler[8].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB4);
Sistem.Cizgiler[9].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB5);
Sistem.Cizgiler[10].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB6);
Sistem.Cizgiler[11].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, SB7);
Sistem.Cizgiler[12].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB1);
Sistem.Cizgiler[13].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB2);
Sistem.Cizgiler[14].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB3);
Sistem.Cizgiler[15].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB4);
Sistem.Cizgiler[16].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB5);
Sistem.Cizgiler[17].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB6);
Sistem.Cizgiler[18].Deger = Sistem.DonemCevir(Sistem.GrafikVerileri, Pivot, RB7);

**Bear_Bull** · 15-02-2016, 00:44

Originally Posted by KOSA

Sistemleri ekranda tutmak haliyle yer kaplıyor. Bunun yerine aşağıdaki gibi sistemin durumunu görmek için bir çalışma yapılabilir mi? Ben sadece çubuk grafiğin durumuna bakim sistem short mu longmu göreyim. Bunun için ayrı bir sayfada yapılabilir.
Bu sistemler tabiki periyodlar farklı olabilicektir. Sistem1 5DK, Sistem2 15Dk, Sistem3 60Dk lık.
Hepsi aynı sayfada excel sütunu gibi her sütun farklı bir sistemi temsil etsin......

pek tabiki olabilir/yazılabilir.

sistemgetir fonksiyonu ile istediğin kadar/tüm sistemleri çağırıp son yön durumlarını excell tablo gibi izleyebilirsin

tek sistemle çok ensturuman kontrolü
hangi ensturuman son barda sinyal veriyor
grafiğinin incelenmesi lazım vs vs gibi bir örnek

**KOSA** · 15-02-2016, 00:47

Originally Posted by Bear_Bull

pek tabiki olabilir/yazılabilir.

sistemgetir fonksiyonu ile istediğin kadar/tüm sistemleri çağırıp son yön durumlarını excell tablo gibi izleyebilirsin

tek sistemle çok ensturuman kontrolü
hangi ensturuman son barda sinyal veriyor
grafiğinin incelenmesi lazım vs vs gibi bir örnek

Yanlış yere yazmışım ilk mesajı. Baboliye de zahmet oldu... :-)
Teşekkürler BearBull...

**Bear_Bull** · 15-02-2016, 00:57

Originally Posted by KOSA

Yanlış yere yazmışım ilk mesajı. Baboliye de zahmet oldu... :-)
Teşekkürler BearBull...

ben ordan aldım yazını buradan cevapladım.
----------------------------------------------

işine yarayacak örnek olursa eğer.

Sezai beyin katkılarıyla.
///////////////////////////////////////örnek robotu ////////////////////////////////////

string sistemad = Sistem.Parametreler[1].Split('=')[1].Trim() ;

string sembollist = Sistem.Parametreler[2].Split('=')[1].Trim() ;
var Semboller = File.ReadAllLines("C:\\iDeal\\SembolListeleri\" + sembollist ).ToList(); //C:\iDeal\SembolListeleri

string TabloAd = "Sistem SINYAL TABLOSU ";
var SutunGenislik = new int[8]{80,70,110,70,70,70,70,60};
var SutunHizala = new int[8]{0,1,1,1,1,1,1,1};
var SutunBaslik = new string[8]{"Sembol","Yön_Periyot","Sinyal Zamanı","Son Fiyat","İşlem Fiyatı","KarZarar %","Saat","Kontrol"};
Sistem.Tablo(TabloAd, 100, 100, 640, 500, 8, 300, SutunGenislik, SutunHizala, SutunBaslik);

string Periyot = Sistem.Parametreler[0].Split('=')[1].Trim() ;

for (var No=0; No < Semboller.Count; No++)
{
var Sembol = Semboller[No];
var yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var s = Sistem.SistemGetir(sistemad ,Sembol, Periyot);
var zaman = s.Parametreler[0];
var fiyat = Convert.ToSingle(s.Parametreler[1]);
var SonFiyat = Sistem.SonFiyat(Sembol);
var SonYon = s.Parametreler[2];
var SonBar = s.Parametreler[3];
float kz = 0;
var zemin = Color.White;
if (SonBar!="") { zemin = Color.Yellow ;} //Sistem.Ses() ;
var Renk = Color.Green;
Renk= (SonYon=="S") ? Color.Red : Renk= (SonYon=="A") ? Color.Green : Color.Black ; //SAT olanlar kırmızı, diğerleri yeşil olsun
// Renk= (SonYon=="F") ? Color.Black : Color.Green;
if (SonBar=="A" || SonBar=="S" )
{
Sistem.TabloYazdir(TabloAd, 0, No, Sembol, zemin , Renk);
Sistem.TabloYazdir(TabloAd, 1, No, SonYon + " " + Periyot, zemin , Renk);
Sistem.TabloYazdir(TabloAd, 2, No, zaman, zemin , Renk);
Sistem.TabloYazdir(TabloAd, 3, No, SonFiyat.ToString(), zemin , Renk);
Sistem.TabloYazdir(TabloAd, 4, No, fiyat.ToString(), zemin , Renk);
Sistem.TabloYazdir(TabloAd, 6, No, DateTime.Now.ToString("HH:mm:ss"), zemin , Renk);
Sistem.TabloYazdir(TabloAd, 7, No, SonBar.ToString(), zemin , Renk);
kz = (100 * (SonFiyat- fiyat) / fiyat); Renk= (kz<0) ? Color.Red : Color.Blue;
Sistem.TabloYazdir(TabloAd, 5, No, kz.ToString("0.00") , zemin , Renk);
}
}

////////////////////////////////////örnek sistem ////////////////////////////////////////////////

var veri = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatOku(veri , "Kapanis" ) ;
var MA1 = Sistem.MA(C, "Simple", 10);
var MA2 = Sistem.MA(C, "Simple", 100);
var SonYon = "";
for (int i=1; i < C.Count; i++)
{
if (MA1[i] > MA2[i] && SonYon != "A")
{
SonYon = "A";
Sistem.Yon[i] = "A";
Sistem.Parametreler[0]= veri[i].Date.ToString("dd.MM.yyyy - HH:mm"); //Robotta sistemgetir ile okutabilmek için
Sistem.Parametreler[1]= C[i].ToString(); //Robotta sistemgetir ile okutabilmek için
Sistem.Parametreler[2] = SonYon; //Robotta sistemgetir ile okutabilmek için
}
else if (MA1[i] < MA2[i] && SonYon != "S")
{
SonYon = "S";
Sistem.Yon[i] = "S";
Sistem.Parametreler[0]= veri[i].Date.ToString("dd.MM.yyyy - HH:mm"); //Robotta sistemgetir ile okutabilmek için
Sistem.Parametreler[1]= C[i].ToString(); //Robotta sistemgetir ile okutabilmek için
Sistem.Parametreler[2] = SonYon; //Robotta sistemgetir ile okutabilmek için
}

}
Sistem.Parametreler[3] = Sistem.Yon[C.Count-1]; //SonBar sinyalinin tespiti için

**klozon** · 15-02-2016, 18:33

Herkese selam,

Az bilgim ve Sök-Tak-Yapıştır ile sistemimi ancak bu kadar geliştirebildim.

Saygılarımla,

**Sezai KILIÇ** · 15-02-2016, 21:59

Originally Posted by KOSA

Yanlış yere yazmışım ilk mesajı. Baboliye de zahmet oldu... :-)
Teşekkürler BearBull...

Sn BearBull, bir sistemin, birden fazla sembol için durumunu gösteren bir tablo açma örneği paylaştı.
Aşağıda ise, BİRDEN FAZLA SİSTEMİN aynı semboldeki (periyotlar da farklı olabilir) durumunu ve detayları gösteren tablo açma örneği verilmiştir.
Ekrana aşağıdaki tabloyu açar ve resimde gösterilen bilgileri anlık olarak takip edersiniz.
İstediğiniz kadar sistemin sonucunu tabloya yazdırabilirsiniz.

1-ADIM: Sistemlerin içindeki A/S/F koşullarının olduğu bloklara şu satırları yazdım.(Yön, işleme girme fityatı ve zamanını parametre tablosuna yazdırdım)

Kod:

,   if (KOŞUL)
   {
      SonYon = "A";
      Sistem.Yon[i] = SonYon;
      Sistem.Parametreler[0]= veri[i].Date.ToString("dd.MM.yyyy - HH:mm"); //Robotta sistemgetir ile okutabilmek için
      Sistem.Parametreler[1]= C[i].ToString(); //Robotta sistemgetir ile okutabilmek için
      Sistem.Parametreler[2] = SonYon; //Robotta sistemgetir ile okutabilmek için
   }

2.ADIM: Aşağıdaki kodu Robot olarak çalıştırın. (sistem33, sistem44, sistem55 benim sistemlerimin isimleri.
Bu satırlarda, sistemlerinizin adını ve periyodunu girmeniz yeterli.

Kod:

var Sembol = "VIP'VIP-X030";

//TABLONUN SÜTUNLARINI YARAT
   string TabloAd = "SINYAL TABLOSU "; //İSİM VER
   var SutunGenislik = new int[8]{100,45,40,110,70,80,70,60}; //SÜTUN SAYISI VE SÜTUN GENİŞLİKLERİ
   var SutunHizala = new int[8]{0,1,1,1,1,1,1,1}; //HİZALAMA (1=ORTALA)
   var SutunBaslik = new string[8]{"Sistem Adı","Periyot","Yön","Sinyal Zamanı","Son Fiyat","İşlem Fiyatı","KarZarar","Saat"}; //BAŞLIKLAR
   Sistem.Tablo(TabloAd, 100, 100, 640, 150, 8, 300, SutunGenislik, SutunHizala, SutunBaslik); //TABLOYU EKRANA GETİR


   var SonFiyat = Sistem.SonFiyat(Sembol);
   var s1 = Sistem.SistemGetir("_Sistem33",Sembol, "5"); //1.SİSTEMİ OKU
   var s2 = Sistem.SistemGetir("_Sistem44",Sembol, "20"); //2.SİSTEMİ OKU
   var s3 = Sistem.SistemGetir("_Sistem55",Sembol, "60"); //3.SİSTEMİ OKU

   var zaman1 = s1.Parametreler[0];
   var zaman2 = s2.Parametreler[0];
   var zaman3 = s3.Parametreler[0];

   var fiyat1 = Convert.ToSingle(s1.Parametreler[1]);
   var fiyat2 = Convert.ToSingle(s2.Parametreler[1]);
   var fiyat3 = Convert.ToSingle(s3.Parametreler[1]);

   var SonYon1 = s1.Parametreler[2];
   var SonYon2 = s2.Parametreler[2];
   var SonYon3 = s3.Parametreler[2];

    var Renk = Color.Green; 

Renk= (SonYon1=="S") ? Color.Red : Color.Green;  //SAT olanlar kırmızı, diğerleri yeşil olsun
     Sistem.TabloYazdir(TabloAd, 0, 0, s1.Name.ToString(), Color.White, Renk); //AD
     Sistem.TabloYazdir(TabloAd, 1, 0, s1.Periyot, Color.White, Renk);    //PERİYOT
     Sistem.TabloYazdir(TabloAd, 2, 0, SonYon1, Color.White, Renk);    //SON YÖN
     Sistem.TabloYazdir(TabloAd, 3, 0, zaman1, Color.White, Renk);     //İŞLEME GİRME ZAMANI
     Sistem.TabloYazdir(TabloAd, 4, 0, SonFiyat.ToString(), Color.White, Renk);  //SON FİYAT
     Sistem.TabloYazdir(TabloAd, 5, 0, fiyat1.ToString(), Color.White, Renk);  //İŞLEME GİRDİĞİ FİYAT
     Sistem.TabloYazdir(TabloAd, 6, 0, (SonFiyat- fiyat1).ToString("0.000"), Color.White, Renk); //KZ
     Sistem.TabloYazdir(TabloAd, 7, 0, DateTime.Now.ToString("HH:mm:ss"), Color.White, Renk); //SAAT
   
Renk= (SonYon2=="S") ? Color.Red : Color.Green;  //SAT olanlar kırmızı, diğerleri yeşil olsun
     Sistem.TabloYazdir(TabloAd, 0, 1, s2.Name.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 1, 1, s2.Periyot, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 2, 1, SonYon2, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 3, 1, zaman2, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 4, 1, SonFiyat.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 5, 1, fiyat2.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 6, 1, (SonFiyat- fiyat2).ToString("0.000"), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 7, 1, DateTime.Now.ToString("HH:mm:ss"), Color.White, Renk);
    
Renk= (SonYon3=="S") ? Color.Red : Color.Green;  //SAT olanlar kırmızı, diğerleri yeşil olsun
     Sistem.TabloYazdir(TabloAd, 0, 2, s3.Name.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 1, 2, s3.Periyot, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 2, 2, SonYon3, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 3, 2, zaman3, Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 4, 2, SonFiyat.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 5, 2, fiyat3.ToString(), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 6, 2, (SonFiyat- fiyat3).ToString("0.000"), Color.White, Renk); 
     Sistem.TabloYazdir(TabloAd, 7, 2, DateTime.Now.ToString("HH:mm:ss"), Color.White, Renk);

**hxtrader** · 15-02-2016, 22:31

İyi akşamlar.. Bu intikatörü ideal diline dönüştürebilirmisiniz.. Şimdiden teşekkür ederim..

Mov(Mov((C-Ref(C,-1)),15,E),5,E) / Mov(Mov((Abs(C-Ref(C,-1))),15,E),5,E)

**Sezai KILIÇ** · 15-02-2016, 22:52

Originally Posted by hxtrader

İyi akşamlar.. Bu intikatörü ideal diline dönüştürebilirmisiniz.. Şimdiden teşekkür ederim..

Mov(Mov((C-Ref(C,-1)),15,E),5,E) / Mov(Mov((Abs(C-Ref(C,-1))),15,E),5,E)

Buyrun,

Kod:

var C = Sistem.GrafikFiyatSec("Kapanis");
var CFark1 = Sistem.Liste(0);
var CFark2 = Sistem.Liste(0);
var IND = Sistem.Liste(0);

for (int i = 1; i < Sistem.BarSayisi; i++)
{
   CFark1[i] = C[i] - C[i-1];
   CFark2[i] = Math.Abs(C[i] - C[i-1]);
}

var Movx = Sistem.MA(CFark1, "Exp", 15);
var Movy = Sistem.MA(CFark2, "Exp", 15);
var Mov1 = Sistem.MA(Movx, "Exp", 5);
var Mov2 = Sistem.MA(Movy, "Exp", 5);

for (int i = 1; i < Sistem.BarSayisi; i++)
   IND[i] = Mov1[i] / Mov2[i];

Sistem.Cizgiler[0].Deger = IND; //Panel No 2, Ondalık sayısı 4

Panelde;

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

Seçenekler

Görünüm

Gönderi Kuralları