(Bu başlıkta soru sormayın)İdeal Formülleri (Soru-Cevap için diğer başlığı kullanın!)

Alıntı:

---

Originally Posted by Sezai KILIÇ

StochasticMomIndex indikatörü için LİSTE okutma imkanı verildi.
Bir indikatör veya listenin StochasticMomIndex'i alınabilir.

Örnek:

Kod:

---

var RSI = Sistem.RSI(100);
var XX = Sistem.StochasticMomIndex(RSI, 5, 3, 3);
Sistem.Cizgiler[0].Deger=XX;

---

---

Alıntı:

---

Originally Posted by Sezai KILIÇ

VIOP kontratları için, NetLot ve NetOran okutmak için iki yeni fonksiyon eklendi.

(Düzey1+ lisans gerektirir)
Örnek Kullanım:
Sistem.Mesaj(Sistem.NetLot(Sistem.AktifViopKontrat ).ToString("#,###"));

http://i.hizliresim.com/GRRrjb.png

---

Alıntı:

---

Originally Posted by Sezai KILIÇ

Hisse Senetleri (Pay Piyasası sembolleri) için NetHacim ve NetHacimOran fonksiyonları eklenmiştir.

(Düzey1+ lisans gerektirir)

Örnek Kullanımlar:
Sistem.Mesaj(Sistem.NetHacimOran("IMKBH'GARAN").To String("0.00"));
--
var NetHacim = Sistem.NetHacim("IMKBH'GARAN","IMKBH'AKBNK","IMKBH 'YKBNK");
Sistem.Mesaj(NetHacim.ToString("#,###"));

Not: Parantez için birden fazla hisse girilirse (örneğin spor hisselerini veya banka vs gibi sektörel bir grubu) hepsinin toplam Net Hacim bilgisi elde edilir.

---

Alıntı:

---

Originally Posted by Sezai KILIÇ

Tüm BIST Pay piyasasının Net Hacim ve Net Hacim Oranı bilgilerini okumak için iki yeni fonksiyon eklenmiştir.

Örnek Kullanımlar:
Sistem.Mesaj(Sistem.NetHacimBist().ToString("#,### "));
Sistem.Mesaj(Sistem.NetHacimBistOran().ToString("# .##"));

---

Teşekkürler Sezai bey :cool:

Alıntı:

---

Originally Posted by ykoc

Sezai bey ; İdealTrade ya da diğer arkadaşlardan bir kod ricam olacaktı , biliyorum Barsince komutları biraz gıcık ve ben ceviremedim. Beğendiğim bir indikatör Connor RSI. Yardımcı olabilirseniz sevinirim.

Kod:

---

data:=CLOSE;

lenRSI:=3;
lenStreak:=2;
lenPctRank:=100;

WildersRSI:=RSI(data, lenRSI);

UpDays:=BarsSince(C<=Ref(C,-1));
DownDays:=BarsSince(C>=Ref(C,-1));
Streak:=If(upDays>0,upDays,If(downDays>0,-downDays,0));
StreakRSI:=RSI(Streak,lenStreak);

larger:=Sum(data>LastValue(data+PREV*0),lenPctRank);
PctRank:=100 * larger / lenPctRank; {edited code}

ConnorsRSI:=(WildersRSI + StreakRSI + PctRank) / 3;
ConnorsRSI;

---

---

Alıntı:

---

Originally Posted by Sezai KILIÇ

Buyrun:

Kod:

---

var C = Sistem.GrafikFiyatSec("Kapanis");
var lenRSI =3;
var lenStreak = 2;
var lenPctRank = 100;
var WildersRSI = Sistem.RSI(C,lenRSI);
var Up = new List<int>();
var Dn = new List<int>();
var UpDn = Sistem.Liste(0);
var ch = Sistem.Liste(0);
var ConnorsRSI = Sistem.Liste(0);
var PctRank = Sistem.Liste(Sistem.BarSayisi,0);
var temp = new List<float>();
for(int i = 1 ; i<Sistem.BarSayisi;i++)
{
  ch[i] = (C[i]-C[i-1])/C[i-1]*100;
  temp.Add(ch[i]);
    if(ch[i]<=0)
    Up.Add(i);
    if(ch[i] >=0)
    Dn.Add(i);

  if(Up.Count>0 && Dn.Count>0)
  UpDn[i] = (i-Up.Last())- (i-Dn.Last());
 
      var son = temp.Count-1;     
      if(son>=lenPctRank)
    {
      var count = 0;
      for(int j =lenPctRank ; j>=1;j--)
      {
          if(temp[son]> ch[son-j])
            count=count+1;
      }   
    PctRank[i] = 100*count / lenPctRank;
    }
}

var StreakRSI = Sistem.RSI(UpDn,lenStreak);

for(int i = 0 ; i<Sistem.BarSayisi;i++)
  ConnorsRSI[i] =( WildersRSI[i]+ StreakRSI[i] + PctRank[i])/3;

Sistem.Cizgiler[0].Deger = ConnorsRSI; //panel2

---

http://i.hizliresim.com/YkVgmz.png

---

Teşekkürler :cool:

Alıntı:

---

Originally Posted by doan144

Vob grafiğinde gün içi maksimum işlem olan kademe ile minimum işlem olan kademeyi grafik üzerine yazdırabilirmiyiz.
Teşekkürler.

---

Alıntı:

---

Originally Posted by Tiberius

yapılabilir.
VIOP yuzeysel+ lisansı gerektirir.
gün içinde değer değişmeye devam edeceği için;
indikator olarak kullanılacaksa repaint yapar.
örnekte 5 dk grafik üzerine günlük kademe giydirilmiştir.
benzer şekilde;
5 dakikaya 60 dakikalık kademe
1 dakikaya 5 dakikalık kademe
etc
giydirilebilir.

Kod:

---

var V = Sistem.GrafikVerileri;
var KademeMaxFiyatDict = new Dictionary<string, float>();
var KademeMaxLotDict = new Dictionary<string, float>();

var BitisTarih = DateTime.Today;
var Tarih = BitisTarih.AddDays(-20);
while (Tarih < BitisTarih)
{
    Tarih = Tarih.AddDays(1);
    if (Tarih.DayOfWeek == DayOfWeek.Saturday || Tarih.DayOfWeek == DayOfWeek.Sunday) continue;
    var TarihStr = Tarih.ToString("yyyyMMdd");
    var IslemList = Sistem.SembolIslemleriniOku(Sistem.AktifViopKontrat, TarihStr);

    var dict = new Dictionary<float, float>();
    foreach (var islem in IslemList)
    {
        if (dict.ContainsKey(islem.Price) == false)
            dict[islem.Price] = 0;
        dict[islem.Price] += islem.Size;
    }
    dict = dict.OrderBy(x => x.Value).ToDictionary(x => x.Key, x => x.Value);
    KademeMaxFiyatDict[Tarih.ToString("yyyyMMdd")] = dict.Last().Key;
    KademeMaxLotDict[Tarih.ToString("yyyyMMdd")] = dict.Last().Value;
}


var KademeMaxLotList = Sistem.Liste(0);
var KademeMaxFiyatList = Sistem.Liste(0);
for (int i = V.Count - 1; i > V.Count - 2000; i--)
{
    var key = V[i].Date.ToString("yyyyMMdd");
    if (KademeMaxFiyatDict.ContainsKey(key))
        KademeMaxFiyatList[i] = KademeMaxFiyatDict[key];
    if (KademeMaxLotDict.ContainsKey(key))
        KademeMaxLotList[i] = KademeMaxLotDict[key];
}
Sistem.Cizgiler[0].Deger = KademeMaxFiyatList;
Sistem.Cizgiler[1].Deger = KademeMaxLotList;
Sistem.GradientYaziEkle("Son Gün Kademe Max Fiyat = " + KademeMaxFiyatList[KademeMaxFiyatList.Count - 1].ToString("0.000"), 1, 10, 150, Color.Yellow, Color.Orange, "Tahoma", 20);
Sistem.GradientYaziEkle("Son Gün Kademe Max Lot = " + KademeMaxLotList[KademeMaxLotList.Count - 1].ToString("0"), 1, 10, 180, Color.Yellow, Color.Orange, "Tahoma", 20);

---

http://i.hizliresim.com/GRWE8Z.png

---

Teşekkürler :cool:

Alıntı:

---

Originally Posted by poga

Frekans geçişlerinde hangi sistemin alış yada satış yaptığını bar üzerinde gösteriyor,frekans geçişi kullanan arkadaşlara lazım olabilir. Ben 3 sistem kullandım..


var AlisRenk = Sistem.Renk(255, 0, 255, 255);
var SatisRenk = Sistem.Renk(255,255, 0, 0);

for (int i = 1; i < V.Count; i++)

{
if ( a12[i] < prb[i] )
{


if (Sistem.Yon[i]=="A")
{
var Yazi = "hızlı al=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].Low, AlisRenk, "Tahoma", 10);
}
if (Sistem.Yon[i]=="S")

{
var Yazi = "hızlı sat=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].High, SatisRenk, "Tahoma", 10);
}
}


if ( a12[i] > prb[i] && a1ve2[i] > at[i] )
{


if (Sistem.Yon[i]=="A")
{
var Yazi = "yavas al=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].Low, AlisRenk, "Tahoma", 10);
}
if (Sistem.Yon[i]=="S")

{
var Yazi = "yavas sat=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].High, SatisRenk, "Tahoma", 10);
}
}

if ( a12[i] > prb[i] && a1ve2[i] < at[i] )
{


if (Sistem.Yon[i]=="A")
{
var Yazi = "orta al=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].Low, AlisRenk, "Tahoma", 10);
}
if (Sistem.Yon[i]=="S")

{
var Yazi = "orta sat=" + Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi, 1, i, Sistem.GrafikVerileri[i].High, SatisRenk, "Tahoma", 10);
}
}
}

http://i.hizliresim.com/m6gPj0.jpg

---

Teşekkürler :cool:

teşekkürler emegı geçenlere

Alıntı:

---

Originally Posted by AERTA

Merhabalar

Sayın uufuk un sitede paylaştığı aşağıdaki matriks kodunu ideale çevirebilirmiyiz arkadaşlar.

http://www.hisse.net/forum/showthrea...28162&page=841

TradePeriod:=25; StopPeriod:=10; Strict:=1 ;
rhigh:=hhv(ref(h,-1),TradePeriod); rlow:=llv(ref(l,-1),TradePeriod);
shigh:=hhv(ref(h,-1),StopPeriod); slow:= llv(ref(l,-1),StopPeriod);
al:=if( Strict=1,c> rhigh ,h > rhigh ) ; sat:=if(Strict=1,c< rlow,l< rlow) ;
z:=-valuewhen(1,al-sat,al-sat);
a:=if(z=1,rlow,rhigh); s:= if(z=-1,shigh,slow);
a; s; Cross(0,z)*rhigh;Cross(z,0)*rlow

---

Alıntı:

---

Originally Posted by Sezai KILIÇ

Çevirdiğimi tahmin ediyorum..
(L1,L2 yi çizdirmek yerine, barların altına nokta, yazı, sayı, veya yön sinyali de koyabilirsiniz.)

Kod:

---

var TradePeriod = 25;
var StopPeriod = 10;
var Strict = 1 ;

var c = Sistem.GrafikFiyatSec("Kapanis");
var h = Sistem.GrafikFiyatSec("Yuksek");
var l = Sistem.GrafikFiyatSec("Dusuk");
var RefH = Sistem.Ref(h,-1);
var RefL = Sistem.Ref(l,-1);
var rhigh = Sistem.HHV(TradePeriod, RefH);
var rlow = Sistem.LLV(TradePeriod, RefL);
var shigh = Sistem.HHV(StopPeriod, RefH);
var slow = Sistem.LLV(StopPeriod, RefL);
var al = Sistem.Liste(0);
var sat = Sistem.Liste(0);
var z = Sistem.Liste(0);
var a = Sistem.Liste(0);
var s = Sistem.Liste(0);
var L1 = Sistem.Liste(0);
var L2 = Sistem.Liste(0);

for (int i=1; i < Sistem.BarSayisi; i++)
{
  if (c[i] > rhigh[i])
  {
      if (h[i] > rhigh[i])
        al[i] = -1;
      else
        al[i] = 0;
  }
  if (c[i] < rlow[i])
  {
      if (l[i] < rlow[i])
        sat[i] = -1;
      else
        sat[i] = 0;
  }
  z[i] = ((al[i] - sat[i]) != 0) ? -(al[i] - sat[i]): z[i-1] ;
  a[i] = (z[i] == 1) ? rlow[i] : rhigh[i];
  s[i] = (z[i] == -1) ? shigh[i] : slow[i];
  L1[i] = (0 < z[i-1] && 0 >= z[i] ) ? rhigh[i] : 0;
  L2[i] = (0 > z[i-1] && 0 <= z[i] ) ? rlow[i] : 0;

}

Sistem.Cizgiler[0].Deger = a;
Sistem.Cizgiler[1].Deger = s;
Sistem.Cizgiler[2].Deger = L1;
Sistem.Cizgiler[3].Deger = L2;

---

---

Alıntı:

---

Originally Posted by Tiberius

http://i.hizliresim.com/0lErQB.png


aşağıdaki kod iş görebilir.
örnekte;
MA isimli bir sistem "XU100" üzerinde çalıştırılmış ve sinyaller VIOP üzerine aktarılmıştır.
SistemGetir fonksiyonunda uygulanacak sistem ve sinyalin üretileceği sembolu girmek yeterlidir.

Kod:

---


// ilk sembole göre siyalleri oluştur
var Sistem1 = Sistem.SistemGetir("MA", "IMKBX'XU100", Sistem.Periyot);
var V1 = Sistem1.GrafikVerileri;
var YON1 = Sistem1.Yon;


var V2 = Sistem.GrafikVerileri;

// sinyalleri asıl sembole aktar, tarihleri örtüştür
var SonYonNo = 0;
for (int i = 0; i < V1.Count; i++)
{
    if (YON1[i] != "")
    {
        for (int j = SonYonNo; j < V2.Count; j++)
        {
            if (V2[j].Date >= V1[i].Date)
            {
                Sistem.Yon[j] = YON1[i];
                SonYonNo = j;
                break;
            }
        }
    }
}

---

---

Spot piyasadan sinyal alıp viob piayasasında işlemler için.

Vİop verilerine göre her gün poz kapayıp ertesi gün aynı pozu tekrar açmak için kod örneği

Alıntı:

---

Originally Posted by erhanacikgoz1

@sezai bey @tiberus bey @bear bull @koddan anlayan diğer katılımcı arkadaşlar...

grafiklerim 2007 den başlıyor.

Şu an piyasada 5 dk grafikler için 18.10 barıyla kapanıyor.

geçmişte ise geçiş tarihi gerekirse öğrenırım. 17:40 da kapanıyordu.

Aşağıdaki basit bir sistemi her gun SOn barda flata geçirip her sabah açılış barının sonun(kapanısın)da mevcut yönde işlem açcak şekilde tasarlamak için ne yazmak lazım nasıl yazmak lazım.

aşağıdaki örnege ekleme yaparak yazabilen olursa sevinirim.

---

Alıntı:

---

Originally Posted by erhanacikgoz1

geçmişte bazı barlar daha çıktı basımıza.

onlarıda koda yazdım ilk basta 16:35 barlarıda var ilk 3 ayı kapsıyor fakat hem verinin düzgün olmayısına hemde ilk 3 ay aşırı fazla gap olusundan ilk 3 ayı flata çevirmedim.

ilerde lazım olacak olursa diye paylasıyorum. kodu

parametreyi özellikle böyle yazdım ki günleri tek tek daha rahat kontrol edebileceksiniz.

bilginiz olsun bazı barlarda 17:45 gibi mumlarda olabılıyor. bu bazan tamamen bist'in verdiği veri gereği 17:44:59 da bitmesi gereken veri datasının bazan bir sanıye sarkmasından olusuyor. Bu idaelin uydurması değil yani bistten gelen verinin uydurması. geçmiş verilerinizdede bazı yanlıs veriler varsa bir veya bir kaç bar erken flata geçiyor olabilirsiniz. çok önemli değil bence.

bendeki verilere göre tarihleri girdim belki sizde farklı tarihlerde saatler değişmiştir. bilginiz olsun.

---

Alıntı:

---

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");

var X1 = Sistem.Parabolic(0.000000000001 , 0.00000000000001);
//var X2 = Sistem.MA(X1, "Exp", 100);


var Tarih1 = new DateTime(2016, 11, 14, 0, 0, 0); // YIL=2016 AY=10 GUN=1 18:15 tarihini giriniz
var Tarih2 = new DateTime(2012, 7, 16, 0, 0, 0); // YIL=2015 AY=6 GUN=1 17:45 tarihini giriniz
var Tarih3 = new DateTime(2009, 10, 16, 0, 0, 0); // YIL=2016 AY=10 GUN=1 18:15 tarihini giriniz
var Tarih4 = new DateTime(2008, 10, 13, 0, 0, 0); // YIL=2015 AY=6 GUN=1 17:45 tarihini giriniz


var SonYon = "";
for (int i = 1; i < V.Count; i++)
{
var Flat1815 = V[i].Date > Tarih1 && V[i].Date.Hour == 18 && V[i].Date.Minute >= 10;
var Flat1745 = V[i].Date < Tarih1 && V[i].Date > Tarih2 && V[i].Date.Hour == 17 && V[i].Date.Minute >= 40;
var Flat1730 = V[i].Date < Tarih2 && V[i].Date.Hour == 17 && V[i].Date.Minute >= 30;
//var Flat1710 = V[i].Date > Tarih3 && V[i].Date.Hour == 17 && V[i].Date.Minute >= 10;
var Flat1705 = V[i].Date < Tarih3 && V[i].Date > Tarih4 && V[i].Date.Hour == 17 && V[i].Date.Minute >= 10;
var Flat1635 = V[i].Date < Tarih4 && V[i].Date.Hour == 17 && V[i].Date.Minute >= 05;


// kapanışta flat ol
if (Flat1815 || Flat1745 || Flat1730 || Flat1705 || Flat1635)
{
if (SonYon != "F")
{
SonYon = "F";
Sistem.Yon[i] = "F";
}
}

// sistemim
else
{
if (X1[i] < C[i] && SonYon != "A")
{
SonYon = "A";
Sistem.Yon[i] = "A";
}
if (X1[i] > C[i] && SonYon != "S")
{
SonYon = "S";
Sistem.Yon[i] = "S";
}
}
}

---

Forumumuz yeni adresinde eski gelenek ve kurallarıyla yoluna devam edecektir. Lütfen üyelik kaydınızı yapınız:

http://www.hisse.net/topluluk/register.php

ŞU AN OKUMAKTA OLDUĞUNUZ ESKİ FORUM YAZMAYA KAPANACAK, SADECE ESKİ YAZILAR OKUNABİLECEKTİR.