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

[SSilentmaNN]

İyi geceler arkadaşlar,
sebebini anlamadığım bir sorun var.
ideal menüsü altındaki Endekslerim bölümü ile kendime istediğim hisselerden bir endeks oluşturuyorum.(deneme adı ile)
Aşağıda ki kodunu verdiğim indikatör, deneme grafiğinde görünmüyor, kod diğer hisselerde çalışıyor.
Sorun nedir acaba.
Nasıl çözebilirim.

var Sembol1 = Sistem.Sembol;
var V1 = Sistem.GrafikVerileri ;

var Sembol2 = "IMKBX'XU030";
var Veriler2 = Sistem.GrafikVerileriniOku(Sembol2, Sistem.Periyot);

var Cizgi = Sistem.GrafikVerileriniBol(V1,Veriler2);

var CizgiMA1 = Sistem.MA(Cizgi,"Exp",10); 
var CizgiMA2 = Sistem.MA(Cizgi,"Exp",50); 

Sistem.Cizgiler[0].Deger = Cizgi; // Panel 2--Ondalik 6 veya üstü
Sistem.Cizgiler[1].Deger = CizgiMA1; // Panel 2
Sistem.Cizgiler[2].Deger = CizgiMA2;

var Renk11 = Sistem.Renk(255,255, 0, 1);  
Sistem.ZeminYazisiEkle(Sembol1 + " / " + Sembol2, 2, 30, 50, Renk11, "Tahoma", 10); 

[ozmen]

merhaba arkadaşlar matrikste kullandığım şöyle bir formül var, rica etsem yazılımı kuvvetli biri varsa bu kodu ideale çevirebilir miyiz.
KPD:=Input("Kısa Period",1,500,6);
UPD:=Input("Uzun Period",1,500,13);
SPD:=Input("Sinyal Period",1,500,5);
KVWMA:=mov(c*v,KPD,e)/mov(v,KPD,e);
UVWMA:=mov(c*v,UPD,e)/mov(v,UPD,e);
VWMACD:=KVWMA-UVWMA;
Trigger:=mov(VWMACD,SPD,E);
Histogram:=VWMACD-Trigger;
VWMACD;
Trigger;
Histogram;0

Biraz uzun olabilir. Signal yani Trigger ı Exp ile çizdiremediğim için Simple ile çalıştı. Değerler Farklı çıkacaktır.

/*
//@version=3
//created by Buff DORMEIER
//author: KIVANC @fr3762 on twitter
study("VOLUME WEIGHTED MACD V2", shorttitle="VWMACDV2")
fastperiod = input(12,title="fastperiod",type=integer,minval=1,maxval=500)
slowperiod = input(26,title="slowperiod",type=integer,minval=1,maxval=500)
signalperiod = input(9,title="signalperiod",type=integer,minval=1,maxval=500)
fastMA = ema(volume*close, fastperiod)/ema(volume, fastperiod)
slowMA = ema(volume*close, slowperiod)/ema(volume, slowperiod)
vwmacd = fastMA - slowMA
signal = ema(vwmacd, signalperiod)
hist= vwmacd - signal
plot(vwmacd, color=blue, linewidth=2)
plot(signal, color=red, linewidth=2)
plot(hist, color=green, linewidth=4, style=histogram)
plot(0, color=black)
*/


var fastperiod = 12;
var slowperiod = 26;
var signalperiod = 9;

var Veriler = Sistem.GrafikVerileri;

var C=Sistem.Liste(0);
var V=Sistem.Liste(0);
var CV=Sistem.Liste(0);
var fastMA=Sistem.Liste(0);
var slowMA=Sistem.Liste(0);
var VWMACD=Sistem.Liste(0);
 
for (int i = 1; i < Veriler.Count; i++)
{  C[i] =Veriler[i].Close; 
   V[i] =Veriler[i].Vol;
   CV[i]=V[i] * C[i];
}

var KVWMA1= Sistem.MA(CV,"Exp",fastperiod ); 
var KVWMA2= Sistem.MA(V,"Exp",fastperiod );
var UVWMA1 = Sistem.MA(CV,"Exp",slowperiod ); 
var UVWMA2 = Sistem.MA(V,"Exp",slowperiod );

for (int i = 1; i < Veriler.Count; i++)
{  
   fastMA[i] = KVWMA1[i] / KVWMA2[i] ;
   slowMA[i] = UVWMA1[i] / UVWMA2[i] ;
   VWMACD[i] = fastMA[i]  - slowMA[i] ; 
}

var signal = Sistem.MA (VWMACD,"Simple",signalperiod);

var hist=Sistem.Liste(0);
for (int i = 1; i < Veriler.Count; i++)
{  
   hist[i] = VWMACD[i] - signal[i]  ; 
}

Sistem.Cizgiler[0].Deger = VWMACD;           Sistem.Cizgiler[0].Panel = 2;
Sistem.Cizgiler[1].Deger = signal;           Sistem.Cizgiler[1].Panel = 2;
Sistem.Cizgiler[2].Deger = hist;             Sistem.Cizgiler[2].Panel = 2;   Sistem.Cizgiler[2].Stil = 5;
Sistem.Cizgiler[3].Deger = Sistem.Liste(0);  Sistem.Cizgiler[3].Panel = 2;

[Sezai KILIÇ]

merhaba arkadaşlar matrikste kullandığım şöyle bir formül var, rica etsem yazılımı kuvvetli biri varsa bu kodu ideale çevirebilir miyiz.
KPD:=Input("Kısa Period",1,500,6);
UPD:=Input("Uzun Period",1,500,13);
SPD:=Input("Sinyal Period",1,500,5);
KVWMA:=mov(c*v,KPD,e)/mov(v,KPD,e);
UVWMA:=mov(c*v,UPD,e)/mov(v,UPD,e);
VWMACD:=KVWMA-UVWMA;
Trigger:=mov(VWMACD,SPD,E);
Histogram:=VWMACD-Trigger;
VWMACD;
Trigger;
Histogram;0

Buyrun

var KPD = 6;
var UPD = 13;
var SPD = 5;
var C = Sistem.GrafikFiyatSec("Kapanis");
var V = Sistem.GrafikFiyatSec("Lot");

var KVWMA = Sistem.Liste(0);
var UVWMA = Sistem.Liste(0);
var VWMACD = Sistem.Liste(0);
var Histogram = Sistem.Liste(0);

var x = Sistem.Liste(0);
for (int i=1; i < Sistem.BarSayisi; i++)
   x[i] = C[i] * V[i];


var Mov1 = Sistem.MA(x, "Exp", KPD);
var Mov2 = Sistem.MA(V, "Exp", KPD);
var Mov3 = Sistem.MA(x, "Exp", UPD);
var Mov4 = Sistem.MA(V, "Exp", UPD);

for (int i=1; i < Sistem.BarSayisi; i++)
{
   KVWMA[i] = Mov2[i] != 0 ? Mov1[i] / Mov2[i] : KVWMA[i-1];
   UVWMA[i] = Mov4[i] != 0 ? Mov3[i] / Mov4[i] : UVWMA[i-1];
   VWMACD[i] = KVWMA[i] - UVWMA[i];
}

var Trigger = Sistem.MA(VWMACD, "Exp", SPD);

for (int i=1; i < Sistem.BarSayisi; i++)
   Histogram[i]  = VWMACD[i] - Trigger[i];

Sistem.Cizgiler[0].Deger = VWMACD;
Sistem.Cizgiler[1].Deger = Trigger;
Sistem.Cizgiler[2].Deger = Histogram;
Sistem.Cizgiler[3].Deger = Sistem.Liste(0);

[Sezai KILIÇ]

Biraz uzun olabilir. Signal yani Trigger ı Exp ile çizdiremediğim için Simple ile çalıştı. Değerler Farklı çıkacaktır.

Bir hesaplama yaparken A/B ifadesi varsa ve B'nin SIFIR olma ihtimali söz konusu ise, bölüm sonsuz olur. Exp MA hesaplatamamanız o yüzden.
Bölüm işlemlerinin başına, PAYDADAKİ DEĞER SIFIR DEĞİLSE ibaresi eklemek sorunu çözer.

[karazepin]

Biraz uzun olabilir. Signal yani Trigger ı Exp ile çizdiremediğim için Simple ile çalıştı. Değerler Farklı çıkacaktır.

/*
//@version=3
//created by Buff DORMEIER
//author: KIVANC @fr3762 on twitter
study("VOLUME WEIGHTED MACD V2", shorttitle="VWMACDV2")
fastperiod = input(12,title="fastperiod",type=integer,minval=1,maxval=500)
slowperiod = input(26,title="slowperiod",type=integer,minval=1,maxval=500)
signalperiod = input(9,title="signalperiod",type=integer,minval=1,maxval=500)
fastMA = ema(volume*close, fastperiod)/ema(volume, fastperiod)
slowMA = ema(volume*close, slowperiod)/ema(volume, slowperiod)
vwmacd = fastMA - slowMA
signal = ema(vwmacd, signalperiod)
hist= vwmacd - signal
plot(vwmacd, color=blue, linewidth=2)
plot(signal, color=red, linewidth=2)
plot(hist, color=green, linewidth=4, style=histogram)
plot(0, color=black)
*/


var fastperiod = 12;
var slowperiod = 26;
var signalperiod = 9;

var Veriler = Sistem.GrafikVerileri;

var C=Sistem.Liste(0);
var V=Sistem.Liste(0);
var CV=Sistem.Liste(0);
var fastMA=Sistem.Liste(0);
var slowMA=Sistem.Liste(0);
var VWMACD=Sistem.Liste(0);
 
for (int i = 1; i < Veriler.Count; i++)
{  C[i] =Veriler[i].Close; 
   V[i] =Veriler[i].Vol;
   CV[i]=V[i] * C[i];
}

var KVWMA1= Sistem.MA(CV,"Exp",fastperiod ); 
var KVWMA2= Sistem.MA(V,"Exp",fastperiod );
var UVWMA1 = Sistem.MA(CV,"Exp",slowperiod ); 
var UVWMA2 = Sistem.MA(V,"Exp",slowperiod );

for (int i = 1; i < Veriler.Count; i++)
{  
   fastMA[i] = KVWMA1[i] / KVWMA2[i] ;
   slowMA[i] = UVWMA1[i] / UVWMA2[i] ;
   VWMACD[i] = fastMA[i]  - slowMA[i] ; 
}

var signal = Sistem.MA (VWMACD,"Simple",signalperiod);

var hist=Sistem.Liste(0);
for (int i = 1; i < Veriler.Count; i++)
{  
   hist[i] = VWMACD[i] - signal[i]  ; 
}

Sistem.Cizgiler[0].Deger = VWMACD;           Sistem.Cizgiler[0].Panel = 2;
Sistem.Cizgiler[1].Deger = signal;           Sistem.Cizgiler[1].Panel = 2;
Sistem.Cizgiler[2].Deger = hist;             Sistem.Cizgiler[2].Panel = 2;   Sistem.Cizgiler[2].Stil = 5;
Sistem.Cizgiler[3].Deger = Sistem.Liste(0);  Sistem.Cizgiler[3].Panel = 2;

Teşekkür ederim ellerinize sağlık sayın özmen ve Sezai bey.

[Bear_Bull]

Sezai bey merhaba, tüm ekibe selamlar.


uygun görürseniz.
yeni versiyonlarda eklenmek üzere

X30 hisselerin birleştirilmiş grafikleri için eksik olanların ilave edilmesi




birde mümkünse
Yabancı Oranı ekranına
indir tuşu. ( gün içi kapalı akşam açık makinada bazı dataları ne yaparsam tamamlatamıyorum)

[ozmen]

Bir hesaplama yaparken A/B ifadesi varsa ve B'nin SIFIR olma ihtimali söz konusu ise, bölüm sonsuz olur. Exp MA hesaplatamamanız o yüzden.
Bölüm işlemlerinin başına, PAYDADAKİ DEĞER SIFIR DEĞİLSE ibaresi eklemek sorunu çözer.

Sezai bey çok teşekkürler. "SIFIR olma ihtimali" defalarca yazılmıştı forumda.

[Zülfü Aşkın]

Geçmiş yıllara ait 5 dk viop verileri tam olan bir arkadaş benimle paylaşabilir mi... Sistem test etmek istiyorum fakat verilerim tam değil..

Bu forumda bunu paşlacak bir ADAM bir ARKADAŞ bir İNSAN yok mu ?...