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

**Tiberius** · 18-12-2018, 13:21

Originally Posted by Tiberius

Şu kod çalışabilir.
Test edin.

Kod:

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var AyBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    AyBaslangicList[i] = (V[i].Date.Day < V[i - 1].Date.Day) ? V[i].Open : AyBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > AyBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < AyBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = AyBaslangicList;

Kasım ayında servet yapmış.
Emlak hocanın bahsettiği trend-follower bu olsa gerek

**Tiberius** · 18-12-2018, 13:30

Originally Posted by Tiberius

Kasım ayında servet yapmış.
Emlak hocanın bahsettiği trend-follower bu olsa gerek

HAFTA AÇILIŞ

Kod:

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var HaftaBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    HaftaBaslangicList[i] = (V[i].Date.DayOfWeek < V[i - 1].Date.DayOfWeek) ? V[i].Open : HaftaBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > HaftaBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < HaftaBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = HaftaBaslangicList;

**sercanaksu** · 18-12-2018, 13:54

cevap için tesekkur ederim.

TOMA yerine kendi sistem ismini mi yazmamız gerekyor, kusura bakmayın ben hiç anlamıyorum yazılım dilinden

**Tiberius** · 18-12-2018, 14:02

Originally Posted by sercanaksu

cevap için tesekkur ederim.

TOMA yerine kendi sistem ismini mi yazmamız gerekyor, kusura bakmayın ben hiç anlamıyorum yazılım dilinden

Burayı ekleyin
var HaftaBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
HaftaBaslangicList[i] = (V[i].Date.DayOfWeek < V[i - 1].Date.DayOfWeek) ? V[i].Open : HaftaBaslangicList[i - 1];

Alış şartına
if (C[i] > HaftaBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")

Satış Şartına
if (C[i] < HaftaBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")

**vbhamza** · 26-12-2018, 14:35

Sn.Tiberius saatlik veya herhangi bir periyotta bar açılışı dikkate almak istesek bu kodlama da nasıl bir değişiklik yapmak gerekir. İlerleyen sayfalarda sorulmuşsa eğer kusura bakmayın geriden okuyarak geliyorum.

Originally Posted by Tiberius

HAFTA AÇILIŞ

Kod:

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var HaftaBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    HaftaBaslangicList[i] = (V[i].Date.DayOfWeek < V[i - 1].Date.DayOfWeek) ? V[i].Open : HaftaBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > HaftaBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < HaftaBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = HaftaBaslangicList;

**Tiberius** · 26-12-2018, 15:28

Originally Posted by vbhamza

Sn.Tiberius saatlik veya herhangi bir periyotta bar açılışı dikkate almak istesek bu kodlama da nasıl bir değişiklik yapmak gerekir. İlerleyen sayfalarda sorulmuşsa eğer kusura bakmayın geriden okuyarak geliyorum.

Saatlik
Şu iş görebilir, test etmek lazım

Kod:

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var SaatBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    SaatBaslangicList[i] = (V[i].Date.Hour != V[i - 1].Date.Hour) ? V[i].Open : SaatBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > SaatBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < SaatBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = SaatBaslangicList;

**Tiberius** · 26-12-2018, 15:32

Originally Posted by Tiberius

Saatlik
Şu iş görebilir, test etmek lazım

Kod:

var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var SaatBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    SaatBaslangicList[i] = (V[i].Date.Hour != V[i - 1].Date.Hour) ? V[i].Open : SaatBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > SaatBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < SaatBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = SaatBaslangicList;

Gün Açılış (test edin)

Kod:


var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var GunBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    GunBaslangicList[i] = (V[i].Date.Day != V[i - 1].Date.Day) ? V[i].Open : GunBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > GunBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < GunBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = GunBaslangicList;

**vbhamza** · 26-12-2018, 16:04

Teşekkür ederim. Test edicem. Kolay gelsin.

Originally Posted by Tiberius

Gün Açılış (test edin)

Kod:


var V = Sistem.GrafikVerileri;
var C = Sistem.GrafikFiyatSec("Kapanis");
var TOMA = Sistem.TOMA(30, 0.5);
var EMA = Sistem.MA(C, "Exp", 30);

var GunBaslangicList = Sistem.Liste(0);
for (int i = 1; i < Sistem.BarSayisi; i++)
    GunBaslangicList[i] = (V[i].Date.Day != V[i - 1].Date.Day) ? V[i].Open : GunBaslangicList[i - 1];


var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
    if (C[i] > GunBaslangicList[i] && EMA[i] > TOMA[i] && SonYon != "A")
    {
        SonYon = "A";
        Sistem.Yon[i] = "A";
    }
    if (C[i] < GunBaslangicList[i] && EMA[i] < TOMA[i] && SonYon != "S")
    {
        SonYon = "S";
        Sistem.Yon[i] = "S";
    }
}

Sistem.Cizgiler[0].Deger = TOMA;
Sistem.Cizgiler[1].Deger = EMA;
Sistem.Cizgiler[2].Deger = GunBaslangicList;

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
NETCAD YAZILIM NETCD	50,60	10%	1,96 Mn	50,60 / 50,60
BURCELIK VANA BURVA	842,00	9.99%	85,82 Mn	750,50 / 842,00
Z GMYO ZGYO	22,94	9.97%	656,06 Mn	19,19 / 22,94
SANEL MUHENDISLIK SANEL	41,68	9.97%	29,23 Mn	38,10 / 41,68
GUNDOGDU GIDA GUNDG	259,75	9.97%	53,55 Mn	248,10 / 259,75

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
TREND GMYO TDGYO	25,70	-9.95%	12,16 Mn	25,70 / 25,70
IHLAS HABER AJANSI IHAAS	51,65	-9.94%	110,56 Mn	51,65 / 58,05
ZERAY GMYO ZERGY	18,05	-9.84%	1,43 Mr	18,02 / 21,32
CAN2 TERMIK - RHKP CANTER	0,36	-7.69%	130,35 Mn	0,35 / 0,40
USAK SERAMIK - RHKP USAKR	0,81	-6.9%	31,15 Mn	0,80 / 0,87

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
TURK HAVA YOLLARI THYAO	318,00	-0.78%	12,26 Mr	316,75 / 322,00
SISE CAM SISE	47,96	3.5%	8,76 Mr	45,88 / 49,50
AKBANK AKBNK	84,75	-1.05%	7,11 Mr	84,30 / 85,90
ASELSAN ASELS	295,00	-2.48%	6,67 Mr	294,75 / 303,00
IS BANKASI (C) ISCTR	16,79	-1.35%	6,60 Mr	16,77 / 17,20

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
ANADOLU EFES AEFES	20,32	0.69%	1,65 Mr	19,76 / 20,58
AKBANK AKBNK	84,75	-1.05%	7,11 Mr	84,30 / 85,90
ASELSAN ASELS	295,00	-2.48%	6,67 Mr	294,75 / 303,00
ASTOR ENERJI ASTOR	155,50	-2.99%	2,86 Mr	155,50 / 160,20
BIM MAGAZALAR BIMAS	682,00	-0.94%	4,15 Mr	682,00 / 698,00

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
ANADOLU EFES AEFES	20,32	0.69%	1,65 Mr	19,76 / 20,58
AKBANK AKBNK	84,75	-1.05%	7,11 Mr	84,30 / 85,90
ALARKO HOLDING ALARK	112,60	2.18%	1,63 Mr	109,40 / 114,30
ARCELIK ARCLK	122,90	1.99%	934,24 Mn	119,30 / 124,10
ASELSAN ASELS	295,00	-2.48%	6,67 Mr	294,75 / 303,00

Konu: İDEAL veri terminalinde /Sistem/İndikatör/Robot

Seçenekler

Başlıklarda Ara

Görünüm

Hybrid View

Yer İmleri

Yer İmleri

Gönderi Kuralları