X1
PHP Code:
/*
Lib.cs Dosyasına ihtiyaç duyar.
http://orhan.ws/download/code/ideal/Lib.txt
(iDeal dizinine Lib.cs ismiyle atılıp S menüsünden Lib.cs derle tıklanmalıdır.)
*/
//Veriler
var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var H = Sistem.GrafikFiyatSec("YUksek");
var L = Sistem.GrafikFiyatSec("Dusuk");
var O = Sistem.GrafikFiyatSec("Açılış");
//İndikatörler
var ORU = Lib.OrhanRPrice(Sistem, 21, 10 );
var ORA = Lib.OrhanRPrice(Sistem, 21, -10 );
var HH = Sistem.HHV(4,H);
var LL = Sistem.LLV(4,L);
var MA = Sistem.MA(C, "Exp", 13);
//Değişkenler
var OrBolge = Sistem.Liste(0);
var OrYon = Sistem.Liste(0);
var OrAS= Sistem.Liste(0);
var OrSS= Sistem.Liste(0);
var AS= Sistem.Liste(0);
var SS= Sistem.Liste(0);
var SonYon="";
//Strateji
for (int i = 2; i<Sistem.BarSayisi; i++)
{
//Hesaplamalar
if( C[i] > ORU[i] ) OrBolge[i] = 3; else if( C[i] <= ORU[i] && C[i] >= ORA[i] ) OrBolge[i] = 2; else if( C[i] < ORA[i] ) OrBolge[i] = 1;
if( OrBolge[i-1] - OrBolge[i]>0) OrYon[i] =-1; else if( OrBolge[i-1] - OrBolge[i]<0) OrYon[i] =1; else OrYon[i] =OrYon[i-1];
OrAS[i] = (OrYon[i-1] ==1 ? O[i]: ((C[i-1] < ORA[i-1]) ? ORA[i-1]: (C[i-1] <= ORU[i-1] && C[i-1] >= ORA[i-1]) ? ORU[i-1] : O[i]));
OrSS[i] = (OrYon[i-1] ==-1 ? O[i] : ((C[i-1] > ORU[i-1]) ? ORU[i-1]: (C[i-1] <= ORU[i-1] && C[i-1] >= ORA[i-1]) ? ORA[i-1] : O[i]));
//Strateji
AS[i] = new float[] {
O[i]
, OrAS[i]
, HH[i-1]
, MA[i-1]
}.Max();
SS[i] = new float[] {
O[i]
, OrSS[i]
, LL[i-1]
, MA[i-1]
}.Min();
//Yön Kalıbı
AS[i] = (float)(Math.Floor( AS[i] / 0.025 ) * 0.025); //Alış Fiyatını Lehimize Aşağı Yuvarla.
SS[i] = (float)(Math.Ceiling( SS[i] / 0.025 ) * 0.025); //Satış Fiyatı Lehimize Aşağı Yuvarla.
if ( H[i] >= AS[i] && SonYon != "A" )
{
Sistem.Yon[i] = "A";
Sistem.Seviye[i]= AS[i];
SonYon = Sistem.Yon[i];
}
else if ( L[i] <= SS[i] && SonYon != "S" )
{
Sistem.Yon[i] = "S";
Sistem.Seviye[i]= SS[i];
SonYon = Sistem.Yon[i];
}
}
//Çizgiler
Sistem.Cizgiler[0].Deger = ORU; //Panel 1
Sistem.Cizgiler[1].Deger = ORA; //Panel 1
//Performans
dynamic Performans = Lib.Performans(
Sistem, "18.12.2016","31.12.2050"
, 0 /* X Kademe Kayma: 1 girilirse ilgili tarihdeki 1 kademe değeri puan kadar kayma olur. ondalık da girilebilir. */
, 0 /* Ortalama Kayma Puanı: X Kademe Kayma 0 olduğunda bu değer dikkate alınır.Örnek: 0.025 */
, 0 /* Komisyon Oranı: 1 girilirse 10 Binde 1 hesaplanır. */
, 0 /* İlk Bakiye */
, 1 /* Lot */
, true /* Açık İşlem Var mı? */
, null /* Sembol: Sistem üzerinden çekilemeyen seneryolar için.*/
, null /* Veriler: Sistem üzerinden çekilemeyen seneryolar için.*/
, null /* Yönler: Sistem üzerinden çekilemeyen seneryolar için.*/
, null /* Seviyeler: Sistem üzerinden çekilemeyen seneryolar için.*/
);
//Günlük Kar Zarar Grafiği
Performans.Cizgi1( 2, /*Çizgi1No=*/ 2, /*Çizgi2No=*/ 3, /*Çizgi3No=*/ 4);
//Getiri Tarihçesi Tablosu
Performans.Tarihce( 2, "P"); //P veya PP
//Performans Özeti
Performans.Ozet( 2, "P"); //P veya PP
//Aylar
Performans.Aylar( 2, "P"); //P veya PP
//İmza
Performans.imza(" X1");
//Performans Raporunu Göster
//Sistem.Mesaj(Performans.Sonuc());
//Kar Zarar Grafiği
//Sistem.Cizgiler[5].Deger = Performans.PuanList;
https://prnt.sc/lxh9oy
Originally Posted by Orhan AKDOĞAN
Alıntı yaparak yanıtla
Yer İmleri