Sistem Karþýlaþtýrma 2

[Tiberius]

Heryeri bicak sirti kalp dayanmaz guvenmek lazim.

O yuzden aslinda diken ustu diyebiliriz.

Ne olur ne gider zaman gosterecek.

Tesekkurler

Koduda paylasalim varmi tiberius hocam sablon sizde.

Uyari her sisteme uyum saglamaz

Þablon Sezai bey'de var üstat, müsait bir zamanda paylaþacaktýr. (en geç salý günü)

[Orhan AKDOÐAN]

Düþen Kar Maskesi: KZ belirlenen dilimi aþaðý keserse Flat, yukarý keserse sisteminizin sinyali.
Detaylý kontrol edilmedi. Test etmelisiniz.

//Ayarlar
bool MaskeVar = true;      // false ise sizin sistem, true ise Düþen Kar Maskesi Aktif.
var GrafikSistemAd= "A1";  // Sisteminizin adýný yazýn. GetiriHesapla içermelidir.
int KzSeviyeMod=5;         // KZ al-sat çizgisi adýmý.

//Veriler
var V = Sistem.GrafikVerileri;
var O = Sistem.GrafikFiyatSec("Açýlýþ");

//Sistem Getir
var GrafikSistem = Sistem.SistemGetir(GrafikSistemAd, Sistem.Sembol, Sistem.Periyot);
var Yonler = GrafikSistem.Yon;
var Seviyeler = GrafikSistem.Seviye;
var GetiriList = GrafikSistem.GetiriKZ; 

//Deðiþkenler
string SonYon="F";
string GercekSonYon="";
bool AksamFlatIslemde=false;
float MaxKZ=0;

//Maske Listesi
var MaskeList = Sistem.Liste(0);
var Maske = 1;
for (int i = 1; i < V.Count; i++)
{
    var SonGetiri=GetiriList[i];
    var OncekiGetiri=GetiriList[i-1];
    MaxKZ = Math.Max(MaxKZ,SonGetiri);

    for (int j = 0; j < Math.Round(GetiriList[i] /KzSeviyeMod)+3; j++)
    {
        var jSeviye=j*KzSeviyeMod; 
  
        if (OncekiGetiri > jSeviye && SonGetiri <= jSeviye   )
        {
            Maske = 0;
            break;
        }
        if (OncekiGetiri < jSeviye  && SonGetiri >= jSeviye )
        {
            Maske = 1;
            break;
        }
    }
    MaskeList[i] = Maske;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = GetiriList;

var RenkListesi = new List<Color>();
for (int i = 0; i < Sistem.BarSayisi; i++)   RenkListesi.Add(Color.Gray);
for (int i = 1; i < V.Count; i++)
{
    if (MaskeList[i] == 0) RenkListesi[i] = Color.Gray;
    else if (MaskeList[i] == 1) RenkListesi[i] = Color.Cyan;
}
Sistem.Cizgiler[0].RenkListesi = RenkListesi;

//KZ Seviye Çizgileri(Sadece görsellik için, algoyu etkilemez, son Kz ye yakýn 10 çizgi.)
if(MaskeVar )
{
var SeviyeCizgiCounter=10;
for (var i =Math.Round(MaxKZ/KzSeviyeMod)+3 -10 ; i < Math.Round(MaxKZ/KzSeviyeMod)+3 ; i++)
{
    SeviyeCizgiCounter+=1;
    Sistem.Cizgiler[SeviyeCizgiCounter].ActiveBool = true;
    Sistem.Cizgiler[SeviyeCizgiCounter].Deger = Sistem.Liste(i*KzSeviyeMod);
    Sistem.Cizgiler[SeviyeCizgiCounter].Panel = 2;
    Sistem.Cizgiler[SeviyeCizgiCounter].Renk = Color.IndianRed;
    Sistem.Cizgiler[SeviyeCizgiCounter].Stil = 2;
}
}


//Yön Kalýbý
for (int i = 1 ; i < Yonler.Count; i++)
{

//Sistemde Yön var ise GercekSonYon'e ata.
if( Yonler[i] != "") GercekSonYon=Yonler[i];
   
   //Akþam Flat: Maske aktif ise ve bir KZ dilimini aþaðý kesti ise
   if ( MaskeVar && MaskeList[i]==0 ) 
   {  
     //Zaten Flat'da ise Ýþlem Yok.
     if(SonYon != "F")
     {
      SonYon = "F";
      Sistem.Yon[i] = "F";
     }
   }
   //Gerçek Sinyal: Gerçek sistemde Yön var ise ve SonYon ile GercekSonYon ayný deðil ise
   else if( SonYon != GercekSonYon  )
   {
      SonYon = GercekSonYon;
      Sistem.Yon[i] = GercekSonYon;
      if(Seviyeler[i]!=null) Sistem.Seviye[i] = Seviyeler[i];
   }

} 

[erhanacikgoz1]

Orhan hoca seni eskiden tanimiyoruz galiba kod bilgin saglam sakincasi yoksa tanisalim

[Orhan AKDOÐAN]

Orhan hoca seni eskiden tanimiyoruz galiba kod bilgin saglam sakincasi yoksa tanisalim

bayadýr buradayým erhan bey, tanýþmýþtýk

[stradivarius]

Düþen Kar Maskesi: KZ belirlenen dilimi aþaðý keserse Flat, yukarý keserse sisteminizin sinyali.
Detaylý kontrol edilmedi. Test etmelisiniz.

//Ayarlar
bool MaskeVar = true;      // false ise sizin sistem, true ise Düþen Kar Maskesi Aktif.
var GrafikSistemAd= "A1";  // Sisteminizin adýný yazýn. GetiriHesapla içermelidir.
int KzSeviyeMod=5;         // KZ al-sat çizgisi adýmý.

//Veriler
var V = Sistem.GrafikVerileri;
var O = Sistem.GrafikFiyatSec("Açýlýþ");

//Sistem Getir
var GrafikSistem = Sistem.SistemGetir(GrafikSistemAd, Sistem.Sembol, Sistem.Periyot);
var Yonler = GrafikSistem.Yon;
var Seviyeler = GrafikSistem.Seviye;
var GetiriList = GrafikSistem.GetiriKZ; 

//Deðiþkenler
string SonYon="F";
string GercekSonYon="";
bool AksamFlatIslemde=false;
float MaxKZ=0;

//Maske Listesi
var MaskeList = Sistem.Liste(0);
var Maske = 1;
for (int i = 1; i < V.Count; i++)
{
    var SonGetiri=GetiriList[i];
    var OncekiGetiri=GetiriList[i-1];
    MaxKZ = Math.Max(MaxKZ,SonGetiri);

    for (int j = 0; j < Math.Round(GetiriList[i] /KzSeviyeMod)+3; j++)
    {
        var jSeviye=j*KzSeviyeMod; 
  
        if (OncekiGetiri > jSeviye && SonGetiri <= jSeviye   )
        {
            Maske = 0;
            break;
        }
        if (OncekiGetiri < jSeviye  && SonGetiri >= jSeviye )
        {
            Maske = 1;
            break;
        }
    }
    MaskeList[i] = Maske;
}

//Çizgiler
Sistem.Cizgiler[0].Deger = GetiriList;

var RenkListesi = new List<Color>();
for (int i = 0; i < Sistem.BarSayisi; i++)   RenkListesi.Add(Color.Gray);
for (int i = 1; i < V.Count; i++)
{
    if (MaskeList[i] == 0) RenkListesi[i] = Color.Gray;
    else if (MaskeList[i] == 1) RenkListesi[i] = Color.Cyan;
}
Sistem.Cizgiler[0].RenkListesi = RenkListesi;

//KZ Seviye Çizgileri(Sadece görsellik için, algoyu etkilemez, son Kz ye yakýn 10 çizgi.)
if(MaskeVar )
{
var SeviyeCizgiCounter=10;
for (var i =Math.Round(MaxKZ/KzSeviyeMod)+3 -10 ; i < Math.Round(MaxKZ/KzSeviyeMod)+3 ; i++)
{
    SeviyeCizgiCounter+=1;
    Sistem.Cizgiler[SeviyeCizgiCounter].ActiveBool = true;
    Sistem.Cizgiler[SeviyeCizgiCounter].Deger = Sistem.Liste(i*KzSeviyeMod);
    Sistem.Cizgiler[SeviyeCizgiCounter].Panel = 2;
    Sistem.Cizgiler[SeviyeCizgiCounter].Renk = Color.IndianRed;
    Sistem.Cizgiler[SeviyeCizgiCounter].Stil = 2;
}
}


//Yön Kalýbý
for (int i = 1 ; i < Yonler.Count; i++)
{

//Sistemde Yön var ise GercekSonYon'e ata.
if( Yonler[i] != "") GercekSonYon=Yonler[i];
   
   //Akþam Flat: Maske aktif ise ve bir KZ dilimini aþaðý kesti ise
   if ( MaskeVar && MaskeList[i]==0 ) 
   {  
     //Zaten Flat'da ise Ýþlem Yok.
     if(SonYon != "F")
     {
      SonYon = "F";
      Sistem.Yon[i] = "F";
     }
   }
   //Gerçek Sinyal: Gerçek sistemde Yön var ise ve SonYon ile GercekSonYon ayný deðil ise
   else if( SonYon != GercekSonYon  )
   {
      SonYon = GercekSonYon;
      Sistem.Yon[i] = GercekSonYon;
      if(Seviyeler[i]!=null) Sistem.Seviye[i] = Seviyeler[i];
   }

} 

hocam tesekkurler kodlama acaisindan ogretici. denedim max dd yi ciddi dusurdu.
vpslerde genlde hizli islem yapilmasi icin 10 bin veya daha az bar tutulmasindan dolayi getiri egrisinin degiskenligi, bu tip bir stratejinin sikintilariydi diye hatirliyorum. kodda buna yonelik bir duzenleme yok sanirim.
erhan hocam bi kac kez buna dair seylerden yakinmisti, gerci o zaman toma ile filtreliyordu diye aklimda kalmisti.

[Orhan AKDOÐAN]

hocam tesekkurler kodlama acaisindan ogretici. denedim max dd yi ciddi dusurdu.
vpslerde genlde hizli islem yapilmasi icin 10 bin veya daha az bar tutulmasindan dolayi getiri egrisinin degiskenligi, bu tip bir stratejinin sikintilariydi diye hatirliyorum. kodda buna yonelik bir duzenleme yok sanirim.
erhan hocam bi kac kez buna dair seylerden yakinmisti, gerci o zaman toma ile filtreliyordu diye aklimda kalmisti.

kz deðiþimi bar atlamasý nedeniyle oluyorsa dediðiniz gibi bu bir sorun olacaktýr.
getiri hesapla tarihinin bar sayýsý sýnýrýný ihlal etmeyecek þekilde içeride kalmasý gerekir.buna uyularak her haftasonu modX i etkilmeyecek bir tarihe çekilebilir. bunu kodla da yapmak mümkün.
toma alternatif olarak daha da iyi bir yöntem olabilir.
örnek geliþtirmeye açýk.

[erhanacikgoz1]

Kz egrisindeki cizgiyi wps ile esitlemeniz lazim vwriler kaydiginda egri degeri degisecegi icin cizgide degisir

[Orhan AKDOÐAN]

Kz egrisindeki cizgiyi wps ile esitlemeniz lazim vwriler kaydiginda egri degeri degisecegi icin cizgide degisir

bunu da ekleyeyim þimdi karýþýklýk olmasýn.