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

[Keçi]

Sn Anonim, daha önce user.dll e yazmýþtým ama deneme þansým olmamýþtý. Denedikten sonra buraya yazarsanýz memnun olurum. Eðer bir hata varsa düzeltmeye çalýþýrým.

/*
 * Average price of the current bar
   xClose = (Open+High+Low+Close)/4 

 * Midpoint of the previous bar
   xOpen = [xOpen(Previous Bar) + Close(Previous Bar)]/2

 * Highest value in the set
   xHigh = Max(High, xOpen, xClose)

 * Lowest value in the set
   xLow = Min(Low, xOpen, xClose)
*/
public List<cxBar> ToHeikinAshi(List<cxBar> bars)
{
    var ha = bars.Select(b => b.Clone()).ToList();

    try
    {
        for (int i = 1; i < bars.Count; i++)
        {
            ha[i].Close = (bars[i].Open + bars[i].High + bars[i].Low + bars[i].Close) / 4;
            ha[i].Open = (ha[i - 1].Open + ha[i - 1].Close) / 2;
            ha[i].High = Max(bars[i].High, ha[i].Open, ha[i].Close);
            ha[i].Low = Min(bars[i].Low, ha[i].Open, ha[i].Close);
        }
    }
    catch (Exception ex)
    {
        //Log(string.Format("ToHeikinAshi failed. Ex: {0}", ex));
    }

    return ha;
}

Eðer Þablon;
xOpen = [xOpen(Previous Bar) + Close(Previous Bar)]/2
ise
ha[i].Open = (ha[i - 1].Open + ha[i - 1].Close) / 2;
deðil
ha[i].Open = (ha[i - 1].Open + bars[i - 1].Close) / 2;
olmalý sanýrým.

Ýdeal ise dahada farklý;
ha[i].Open = (bars[i - 1].Open + bars[i - 1].Close) / 2;
þeklinde hesaplýyor sanýrým

test etmedim kodlara göre yazýyorum sadece.
sanýrým bilinen formül ile ideal arasýnda da yorum farký var veya ideal HeikinAshi yi hatalý hesaplýyor

[Caglar]

Eðer Þablon;
xOpen = [xOpen(Previous Bar) + Close(Previous Bar)]/2
ise
ha[i].Open = (ha[i - 1].Open + ha[i - 1].Close) / 2;
deðil
ha[i].Open = (ha[i - 1].Open + bars[i - 1].Close) / 2;
olmalý sanýrým.

Ýdeal ise dahada farklý;
ha[i].Open = (bars[i - 1].Open + bars[i - 1].Close) / 2;
þeklinde hesaplýyor sanýrým

test etmedim kodlara göre yazýyorum sadece.
sanýrým bilinen formül ile ideal arasýnda da yorum farký var veya ideal HeikinAshi yi hatalý hesaplýyor

Evet sn Keçi, doðrusu sizin yazdýðýnýz gibi olmalý.
Teþekkürler düzeltme için.

[Keçi]

Evet sn Keçi, doðrusu sizin yazdýðýnýz gibi olmalý.
Teþekkürler düzeltme için.

Rica ederim, doðru formülle de tutmayacak çünkü ideal HeikinAshi de Open deðerini hatalý hesaplýyorAþaðýda investing-ULUSE-HeikinAshi grafiði ile ideal-ULUSE-HeikinAshi grafiði farký net görülüyor.

[Keçi]

bu kodda x2 çizgisi 0 olarak görünmsinin sebebi ney nasýl düzelteceðim.

kodu kalabalýk görünce bakmýyordum ,
forumda ctrl+F yapýp x2 yi arattým.
Kodun özeti aþaðýdaki gibi;


//Veri adedi kadar, deðerleri 0 olan liste oluþtur.
var x3 = Sistem.Liste(V.Count, 0);


//Tüm deðerleri sýfýrdan oluþan x3 listesinin 10 barlýk simple ortalamasýný al (aldýk sýfýr)
var x2 = Sistem.MA(x3, "Simple", 10);


//sýfýrý göster
Sistem.Cizgiler[1].Deger = x2;


çözüm, x3 listesini bir þekilde deðerlerle doldurmak.

[alekss]

gidiþ yolu hakkýnda yazayým..

1- bir kaynaktan formasyon hakkýnda bilgi alýn.
http://www.candlesticker.com/Pattern...r&Pattern=2201
http://www.candlesticker.com/Pattern...r&Pattern=2101
gibi.

2. formülü matematiksel olarak yazýn, yada hazýrýný bulun.

Bullish Engulfing
(O1>C1) AND (C-O)>=.7*(H-L) AND (C>O1) AND (O<C1) AND (H-L)>=1.2*(AVGH10-AVGL10)


Bearish Engulfing
(C1>O1) AND (O-C)>=.7*(H-L) AND (C<O1) AND (O>C1) AND (H-L)>=1.2*(AVGH10-AVGL10)
olabilir gibi.

bunlarý yazarken yapýlan hata genelde farklý formasyonlardan nasýl ayrýldýðý olabiliyor.

bunu da farklý uygulamalarla kýyaslayarak anlayabilir ve geliþtirebilirsiniz.

sistem de ise þu þekilde bir karþýlýðý olabilir, daha önce sayýn cihangir paylaþmýþtý..
sorgu yapacaksanýz iþiniz kolay, eðer al-sat sistemine dönüþtürecekseniz al-sat teyitlerinide formülüze etmeniz gerekecek.
aþaðýdaki kodlar hatalý hesaplýyor olabilir, sadace yöntem hakkýnda fikir vermek için yazdým.

var V=Sistem.GrafikVerileri ;
var C =Sistem.GrafikFiyatOku(V, "Kapanis") ;
var H =Sistem.GrafikFiyatOku(V, "Yuksek") ;
var L =Sistem.GrafikFiyatOku(V, "Dusuk") ;
var O =Sistem.GrafikFiyatOku(V, "Acilis") ;



for (int i =V.Count-250; i < V.Count; i++)
{



if((O[i-1] >C[i-1] && C[i] > O[i] && C[i]>=O[i-1] &&C[i-1]>=O[i] && C[i]-O[i]>O[i-1]-C[i-1]))
{
var Yazi ="\nB\nu\nl\nl\ni\ns\nh\n\nE\nn\ng\nu\nl\nf\ni\nn\ n g=" +Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi,1, i, Sistem.GrafikVerileri[i].Close, Color.DarkOrange, "Tahoma", 6);
}


if((C[i-1] >O[i-1] && O[i]>C[i] && O[i]>=C[i-1] &&O[i-1]>=C[i] && O[i]-C[i]>C[i-1]-O[i-1]))
{
var Yazi ="\nB\ne\na\nr\ni\ns\nh\n\nE\ng\nu\nl\nf\ni\nn\ng= " +Sistem.GrafikVerileri[i].Close.ToString();
Sistem.YaziEkle(Yazi,1, i, Sistem.GrafikVerileri[i].Close, Color.DimGray, "Tahoma", 6);

}



}

sayýn keçi cevabýnýz için teþekkürler
bu arada bu c++ dil konusunda uzman oldugunuz belli
sizden ricam elinizde mevcut olup daha önce sizin tarafýnýzdan kodlanmýþ, paylaþmada sýkýntý görmediðiniz mum grafikk stratejileri veya farklý alým satým strateji formüllerini forumda paylaþýrsanýz seviniriz
þimdiden teþekkürler

[Klozon]

Herkese Selam Arkadaþlar,
Bir sorum olacaktý, yardýmýnýzý rica ediyorum.

Formülümde "Sistemgetir" fonksiyonun kullanýyorum. Ancak farklý peryotlar için Sistem getir deki peryot kýsmýný sürekli elle girmek zorunda kalýyorum.
Sorum: mevcut açýk olan grafik peryotunu bulup, formüldeki peryot kýsmýna yazdýrabilir miyiz?

Saygýlar...

[Keçi]

Herkese Selam Arkadaþlar,
Bir sorum olacaktý, yardýmýnýzý rica ediyorum.

Formülümde "Sistemgetir" fonksiyonun kullanýyorum. Ancak farklý peryotlar için Sistem getir deki peryot kýsmýný sürekli elle girmek zorunda kalýyorum.
Sorum: mevcut açýk olan grafik peryotunu bulup, formüldeki peryot kýsmýna yazdýrabilir miyiz?

Saygýlar...

Selam, Sistem.Periyot yazabilirsiniz.

[Keçi]

geri donusunuz icin tesekkurler sayin Keci.

Rica ederim, þimdi baktým, hiç yeni kod yazmadým. sadece dosya taným iþlemlerini for içerisine taþýdým..

//Ayarlar -------------------------------------------


  bool BaslikSatiriOlsumu= true;
  string Ayrac=";";
  int KacGun = 7;




//Desenler -------------------------------------------


  string Headers =    "NAME"+Ayrac+
		      "PER"+Ayrac+
		      "DATE"+Ayrac+
		      "TIME"+Ayrac+
		      "OPEN"+Ayrac+
		      "HIGH"+Ayrac+
		      "LOW"+Ayrac+
		      "CLOSE"+Ayrac+
		      "VOL"+Ayrac+
		      "OPENINT"; 
					
					
  string Values = "{0}"+Ayrac+"{1}"+Ayrac+"{2}"+Ayrac+"{3}"+Ayrac+"{4}"+Ayrac+"{5}"+Ayrac+"{6}"+Ayrac+"{7}"+Ayrac+"{8}"+Ayrac+"{9}";








//Hisseye ait Toplam Barý Bul (Burasýný iyi kontrol etmedim, bar sayýlarý sorunlu olabilir, her periyot olmayabilir, ayarlayýn iþte:)
int ToplamBar= 0;


if(Sistem.Periyot=="G") ToplamBar = KacGun;
else if(Sistem.Periyot=="240") ToplamBar = KacGun * 2;
else if(Sistem.Periyot=="120") ToplamBar = KacGun * 4;
else if(Sistem.Periyot=="60") ToplamBar = KacGun * 8;
else if(Sistem.Periyot=="30") ToplamBar = KacGun * 8 * 2;
else if(Sistem.Periyot=="15") ToplamBar = KacGun * 8 * 2 * 2;
else if(Sistem.Periyot=="5")  ToplamBar = KacGun * 8 * 2 * 2 * 3;
else if(Sistem.Periyot=="1")  ToplamBar = KacGun * 8 * 2 * 2 * 3 * 5;


//Sembol için Bar Döngüsüne gir------------------------------------------------
for (int i = Sistem.BarSayisi - ToplamBar  ; i < Sistem.BarSayisi; i++)
{
     // Bar'a ait Satýrý Oluþtur------------------------------------------------------
     string barline= string.Format(
						Values
						,Sistem.Sembol.Replace("IMKBH","").Replace("'","")
						,Sistem.Periyot.ToString()
						,Sistem.GrafikVerileri[i].Date.ToString("yyyyMMdd")
						,Sistem.GrafikVerileri[i].Date.ToString("HH:mm")
						,Sistem.GrafikVerileri[i].Open.ToString().Replace(",",".")
						,Sistem.GrafikVerileri[i].High.ToString().Replace(",",".")
						,Sistem.GrafikVerileri[i].Low.ToString().Replace(",",".")
						,Sistem.GrafikVerileri[i].Close.ToString().Replace(",",".")
						,Sistem.GrafikVerileri[i].Vol.ToString().Replace(",",".")
						//,Sistem.LotGun(Sistem.Sembol).ToString().Replace(",",".")  //Hacim lot olacaksa bunu açýp üsttekini kapatýn
						,Sistem.GrafikVerileri[i-1].Close.ToString().Replace(",",".")
			     );


      string DosyaAdi = @"d:\Metastock_"+Sistem.Sembol+"_"+Sistem.Periyot+"_"
                        + DateTime.Now.ToString("dd.MM.yyyy")
                        +".csv";


//Dosya Yoksa ilk oluþtuðunda Header yaz ---------------------------------------
if (!File.Exists(DosyaAdi))   
{  
    	if(BaslikSatiriOlsumu) {
                                  using (FileStream fs = new FileStream(DosyaAdi ,FileMode.Append, FileAccess.Write))
                                  using (StreamWriter sw = new StreamWriter(fs))
                                  {
                                     sw.WriteLine(Headers );
                                  }
                                } 
} 


      // Bar'a ait Satýrý Dosyay Yaz---------------------------------------
      using (FileStream fs = new FileStream(DosyaAdi ,FileMode.Append, FileAccess.Write))
      using (StreamWriter sw = new StreamWriter(fs))
      {
        sw.WriteLine(barline);
      }


} // For'a ait




//Sorgu Ekranýna Ekleme -----------------------------------------------------


Sistem.SorguAciklama = "Aktarýmý Yapýlmýþtýr";
Sistem.SorguEkle();


//----------------------------------------------------------------------------