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

[pc_ogretmen]

kötü öðrencilerin bütün 20 sorunun 10 nunu öðretmenlerine çözdürmesine döndü

[Bear_Bull]

kötü öðrencilerin bütün 20 sorunun 10 nunu öðretmenlerine çözdürmesine döndü

EN SON SATIRA


Sistem.SorguEkle();

yaz bakalým çalýþacak mý?

[pc_ogretmen]

hocam kaç saattir bakýyorum bakýyorum açýklama satýrý haline getirmiþim çalýþýrken saðolasýn
Þartsýz bir þekilde çalýþtýrdým fakat þart olmamasýna raðmen 45 adet hisse geldi tüm hisselerin gelmesi gerekmiyor mu mantýk hatasý yaptým sanýrým bir yerde.

Birþeyler denerken bir edit daha ekleyim double ile tanýmladýðým deðiþkenleri var ile tanýmladýðýmda

double Toplam120Hacim=0;
double Toplam120Lot=0;
double Ortalama120LotHacim=0;

double OrtalamaFiyat120Gun=0;
double OrtalamaFiyat20Gun=0;
double Ortalama20LotHacim=0;

double Toplam20Hacim=0;
double Toplam20Lot=0;

bu deðiþkenleri var ile tanýmladýðýmda sonuç 0 geldi bunun mantýðý var mýdýr bilmediðim

[Bear_Bull]

hocam kaç saattir bakýyorum bakýyorum açýklama satýrý haline getirmiþim çalýþýrken saðolasýn
Þartsýz bir þekilde çalýþtýrdým fakat þart olmamasýna raðmen 45 adet hisse geldi tüm hisselerin gelmesi gerekmiyor mu mantýk hatasý yaptým sanýrým bir yerde.

Birþeyler denerken bir edit daha ekleyim double ile tanýmladýðým deðiþkenleri var ile tanýmladýðýmda

double Toplam120Hacim=0;
double Toplam120Lot=0;
double Ortalama120LotHacim=0;

double OrtalamaFiyat120Gun=0;
double OrtalamaFiyat20Gun=0;
double Ortalama20LotHacim=0;

double Toplam20Hacim=0;
double Toplam20Lot=0;

bu deðiþkenleri var ile tanýmladýðýmda sonuç 0 geldi bunun mantýðý var mýdýr bilmediðim

x30 x50 x100 diye taradým 30 50 ve 100 sonuçlarýný çýkardý eksiksiz. eksik grafik datan olabilir.

bu deðiþkenleri var ile tanýmladýðýmda sonuç 0 geldi bunun mantýðý var mýdýr bilmediðim

Sonucu görüntülerken sonuc.ToString("0.00"); o sorunlardan kurtulabiliyorsunuz.
deneme yanýlmalarla bulduðumuz çözüm budur.



þunuda eklerseniz sonuçlar biraz sadeleþir.

Sistem.SorguOndalik[0] = 0;
Sistem.SorguOndalik[1] = 2;
Sistem.SorguOndalik[2] = 0;

[sahinms]

merhaba
aþaðýdaki kodu metastock tan çevirmeye çalýþtým ama bir türlü grafiðe çizdiremedim. anlayan arkadaþlar yardýmcý olabilir mi.

//al
//Pds:=1;
//Mult:=1.85;
//TruRan:=Mov(ATR(14),Pds,W)*Mult;
//HiLimit:=HHV(H,Pds)-TruRan;
//LoLimit:=LLV(L,Pds)+TruRan;
//limit:=If(C>HiLimit,HiLimit,LoLimit);
//cross(c,limit)


//sat
//Pds:=1;
//Mult:=1.85;
//TruRan:=Mov(ATR(14),Pds,W)*Mult;
//HiLimit:=HHV(H,Pds)-TruRan;
//LoLimit:=LLV(L,Pds)+TruRan;
//limit:=If(C>HiLimit,HiLimit,LoLimit);
//cross(limit,c)

var V = Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatSec(V, "Kapanis") ;
var H = Sistem.GrafikFiyatSec(V, "Yuksek") ;
var L = Sistem.GrafikFiyatSec(V, "Dusuk") ;
var O = Sistem.GrafikFiyatSec(V, "Acilis") ;


var Pds = 1 ;
var mult = 1.85f ;
var ATR = Sistem.AverageTrueRange(14);
var TruRan = Sistem.MA(ATR, "Weighted", Pds) * mult;
var HiLimit = Sistem.HHV(Pds, "H")-TruRan;
var LoLimit = Sistem.LLV(Pds, "L")+TruRan;
var al = C > HiLimit && HiLimit && LoLimit;
var sat = C < HiLimit && HiLimit && LoLimit;

//Sistem.Cizgiler[0].Deger = al;
//Sistem.Cizgiler[1].Deger = sat;
//Sistem.KesismeTara(al, sat);

var SonYon = "";

var Sinyal = "";


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

{

Sinyal = "";

{

if (al) Sinyal = "A";

if (sat) Sinyal = "S";

}


if (Sinyal != "" && SonYon != Sinyal)

{

Sistem.Yon[i] = Sinyal;

SonYon = Sistem.Yon[i];

}
}

[pc_ogretmen]

hocam teþekkürler dediðiniz gibi grafik verilerim eksikmiþ çalýþtý çalýþmaya devam

[ozmen]

Çizgileri çizdire çizdire giderseniz daha iyi sonuca ulaþýrsýnýz.

var Pds = 1 ;
var mult = 1.85f




var C = Sistem.GrafikFiyatSec("Kapanis");
var K = Sistem.MA2(C, "Exp", Pd);
var ATR = Sistem.AverageTrueRange(14);
var ATRM = Sistem.MA(ATR, "Weighted", Pds)
var TruRan = Sistem.Liste(0);
var HiLimit = Sistem.Liste(0);
var LoLimit = Sistem.Liste(0);
var limit = Sistem.Liste(0);


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


{
Truran[i] = ATRM[i] * mult;
// HiLimit[i] =
// LoLimit[i] =
// Limit[i] = C[i]>HiLimit[i] ? HiLimit[i] : LoLimit[i];
}
Sistem.Cizgiler[0].Deger = TruRan;

[pc_ogretmen]

1)hisse baþý temettü miktarýný çekecek bir fonksiyon yok sanýrým bir yolu var mý bunu çekebilmenin.

2)dolaþýmdaki lot miktarýný çekebilmenin bir yolu var mý?