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

[Maximusix]

var Factor = 3f;

var Pd = 10;

var ATR = Sistem.AverageTrueRange(Pd);

var C = Sistem.GrafikFiyatSec("OrtaNokta");

var K = Sistem.MA(C, "Exp", Pd);
var STR = Sistem.Liste(0);

var STS = Sistem.Liste(0);

var FUB = Sistem.Liste(0);

var FLB = Sistem.Liste(0);

var PMax = Sistem.Liste(0);


for (int i=1; i < Sistem.BarSayisi; i++)

{

   STR[i] = K[i] + (Factor*ATR[i]);

   STS[i] = K[i] - (Factor*ATR[i]);

   FUB[i] = (STR[i] < FUB[i-1] || K[i-1] > FUB[i-1]) ? STR[i] : FUB[i-1];

   FLB[i] = (STS[i] > FLB[i-1] || K[i-1] < FLB[i-1]) ? STS[i] : FLB[i-1];

   PMax[i] = (PMax[i-1] == FUB[i-1] && K[i] < FUB[i]) ? FUB[i] : (PMax[i-1] == FUB[i-1] && K[i] > FUB[i]) ? FLB[i] : (PMax[i-1] == FLB[i-1] && K[i] > FLB[i]) ? FLB[i] : (PMax[i-1] == FLB[i-1] && C[i] < FLB[i] ? FUB[i] : FUB[i]);

}

Sistem.Cizgiler[0].Deger = PMax;
Sistem.Cizgiler[1].Deger = K;
Sistem.KesismeTara(K,PMax);

KIVANÇ BEYÝN YAZDIGI PMAX

[mesuteryilmaz]

Selamlar. Aþaðýdaki linkin iþinize yarayacaðýný düþünüyorum:
https://twitter.com/caglarmenguc/sta...991489538?s=20

Çok teþekkürler


Sent from my iPad using Tapatalk

[atakanözbaki]

Sistemin canlý barda iþlem yapmasý için; Ýndikatörlü sistem yazýnca formülün al -sat þartýný listeye atayacagýz, listeyide sistem.seviyeye atayacagýz þeklinde biliyorum. Bu konuda forumda fazla örnek yok. Bir kaç tane canlý barda iþlem yapan sistem örnegi atarmýsýnýz. Üste sayýn sonli yazmýþ. Karal, stoba göre onunda inceleyecegim.

[atakanözbaki]

Yazdýðýnýz yer emir tetikleyen deðil, izleyen stop seviyesini belirleyen yer gibi duruyor...
Uyarý: Backtest te bu durumu test edemezsiniz, seans esnasýnda sanalda test edebilirsiniz. Grafiðe sistemi attýðýnýzda geçmiþteki görüntü hatalý olur; çünkü sonfiyat sebebiyle geçmiþte iþlem olmuþ yerleri olmamýþ yada iþlem olmamýþ yerleri olmuþ gibi görürsünüz. Bugünkü "son fiyat" geçmiþ için de hep son fiyattýr.. C[i] ise i numaralý barýn kapanýþ fiyatýdýr, yani her bar için ayrý bir deðerdir. Ayrýca kâr al, stop vs kullanýyorsanýz ve bu durum tetiklendiðinde al þartýnýz hala geçerliyse, sattýðý gibi tekrar alacaktýr!!! Bu durumu iyi kodlamanýz gerekir.. Örneðin ema50 yukarý kesince al yapan ve %5 de kâr alan bir sistem olsun. Ýyi kodlanmazsa; %5 kâr aldýðý noktada yine ema50 üzerinde olacaðýndan sattýðý gibi geri alacaktýr..
Kodu alta sadece örnek olsun diye koyuyorum; test etmediðimden doðru çalýþacaðýný garanti edemem ve gerçek iþlemde kullanmayýnýz!!

var V = Sistem.GrafikVerileri;

var C = Sistem.GrafikFiyatOku(V, "Kapanis");
var sonfiyat = Sistem.SonFiyat(Sistem.Sembol);

var STOSK = Sistem.MA(Sistem.StochasticFast(220, 1), "Variable", 170);

var STOSD = Sistem.MA(STOSK, "Variable", 30);

var STOSK2 = Sistem.MA(Sistem.StochasticFast(300, 1), "Variable", 90);

var STOSD2 = Sistem.MA(STOSK2, "Variable", 100);

var STOSK3 = Sistem.MA(Sistem.StochasticFast(210, 1), "Variable", 140);

var STOSD3 = Sistem.MA(STOSK3, "Variable", 110);

var STOSK4 = Sistem.MA(Sistem.StochasticFast(80, 1), "Variable", 40);

var STOSD4 = Sistem.MA(STOSK4, "Variable", 50);

var TILL = Sistem.TillsonT3(C, 35, 1.2);

var TILL2 = Sistem.TillsonT3(C, 135, 0.7);

var TILL3 = Sistem.TillsonT3(C, 60, 1.5);

var TILL4 = Sistem.TillsonT3(C, 100, 0.2);



var MOST = Sistem.TOMA(3, 2, "Variable");

var RSI = Sistem.RSI(C,10);

var SartAL = false;

var SartSAT = false;



var SonYon = "";

var IZLEYENSTOP = Sistem.Liste(0);

var KARAL = Sistem.Liste(0);

var Fiyat = 0.0f;



for(int i=1; i < Sistem.BarSayisi;i++)

{

IZLEYENSTOP[i] = Sistem.IzleyenStopYuzde(3,i);

if (IZLEYENSTOP[i] == 0) IZLEYENSTOP[i] = C[i];



KARAL[i] = Sistem.KarAlYuzde(22.8,i);

if (KARAL[i] == 0) KARAL[i] = C[i];



SartAL = C[i] > MOST[i] ? TILL[i] > TILL[i-1] && RSI[i] < 40 && STOSK[i] > STOSD[i] : TILL2[i] > TILL2[i-1] && RSI[i] < 30 && STOSK2[i] > STOSD2[i];

SartSAT = C[i] > MOST[i] ? TILL3[i] < TILL3[i-1] && STOSK3[i] < STOSD3[i] : TILL4[i] < TILL4[i-1] && STOSK4[i] < STOSD4[i];

if(SartAL && SonYon != "A")

{

SonYon = "A";

Sistem.Yon[i] = "A";

Fiyat = C[i];

}

else if(SartSAT && SonYon != "F")

{

SonYon = "F";

Sistem.Yon[i] = "F";

}

else if ( SonYon == "A" && ( (sonfiyat < IZLEYENSTOP[i] || sonfiyat >= KARAL[i]) || (C[i] < IZLEYENSTOP[i] || C[i] >= KARAL[i]) )  ) // alýþtan flate

{

SonYon = "F";

Sistem.Yon[i] = "F";

}

else if( SonYon == "A" && ( sonfiyat < Fiyat*0.99F || C[i] < Fiyat*0.99F) )
{

SonYon = "F";

Sistem.Yon[i] = "F";


}

} 

SONLÝ Son fiyatý kullanarak canlý bar örneðini vermiþ. Bendede Sistem seviye kullanarak bir tane Karal- stoplu canlý bar örneði var. Burada Sistem.Seviyeye indikatör sinyali yazýlmýþ. Eðer doðruysa üsteki sorumun cevabýný bulmuþ oldum.

LÜTFEN BÝLEN , KULLANAN BÝR ARKADAÞ TEYÝDÝNÝ YAPSIN. EKLENECEK BÝR ÞEY VARSA EKLESÝN.

// MARJLARI GÝR
float KarAl = 2.000f; // kar al puan
float Stop = 0.700f; ; // stop puan

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatOku(V, "Kapanis");
var STO = Sistem.StochasticOsc(10,5);
var AVR = Sistem.MA(STO, "Exp", 5);

var SonYon = "";
float Fiyat = 0;
for (int i = 2; i < Sistem.BarSayisi; i++)
{
if (STO[i-1] < AVR[i-1] && STO[i] >= AVR[i] && SonYon !="A")
{
SonYon = "A";
Sistem.Yon[i] = "A";
Fiyat = C[i];
}
else if (STO[i-1] > AVR[i-1] && STO[i] <= AVR[i] && SonYon !="S")
{
SonYon = "S";
Sistem.Yon[i] = "S";
Fiyat = C[i];
}
else if (SonYon == "A" && C[i] >= Fiyat + KarAl) //Long kar realizasyonu
{
Sistem.Yon[i] = "F"; // flat
SonYon = Sistem.Yon[i];
Sistem.Seviye[i] = Fiyat + KarAl;
}
else if (SonYon == "A" && C[i] <= Fiyat - Stop) //Long stop
{
Sistem.Yon[i] = "F"; // flat
SonYon = Sistem.Yon[i];
Sistem.Seviye[i] = C[i] - Stop;
}
else if (SonYon == "S" && C[i] <= Fiyat - KarAl) // Short Kar realizasyonu
{
Sistem.Yon[i] = "F"; // flat
SonYon = Sistem.Yon[i];
Sistem.Seviye[i] = Fiyat - KarAl;
}
else if (SonYon == "S" && C[i] >= Fiyat + Stop) //Short Stop
{
Sistem.Yon[i] = "F"; // flat
SonYon = Sistem.Yon[i];
Sistem.Seviye[i] = C[i] - Stop;
}
}

Sistem.Cizgiler[0].Deger = STO;
Sistem.Cizgiler[1].Deger = AVR;

[alekss]

// verileri oku
var Sembol = Sistem.Sembol;
var Periyot = Sistem.Periyot;

var T = Sistem.GrafikVerileriniOku(Sembol,Periyot);
var C = Sistem.GrafikFiyatOku(T, "Kapanis");
var V = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
// boþ veri listeleri yarat
var H1 = Sistem.Liste(0);
var H2 = Sistem.Liste(0);
var H3 = Sistem.Liste(0);

var P = Sistem.Liste(0);

var L1 = Sistem.Liste(0);
var L2 = Sistem.Liste(0);
var L3 = Sistem.Liste(0);



// döngü ile haftalýk pivot, prohigh, prolow hesapla
for (int i = 1; i < V.Count; i++)
{
// pivot önceki barýn (H+L+C)/3 deðeri
P[i] = ( V[i-1].High + V[i-1].Low + V[i-1].Close) / 3;
H1[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/12 ;
H2[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/6 ;
H3[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/4 ;

L1[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/12 ;
L2[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/6 ;
L3[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/4 ;


}
Sistem.Cizgiler[0].Deger = Sistem.DonemCevir(T, V, P);
Sistem.Cizgiler[1].Deger = Sistem.DonemCevir(T, V, L1);
Sistem.Cizgiler[2].Deger = Sistem.DonemCevir(T, V, L2);
Sistem.Cizgiler[3].Deger = Sistem.DonemCevir(T, V, L3);
Sistem.Cizgiler[4].Deger = Sistem.DonemCevir(T, V, H1);
Sistem.Cizgiler[5].Deger = Sistem.DonemCevir(T, V, H2);
Sistem.Cizgiler[6].Deger = Sistem.DonemCevir(T, V, H3);

BU FORMÜLDE nerede hata var bir türlü çizgileri çizdiremedim grafikte , üetelik hata da vermiyor

[atakanözbaki]

// verileri oku
var Sembol = Sistem.Sembol;
var Periyot = Sistem.Periyot;

var T = Sistem.GrafikVerileriniOku(Sembol,Periyot);
var C = Sistem.GrafikFiyatOku(T, "Kapanis");
var V = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
// boþ veri listeleri yarat
var H1 = Sistem.Liste(0);
var H2 = Sistem.Liste(0);
var H3 = Sistem.Liste(0);

var P = Sistem.Liste(0);

var L1 = Sistem.Liste(0);
var L2 = Sistem.Liste(0);
var L3 = Sistem.Liste(0);



// döngü ile haftalýk pivot, prohigh, prolow hesapla
for (int i = 1; i < V.Count; i++)
{
// pivot önceki barýn (H+L+C)/3 deðeri
P[i] = ( V[i-1].High + V[i-1].Low + V[i-1].Close) / 3;
H1[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/12 ;
H2[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/6 ;
H3[i] = V[i-1].Close + ( V[i-1].High - V[i-1].Low )*1.1/4 ;

L1[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/12 ;
L2[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/6 ;
L3[i] = V[i-1].Close - ( V[i-1].High - V[i-1].Low )*1.1/4 ;


}
Sistem.Cizgiler[0].Deger = Sistem.DonemCevir(T, V, P);
Sistem.Cizgiler[1].Deger = Sistem.DonemCevir(T, V, L1);
Sistem.Cizgiler[2].Deger = Sistem.DonemCevir(T, V, L2);
Sistem.Cizgiler[3].Deger = Sistem.DonemCevir(T, V, L3);
Sistem.Cizgiler[4].Deger = Sistem.DonemCevir(T, V, H1);
Sistem.Cizgiler[5].Deger = Sistem.DonemCevir(T, V, H2);
Sistem.Cizgiler[6].Deger = Sistem.DonemCevir(T, V, H3);

BU FORMÜLDE nerede hata var bir türlü çizgileri çizdiremedim grafikte , üetelik hata da vermiyor

Sayýn alex formülü biraz kurcaladým fakat bende çizgileri çizdiremedim. Bende 2 farklý pivot formülü var istersen paylaþayým.

[anonimm]

Bazý sistemlerde bar sayýsýnýn fazla olduðu grafiklerinden elde ettiðimiz bir deðeri (örneðin getiri eðrisi) deðiþtirmeden bar sayýsýnýn az olduðu grafiklerde kullanmak isteyebiliriz. Bu durumda iliþkin kod :

//çok datada ki bir deðeri (örneðin getiri eðirisi) az datada devam ettirme kodu  



var V = Sistem.GrafikVerileri; 


var GrafikSistemAd= "sys";  
var GrafikSistem = Sistem.SistemGetir(GrafikSistemAd, Sistem.Sembol, Sistem.Periyot);   
var GetiriList = GrafikSistem.GetiriKZ; 

var YeniGetiriList = Sistem.Liste(V.Count, 0); 


var RefGetiriDate = new DateTime(2020, 9 , 18, 19, 56, 0);   // yýl, ay, gün, saat, dakika, saniye // kendi grafiðinizden deðer gireceksiniz
// çok data grafiðinden bakarak elde ettiðimiz referans barýn bilgisi 
// (az data grafiðinde getiri eðirisinin hesaplanmaya baþladýðý yerlere yakýn olmasý tercih edilir)


var RefGetiri=  4280.600f   ;  // kendi grafiðinizden deðer gireceksiniz
// çok data grafiðinden bakarak elde ettiðimiz referans barýn getiri deðeri 


var farkgetiri = 0f ;  //float

for (int i = 0; i < GetiriList.Count; i++) 
{

if (  V[i].Date  == RefGetiriDate ) farkgetiri = RefGetiri - GetiriList[i] ;  
// referans bardaki çok data ve az data getiri farký 

YeniGetiriList [i] = 
V[i].Date  >= RefGetiriDate ? GetiriList[i] + farkgetiri : 0 ;


} 



  Sistem.Cizgiler[0].Deger = GetiriList ; // panel 2
  Sistem.Cizgiler[1].Deger = YeniGetiriList; // panel 3

[Maximusix]

Bazý sistemlerde bar sayýsýnýn fazla olduðu grafiklerinden elde ettiðimiz bir deðeri (örneðin getiri eðrisi) deðiþtirmeden bar sayýsýnýn az olduðu grafiklerde kullanmak isteyebiliriz. Bu durumda iliþkin kod :

//çok datada ki bir deðeri (örneðin getiri eðirisi) az datada devam ettirme kodu  



var V = Sistem.GrafikVerileri; 


var GrafikSistemAd= "sys";  
var GrafikSistem = Sistem.SistemGetir(GrafikSistemAd, Sistem.Sembol, Sistem.Periyot);   
var GetiriList = GrafikSistem.GetiriKZ; 

var YeniGetiriList = Sistem.Liste(V.Count, 0); 


var RefGetiriDate = new DateTime(2020, 9 , 18, 19, 56, 0);   // yýl, ay, gün, saat, dakika, saniye // kendi grafiðinizden deðer gireceksiniz
// çok data grafiðinden bakarak elde ettiðimiz referans barýn bilgisi 
// (az data grafiðinde getiri eðirisinin hesaplanmaya baþladýðý yerlere yakýn olmasý tercih edilir)


var RefGetiri=  4280.600f   ;  // kendi grafiðinizden deðer gireceksiniz
// çok data grafiðinden bakarak elde ettiðimiz referans barýn getiri deðeri 


var farkgetiri = 0f ;  //float

for (int i = 0; i < GetiriList.Count; i++) 
{

if (  V[i].Date  == RefGetiriDate ) farkgetiri = RefGetiri - GetiriList[i] ;  
// referans bardaki çok data ve az data getiri farký 

YeniGetiriList [i] = 
V[i].Date  >= RefGetiriDate ? GetiriList[i] + farkgetiri : 0 ;


} 



  Sistem.Cizgiler[0].Deger = GetiriList ; // panel 2
  Sistem.Cizgiler[1].Deger = YeniGetiriList; // panel 3

Eski forumma bakýyorum da çok güzel þeyler paylasmissiniz paylasimlarinizin devamý dileðiyle