YGT:=0.6/100;
KYN:=Mov( (H+L+C)/3,3,E);
AD:=If((KYN*(1-YGT))>PREV,KYN*(1-YGT),If((KYN*(1+YGT))<PREV,KYN*(1+YGT),PREV));
BU:=0.05/100;
SU:=Mov( (H+L+C)/3,3,E) ;
DD:=If((SU*(1-BU))>PREV,SU*(1-BU),If((SU*(1+BU))<PREV,SU*(1+BU),PREV));
Int(AD/0.025+0.50)*0.025;Int(DD/0.025+0.50)*0.025
İDEAL FORMÜLDEKİ HATA NEREDE....
//HATALI ...
var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var L = Sistem.GrafikFiyatSec("Dusuk");
var H = Sistem.GrafikFiyatSec("Yuksek");
var O = Sistem.GrafikFiyatSec("Acilis");
double ygt = 0.6/100; // orjinal = 0.8
double bu = 0.05/100; // orjinal = 0.2
var hlc = Sistem.Liste(0);
var ad = Sistem.Liste(0);
var dd = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
{
hlc[i] = (H[i] + L[i] + C[i]) / 3;
}
var kyn = Sistem.MA(hlc, "Exp", 3);
var su = Sistem.MA(hlc, "Exp", 3);
for (int i = 2; i < Sistem.BarSayisi; i++)
{
if (kyn[i] * (1-ygt) > ad[i-1] ) ad[i] = (float)Math.Round(kyn[i] * (1 - ygt), 2);
else if ( kyn[i] * (1+ygt) < ad[i-1] ) ad[i] = (float)Math.Round(kyn[i] * (1 - ygt), 2);
else ad[i] = ad[i-1];
if ( su[i] * (1-bu) > dd[i-1] ) dd[i] = (float)Math.Round(su[i] * (1 - bu), 2);
else if ( su[i] * (1 + bu) < dd[i-1] ) dd[i] = (float)Math.Round(su[i] * (1 + bu), 2);
else dd[i] = dd[i-1] ;
}
Sistem.Cizgiler[0].Deger = ad;
Sistem.Cizgiler[1].Deger = dd;
İDEAL KOD YAZMADA YENİYİM....SORULARIMDAKİ AMACIM ....İDEALİN MANTIĞINI ANLAYABİLMEK ....YOL GÖSTERMENİZ YETERLİDİR TŞK...
Bu hafta hacim; 29.01.2024 09:23 itibariyle; sıfır.
Bir hafta hacim sıfır olmamalı.
PHP Code:
#region QUERY VOLUME
if (Sistem.BaglantiVar == true)
{
var SonFiyat = Sistem.SonFiyat(Sistem.Sembol);
if (SonFiyat > 0)
{
try
{
var GünlükVeriler = Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
var HacimBirHafta = Sistem.HacimBirHafta(Sistem.Sembol);
var HacimBuHafta = Sistem.HacimBuHafta(Sistem.Sembol);
var HacimBirAy = Sistem.HacimBirAy(Sistem.Sembol);
var HacimBuAy = Sistem.HacimBuAy(Sistem.Sembol);
var HacimÜçAy = Sistem.HacimUcAy(Sistem.Sembol);
var HacimAltıAy = Sistem.HacimAltiAy(Sistem.Sembol);
var HacimBirYıl = Sistem.HacimBirYil(Sistem.Sembol);
var HacimBuYıl = Sistem.HacimBuYil(Sistem.Sembol);
...
Arkadaşlar kolay gelsin aşağıda TOMA ile ilgili iDeal_SistemGenel.pdf içerisinde de örnek olarak bulunan basit al,sat stratejinin sorgusunu nasıl yapabilirim?Toma da bulan üssel HO ve izsüren stobun kesişme anlarını bulmak istiyorum.Ya da bir bar üst ve alt mı olur bilemiyorum tam kesişme anı. Bir de acaba bu stratejiye içeriği şifreli bir indikatörü de ekleme şansımız varmı (ARS) Teşekkür Ederim
var TomaPeriyot = 3; //EMA TOMA PERİYODU
var Yuzde = 2; //TOMA YÜZDESİ
var E = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(E,TomaPeriyot, Yuzde);
var EMA = Sistem.MA(E, "Exp",TomaPeriyot);
//var ARS = Sistem.ARS;
var SonYon = "";
for (int i= 1; i < Sistem.BarSayisi; i++)
{
if (EMA[i] > TOMA[i] && SonYon != "A")
{
SonYon = "A";
Sistem.Yon[i] = "A";
}
if (EMA[i] < TOMA[i] && SonYon != "F")
{
SonYon = "F";
Sistem.Yon[i] = "F";
}
}
Sistem.Cizgiler[0].Deger = EMA;
Sistem.Cizgiler[1].Deger = TOMA;
//ideal kod yazmada yeniyim yardımcı olurmusunuz ....tşk
//TIBERYUS HOCAMIN FORMÜLÜNDE ALIŞ VE BELİRLİYECEĞİMİZ SATIŞ(ÖRNEĞİN ;ALDIĞI FİYATTAN 10 KADEME SONRASINDA SAT) KOŞULLARINA GÖRE EMİR GÖNDERME KISMI NASIL YAZILMAKTADIR TŞK.
var milisaniye = 1000;
var Kademesayisi = 3;
var Tablo = new Dictionary<string, int>();
Tablo["IMKBH'ISFIN"] = 1;
Tablo["IMKBH'FONET"] = 1;
Tablo["IMKBH'ISCTR"] = 1;
Tablo["IMKBH'TSKB"] = 1;
Tablo["IMKBH'GSDHO"] = 1;
Tablo["IMKBH'KOZAL"] = 1;
Tablo["IMKBH'ULKER"] = 1;
Tablo["IMKBH'THYAO"] = 1;
foreach (var item in Tablo)
{
var Sembol = item.Key;
var Lot = item.Value;
var AnahtarFiyat = Sistem.Name + ";" + Sembol + "FIYAT";
var AnahtarSure = Sistem.Name + ";" + Sembol + "SURE";
var AlisFiyat = Sistem.SayiTablosunuOku(AnahtarFiyat);
var Sure = Sistem.SayiTablosunuOku(AnahtarSure);
var Yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var FiyatAdım = (decimal)Yuzeysel.PriceStep;
var YeniFiyat = (decimal)Yuzeysel.BidPriceDec;
if (Environment.TickCount > Sure + milisaniye)
{
if (AlisFiyat != 0 && YeniFiyat != 0)
{
if (YeniFiyat >= AlisFiyat + Kademesayisi * FiyatAdım)
{
//EMİR GÖNDER
}
}
}
AlisFiyat = (decimal)Yuzeysel.BidPriceDec;
Sure = Environment.TickCount;
Sistem.SayiTablosunuGuncelle(AnahtarFiyat, AlisFiyat);
Sistem.SayiTablosunuGuncelle(AnahtarSure, Sure);
Sistem.Mesaj(YeniFiyat.ToString() + " " + FiyatAdım.ToString() + " " + Sure.ToString());
}
İDEAL KOD YAZMADA YENİYİM....SORULARIMDAKİ AMACIM ....İDEALİN MANTIĞINI ANLAYABİLMEK ....YOL GÖSTERMENİZ YETERLİDİR TŞK...
|
|
//YAPMAYA ÇALIŞTIM HATAM VARMI KONTROL EDEBİLİRMİSİNİZ......TŞK
var milisaniye = 1000;
var Kademesayisi = 3;
var Tablo = new Dictionary<string, int>();
Tablo["IMKBH'ISFIN"] = 1;
Tablo["IMKBH'FONET"] = 1;
Tablo["IMKBH'ISCTR"] = 1;
Tablo["IMKBH'TSKB"] = 1;
Tablo["IMKBH'GSDHO"] = 1;
Tablo["IMKBH'KOZAL"] = 1;
Tablo["IMKBH'ULKER"] = 1;
Tablo["IMKBH'THYAO"] = 1;
foreach (var item in Tablo)
{
var Sembol = item.Key;
var Lot = item.Value;
var AnahtarFiyat = Sistem.Name + ";" + Sembol + "FIYAT";
var AnahtarSure = Sistem.Name + ";" + Sembol + "SURE";
var AlisFiyat = Sistem.SayiTablosunuOku(AnahtarFiyat);
var Sure = Sistem.SayiTablosunuOku(AnahtarSure);
var Yuzeysel = Sistem.YuzeyselVeriOku(Sembol);
var FiyatAdim = (decimal)Yuzeysel.PriceStep;
var YeniFiyat = (decimal)Yuzeysel.BidPriceDec;
if (Environment.TickCount > Sure + milisaniye)
{
var Pozisyon = Sistem.PozisyonKontrolOku(Sembol);
if (YeniFiyat >= AlisFiyat + Kademesayisi * FiyatAdim)
{
var Miktar = 1;
Sistem.PozisyonKontrolGuncelle(Sembol, Miktar);
Sistem.EmirSembol = Sembol;
Sistem.EmirIslem = "Alış";
Sistem.EmirMiktari = Miktar;
Sistem.EmirFiyati = "Aktif";
Sistem.EmirSuresi = "SEANS"; // SEANS, GUN
Sistem.EmirTipi = "NORMAL"; // NORMAL, KIE, KPY, AFE/KAFE
Sistem.EmirGonder();
}
if (Pozisyon > 0 )
{
var Miktar = Pozisyon;
Sistem.PozisyonKontrolGuncelle(Sembol, 0);
Sistem.EmirSembol = Sembol;
Sistem.EmirIslem = "Satış";
Sistem.EmirMiktari = Miktar;
Sistem.EmirFiyati = "Aktif";
Sistem.EmirSuresi = "SEANS"; // SEANS, GUN
Sistem.EmirTipi = "NORMAL"; // NORMAL, KIE, KPY, AFE/KAFE
Sistem.EmirSatisTipi = "NORMAL"; // imkb (NORMAL, ACIGA, VIRMANDAN)
Sistem.EmirGonder();
}
}
AlisFiyat = (decimal)Yuzeysel.BidPriceDec;
Sure = Environment.TickCount;
Sistem.SayiTablosunuGuncelle(AnahtarFiyat, AlisFiyat);
Sistem.SayiTablosunuGuncelle(AnahtarSure, Sure);
Sistem.Mesaj(YeniFiyat.ToString() + " " + FiyatAdim.ToString() + " " + Sure.ToString());
}
İDEAL KOD YAZMADA YENİYİM....SORULARIMDAKİ AMACIM ....İDEALİN MANTIĞINI ANLAYABİLMEK ....YOL GÖSTERMENİZ YETERLİDİR TŞK...
Yer İmleri