Sayfa 40/40 İlkİlk ... 30383940
Arama sonucu : 320 madde; 313 - 320 arası.

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

  1. #313
    Duhul
    Aug 2011
    İkamet
    Mudanya
    Yaş
    36
    Gönderi
    7,513

    Esas

     Alıntı Originally Posted by Sezai KILIÇ Yazıyı Oku
    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Ç Yazıyı Oku
    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("#,###"));

     Alıntı Originally Posted by Sezai KILIÇ Yazıyı Oku
    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Ç Yazıyı Oku
    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
    Son düzenleme : thebaboli; 09-03-2016 saat: 17:23.
    Forum kurallarını okumak için tıklayınız!
    Not: Forumumuzda dini, siyasi ve futbol taraftarlığı içeren yazılar kabul edilmiyor!

  2. #314
    Duhul
    Aug 2011
    İkamet
    Mudanya
    Yaş
    36
    Gönderi
    7,513

    Esas

     Alıntı Originally Posted by ykoc Yazıyı Oku
    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Ç Yazıyı Oku
    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
    Teşekkürler
    Forum kurallarını okumak için tıklayınız!
    Not: Forumumuzda dini, siyasi ve futbol taraftarlığı içeren yazılar kabul edilmiyor!

  3. #315
    Duhul
    Aug 2011
    İkamet
    Mudanya
    Yaş
    36
    Gönderi
    7,513

    Esas

     Alıntı Originally Posted by doan144 Yazıyı Oku
    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 Yazıyı Oku
    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);
    Teşekkürler
    Forum kurallarını okumak için tıklayınız!
    Not: Forumumuzda dini, siyasi ve futbol taraftarlığı içeren yazılar kabul edilmiyor!

  4. #316
    Duhul
    Aug 2011
    İkamet
    Mudanya
    Yaş
    36
    Gönderi
    7,513

    Esas

     Alıntı Originally Posted by poga Yazıyı Oku
    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);
    }
    }
    }

    Teşekkürler
    Forum kurallarını okumak için tıklayınız!
    Not: Forumumuzda dini, siyasi ve futbol taraftarlığı içeren yazılar kabul edilmiyor!

  5. #317

    Esas

    teşekkürler emegı geçenlere

     Alıntı Originally Posted by AERTA Yazıyı Oku
    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Ç Yazıyı Oku
    Ç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;

  6. #318
    Duhul
    Dec 2010
    İkamet
    İstanbul
    Gönderi
    214

    Esas

     Alıntı Originally Posted by Tiberius Yazıyı Oku



    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.
    Son düzenleme : karmatte; 29-12-2016 saat: 14:17.

  7. #319

    Esas

    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 Yazıyı Oku
    @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 Yazıyı Oku
    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.
    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";
    }
    }
    }

  8. #320
    Duhul
    Aug 2011
    İkamet
    Mudanya
    Yaş
    36
    Gönderi
    7,513

    Esas

    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.
    Forum kurallarını okumak için tıklayınız!
    Not: Forumumuzda dini, siyasi ve futbol taraftarlığı içeren yazılar kabul edilmiyor!

Sayfa 40/40 İlkİlk ... 30383940

Gönderi Kuralları

  • Yeni konu açamazsınız
  • Konulara cevap yazamazsınız
  • Yazılara ek gönderemezsiniz
  • Yazılarınızı değiştiremezsiniz
  •