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

Herkese Günaydın.

İki tane sorum olacaktı. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

1- Hisseli ve vadelilerde işlem yaparken, elimizdeki pozisyonu pys üzerinden satışını veya alışını, daha sonrada pozisyon sayısı kadar da 1. Alış veya 1. Satış Kademesini (limitli fiyat) emir girdiren kod hakkında.
Böylelikle kaymayı bir nebze önlenmeye çalışılacak. Emrin gerçekleşmemesi durumunda pozisyonu bir sonraki işleme kadar pozisyon açmayacak.

2- idealin dosyaları şifreleme konusunda yeni bir şeyler ürettiğini twiterda gördüm. Eskiden konular paylaşılırdı ama artık sanırım kimse yoğunluktan ilgilenemiyor. user.DLL ile şifreleme kodu hakkında bilgisi olan var ise paylaşabilir mi?

Saygılarımla,
Klozon

[IMG]https://i.hizliresim.com/3E2Yd2.png[/IMG]

formülü aşağıda belki yararlanan olur

var Sembol = Sistem.Sembol;
var B1 = Sistem.GrafikVerileriniOku(Sembol, "1");
var C = Sistem.GrafikFiyatOku(B1, "Kapanis");
var MA1 = Sistem.MA(C, "Exp", 21);

var B2 = Sistem.GrafikVerileriniOku(Sembol, "5");
var C2 = Sistem.GrafikFiyatOku(B2, "Kapanis");
var MA2 = Sistem.MA(C2, "Exp", 21);
MA2 = Sistem.DonemCevir(B1, B2, MA2);

var period = 3;
//var P = Sistem.GrafikVerileri;
//var C = Sistem.GrafikFiyatSec("Kapanis");
var H = Sistem.GrafikFiyatSec("Yuksek");
var L = Sistem.GrafikFiyatSec("Dusuk");

var HH = Sistem.HHV(period, H);
var LL = Sistem.LLV(period, L);
var HLMID = Sistem.ListeOrta(HH, LL);
var HLUP = Sistem.ListeOrta(HH, HLMID);
var HLDOWN = Sistem.ListeOrta(HLMID, LL);





var SonYon="";
float Fiyat = 0.0f;
for (int i = C.Count-100; i < C.Count; i++)
{
if ( C[i] >= HLUP [i] && SonYon != "A")
{
Sistem.Yon[i] = "A";
SonYon="A";
Fiyat = C[i];
//Sistem.Ses();
}
else if (C[i] <= HLDOWN [i] && SonYon != "S")
{
Sistem.Yon[i] = "S";
SonYon="S";
Fiyat = C[i];
//Sistem.Ses();
}
}

var adx = Sistem.ADX(B1, 8) ;
var adx5 = Sistem.ADX(B2, 8) ;
var adxx = Sistem.DonemCevir(B1, B2, adx5) ;

Sistem.Cizgiler[0].Deger = adx ;

Sistem.Cizgiler[2].Deger = adxx;
Sistem.Cizgiler[3].Deger = Sistem.Liste(25F);
Sistem.Cizgiler[4].Deger = Sistem.Liste(15F);
Sistem.Cizgiler[5].Deger = Sistem.Liste(15F);
Sistem.Cizgiler[6].Deger = MA2;
Sistem.Cizgiler[7].Deger = MA1;

Alıntı:

---

Originally Posted by tiyatro

HFT yapan kurumların ITCH -OUCH data ve çıktı ile çalışması lazım, onun için ilgili liste bu şekilde ufak bir ekleme yapmak istedim. Bu kurumlar dışında matriks ve Foreks aracılığıyla HFT yapanlar var onlarda bir tık gerideler. Kendi yazılımı olanlar bu şekilde.

Gerçekten toplu olarak HFT datası ile VİOP ya da hisse de işlem yapmak isteyen olursa yardımcı olabilirim. Ancak maliyetler hiç de azımsanmayacak seviyee baştan belirteyim. Bir HFT 500/ms emir paketi PTRM dahil en azından 4500 USD ki kolokasyon sabitleri hariç.

He birde bizim borsada verimli olmasada işi en üst düzeye taşımak isteyen varsa FPGA nediri aratsınlar.

Son olarak Trend takip eden sistemlerde HFT falan gereksiz maliyetlerdir.

http://www.borsaistanbul.com/bistech...lan-kuruluslar

Saygılarımla tiyatro.

---

Merhabalar.. hft konusunda bilgi almak istiyordum..

SM-G928C cihazımdan hisse.net mobile app kullanarak gönderildi.

Kolay gelsin Demark Pivot sistemini uygulayamadım. if ve if else olarak denedim ama sonuç alamadım. Düzeltebilecek üstadlara şimdiden teşekkürler.

Kod:

---

//https://www.mypivots.com/dictionary/definition/57/demark-pivot-points
//https://www.investopedia.com/articles/technical/04/041404.asp

var Veriler = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");

var H = Sistem.Liste(0);
var L = Sistem.Liste(0);
var C = Sistem.Liste(0);
var O = Sistem.Liste(0);
var P = Sistem.Liste(0);
var H1 = Sistem.Liste(0);
var L1 = Sistem.Liste(0);
var PP = Sistem.Liste(0);
var X = Sistem.Liste(0);


for (int i = 1; i < Veriler.Count; i++)
{ H[i] = Veriler[i-1].High;
  L[i] = Veriler[i-1].Low;
  C[i] = Veriler[i-1].Close;
  O[i] = Veriler[i-1].Open;

  { if (C[i] < O[i])
            X[i] = H[i] + L[i] + C[i] + L[i]; 
   
    if (C[i] > O[i])
            X[i] = H[i] + L[i] + C[i] + H[i]; 
           
    if (C[i] = O[i])
            X[i] = H[i] + L[i] + C[i] + C[i]; 
    }                 
     
  PP[i] = (X[i]/4 ) ;
  H1[i] = (X[i]/2 ) - L[i] ;
  L1[i] = (X[i]/2 ) - H[i] ;
 
 }

var PW = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, PP);
var Hi = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, H1);
var Lo = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, L1);


Sistem.Cizgiler[0].Deger=PW;
Sistem.Cizgiler[1].Deger=Hi;
Sistem.Cizgiler[2].Deger=Lo;

---

Alıntı:

---

Originally Posted by ozmen

Kolay gelsin Demark Pivot sistemini uygulayamadım. if ve if else olarak denedim ama sonuç alamadım. Düzeltebilecek üstadlara şimdiden teşekkürler.

Kod:

---

//https://www.mypivots.com/dictionary/definition/57/demark-pivot-points
//https://www.investopedia.com/articles/technical/04/041404.asp

var Veriler = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");

var H = Sistem.Liste(0);
var L = Sistem.Liste(0);
var C = Sistem.Liste(0);
var O = Sistem.Liste(0);
var P = Sistem.Liste(0);
var H1 = Sistem.Liste(0);
var L1 = Sistem.Liste(0);
var PP = Sistem.Liste(0);
var X = Sistem.Liste(0);


for (int i = 1; i < Veriler.Count; i++)
{ H[i] = Veriler[i-1].High;
  L[i] = Veriler[i-1].Low;
  C[i] = Veriler[i-1].Close;
  O[i] = Veriler[i-1].Open;

  { if (C[i] < O[i])
            X[i] = H[i] + L[i] + C[i] + L[i]; 
   
    if (C[i] > O[i])
            X[i] = H[i] + L[i] + C[i] + H[i]; 
           
    if (C[i] = O[i])
            X[i] = H[i] + L[i] + C[i] + C[i]; 
    }                 
     
  PP[i] = (X[i]/4 ) ;
  H1[i] = (X[i]/2 ) - L[i] ;
  L1[i] = (X[i]/2 ) - H[i] ;
 
 }

var PW = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, PP);
var Hi = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, H1);
var Lo = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, L1);


Sistem.Cizgiler[0].Deger=PW;
Sistem.Cizgiler[1].Deger=Hi;
Sistem.Cizgiler[2].Deger=Lo;

---

---

Kodunuzun çalışıp çalışmadığına bakmadım ancak gözüme çarpan bir hata var.
if (C[i] = O[i]) satırında koşul değil atama operatorü kullanmışsınız. Doğrusu:
if (C[i] == O[i]) şeklinde olmalı.
Kolay gelsin...

Teşekkürler. Sayın Çağlar; düzeltmeyi yaptım ve X listesini öne alınca grafik ortaya çıktı. Birkaç destek direnç daha ekledim. Açılış fiyatını son günün açılış fiyatından hesaplattım.

https://i.hizliresim.com/OokJk4.jpg

Kod:

---


var Veriler = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");

var H = Sistem.Liste(0);
var L = Sistem.Liste(0);
var C = Sistem.Liste(0);
var O = Sistem.Liste(0);
var X = Sistem.Liste(0);
var PP = Sistem.Liste(0);
var R = Sistem.Liste(0);
var R1 = Sistem.Liste(0);
var S1 = Sistem.Liste(0);
var R2 = Sistem.Liste(0);
var R3 = Sistem.Liste(0);
var S2 = Sistem.Liste(0);
var S3 = Sistem.Liste(0);

for (int i = 1; i < Veriler.Count; i++)
{ H[i] = Veriler[i-1].High;
  L[i] = Veriler[i-1].Low;
  C[i] = Veriler[i-1].Close;
  O[i] = Veriler[i].Open;

  { if (C[i] < O[i])
            X[i] = L[i] + L[i] + H[i] + C[i]; 
   
    if (C[i] > O[i])
            X[i] = H[i] + H[i] + L[i] + C[i]; 
           
    if (C[i] == O[i])
            X[i] = C[i] + C[i] + H[i] + L[i]; 
    }         
 
  R[i] = H[i] - L[i] ;
  PP[i] = (X[i]/4) ;
  R1[i] = (2*PP[i]) - L[i] ;
  S1[i] = (2*PP[i]) - H[i] ;
  R2[i] = PP[i] + R[i];
  R3[i] = R1[i] + R[i];
  S2[i] = PP[i] - R[i];
  S3[i] = S1[i] - R[i];
 }

/*  https://www.forexfactory.com/showthread.php?t=58708&page=2
Pivot = ((2*H ) + L + C ) / 4 for close greater than open
((2*L ) + H + C ) / 4 for close less than open
((2*C ) + H + L ) / 4 for close unchanged

R1 = 2*Pivot - Previous day Low
R2 = Pivot + Previous day Range {H-L}
R3 = R1 + Previous Day Range

S1 = 2*Pivot - Previous day high
S2 = Pivot - Previous day Range
S3 = S1 - Previous day Range
*/

var PW = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, PP);
var r3 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, R3);
var r2 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, R2);
var r1 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, R1);
var s1 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, S1);
var s2 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, S2);
var s3 = Sistem.DonemCevir(Sistem.GrafikVerileri, Veriler, S3);

Sistem.Cizgiler[0].Deger=r3;
Sistem.Cizgiler[1].Deger=r2;
Sistem.Cizgiler[2].Deger=r1;
Sistem.Cizgiler[3].Deger=PW;
Sistem.Cizgiler[4].Deger=s1;
Sistem.Cizgiler[5].Deger=s2;
Sistem.Cizgiler[6].Deger=s3;

---

Merhaba;

RSI denvolepe ı cizdiremedim. Yardımcı olur musunuz?


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


// RSI Denvolepe hesapla
var RSID = Sistem.RSIDenvelopeUp(Veriler, "Simple", 14, 2);
var RSID1 = Sistem.RSIDenvelopeMid(Veriler, "Simple", 14, 2);
var RSID2 = Sistem.RSIDenvelopeDown(Veriler, "Simple", 14, 2);




// hesaplanan verileri çizgilere aktar ve açıklama ekle
Sistem.Cizgiler[0].Deger = RSID;
Sistem.Cizgiler[1].Deger = RSID2;
Sistem.Cizgiler[2].Deger = RSID3;

Alıntı:

---

Originally Posted by umit_ykoc

Edit : Eger istediğiniz bu ise, ayni kodun 15 ve 60 dk periyotlardaki yön listesi indikatör olarak cekilebilir ve sistem içinde kullanilabilir. Fotoda 5-15-60 dk listelerini al yönü için 1 sat yönü için -1 olarak cizdirdim. İşinize yararsa göndereyim kodu.

https://uploads.tapatalk-cdn.com/201...accb113c7e.png

---

sayın umit_ykoc
ilgili kodu mahsuru yoksa paylaşabilir veya mesaj olarak gönderirseniz sevinirim
teşekkürler iyi çalışmalar