Yorumsuz(Sistem Takibi )

[djraca]

kolay gelsin Sn. djraca, paylasimlariniz icin tesekkurler.
Sisteminizde repaint olabilecegi dikkatinizi cekti mi? Ozellikle zigzag fonksiyonunu kullandiginiz icin

Sn. dilbert
çok teşekkür ederim sanırım haklısınız
sistemi tekrar gözden geçirene kadar topik askıda kalsın

[djraca]

yeni sistem
ıdeal formül bölümünden rsı mirror kodunu aldık
içine rsı-mom-trıx-stchrsı ve ımı indikatörlerini ekledik
bu saçma görüntü oluştu



ardından
14rsı 50den büyük
14ımı 50den büyük
14stchrsı 20den büyük
12mom 100den büyük
12trıx 0 dan büyük
şartlarının hepsi gerçekleştiğinde al
tersi durumda sat
bir de alan savunan rsı
alttaki kırmızı beyaz çizgi için
beyaz 90 dan büyükse al kırmızı 90 dan büyükse sat şartını ekleyince
sistemin son hali


ortaya çıktı

al için günlük tarama kısa için 15dak tarama kullanılacağı için
sistem


kullanımda günlükte al olan hisselerden seçim
yine yorumsuz sistem devam(al satlarda 15 dak graf)
gün tarama


tarama sonucundan 5 hisseyi sisteme atalım
ve takibe baslayalım

[djraca]

eklenenler
afyon


algyo


crfsa


goody


logo

[djraca]

sistemi kullanıp eleştiri yapmak için (ya da modifiye etmek isteyenler için) sistemin kodu

var V = Sistem.GrafikVerileri ;
var source = Sistem.GrafikFiyatOku(V, "Kapanis" ) ;



var buylimit = 40 ;
var selllimit = 60 ;

var rsi1 = Sistem.RSI(source, 14) ;
var rsi2 = Sistem.RSI(source, 50) ;

var excess= Sistem.Liste(V.Count,0);

var posexcess = Sistem.Liste(V.Count,0);
var negexcess = Sistem.Liste(V.Count,0);

var posexcess1 = Sistem.Liste(V.Count,0);
var negexcess1 = Sistem.Liste(V.Count,0);
var posexcess2 = Sistem.Liste(V.Count,0);
var negexcess2 = Sistem.Liste(V.Count,0);

var posfilter = Sistem.Liste(V.Count,0);
var posfilter1 = Sistem.Liste(V.Count,0);
var posfilter2 = Sistem.Liste(V.Count,0);
var negfilter = Sistem.Liste(V.Count,0);
var negfilter1 = Sistem.Liste(V.Count,0);
var negfilter2 = Sistem.Liste(V.Count,0);


var posmirror = Sistem.Liste(V.Count,0);
var negmirror = Sistem.Liste(V.Count,0);
var posmirror1 = Sistem.Liste(V.Count,0);
var negmirror1 = Sistem.Liste(V.Count,0);
var posmirror2 = Sistem.Liste(V.Count,0);
var negmirror2 = Sistem.Liste(V.Count,0);

var posmfilter = Sistem.Liste(V.Count,0);
var posmfilter1 = Sistem.Liste(V.Count,0);
var posmfilter2 = Sistem.Liste(V.Count,0);
var negmfilter = Sistem.Liste(V.Count,0);
var negmfilter1 = Sistem.Liste(V.Count,0);
var negmfilter2 = Sistem.Liste(V.Count,0);

for (int i = 1; i < V.Count; i++)
{
excess[i] = rsi2[i]-rsi1[i] ;


posexcess[i] = excess[i] > 0 ? buylimit-excess[i] : buylimit ;
negexcess[i] = excess[i] < 0 ? selllimit-excess[i] : selllimit ;


posexcess1[i] = excess[i] > 0 ? buylimit-excess[i]*2 : buylimit;
negexcess1[i] = excess[i] < 0 ? selllimit-excess[i]*2 : selllimit;
posexcess2[i] = excess[i] > 0 ? buylimit-excess[i]*4 : buylimit;
negexcess2[i] = excess[i] < 0 ? selllimit-excess[i]*4 : selllimit;

posfilter[i] = posexcess[i] < 0 ? 0 : posexcess[i] ;
posfilter1[i] = posexcess1[i] < 0 ? 0 : posexcess1[i];
posfilter2[i] = posexcess2[i] < 0 ? 0 : posexcess2[i];
negfilter[i] = negexcess[i] > 100 ? 100 : negexcess[i];
negfilter1[i] = negexcess1[i] > 100 ? 100 : negexcess1[i];
negfilter2[i] = negexcess2[i] > 100 ? 100 : negexcess2[i];

posmirror[i] = excess[i] > 0 ? 0+excess[i] : 0 ;
negmirror[i] = excess[i] < 0 ? 100+excess[i] : 100;
posmirror1[i] = excess[i] > 0 ? 0+excess[i]*2 : 0;
negmirror1[i] = excess[i] < 0 ? 100+excess[i]*2 : 100;
posmirror2[i] = excess[i] > 0 ? 0+excess[i]*4 : 0;
negmirror2[i] = excess[i] < 0 ? 100+excess[i]*4 : 100;

posmfilter[i] = posmirror[i] > buylimit ? buylimit : posmirror[i];
posmfilter1[i] = posmirror1[i] > buylimit ? buylimit : posmirror1[i];
posmfilter2[i] = posmirror2[i] > buylimit ? buylimit : posmirror2[i];
negmfilter[i] = negmirror[i] < selllimit ? selllimit : negmirror[i];
negmfilter1[i] = negmirror1[i] < selllimit ? selllimit : negmirror1[i];
negmfilter2[i] = negmirror2[i] < selllimit ? selllimit : negmirror2[i];


}

Sistem.Cizgiler[0].Deger = posfilter;
Sistem.Cizgiler[1].Deger = posfilter1;
Sistem.Cizgiler[2].Deger = posfilter2;
Sistem.Cizgiler[3].Deger = negfilter;
Sistem.Cizgiler[4].Deger = negfilter1;
Sistem.Cizgiler[5].Deger = negfilter2;
Sistem.Cizgiler[6].Deger = posmfilter;
Sistem.Cizgiler[7].Deger = posmfilter1;
Sistem.Cizgiler[8].Deger = posmfilter2;
Sistem.Cizgiler[9].Deger = negmfilter;
Sistem.Cizgiler[10].Deger = negmfilter1;
Sistem.Cizgiler[11].Deger = negmfilter2;

var RSI = Sistem.RSI(V ,14);
Sistem.Cizgiler[12].Deger = RSI;

var RSI1 = Sistem.IMI(V ,14);
Sistem.Cizgiler[13].Deger = RSI1;

var RSI2 = Sistem.StochasticRSI(V ,14);
Sistem.Cizgiler[14].Deger = RSI2;


var RSI3 = Sistem.Momentum(V ,12);
Sistem.Cizgiler[15].Deger = RSI3;

var RSI4 = Sistem.TRIX(V ,12);
Sistem.Cizgiler[16].Deger = RSI4;


// tara
var SonYon = "";
for (int i = 1 ; i < V.Count - 1; i++)
{
var SayacAlis = 0;
if (SonYon != "A" ) // alış
{
if (RSI[i] > 50) SayacAlis++;
if (RSI1[i] > 50) SayacAlis++;
if (RSI2[i] > 20) SayacAlis++;
if (RSI3[i] > 100) SayacAlis++;
if (RSI4[i] > 0) SayacAlis++;
if (negfilter2[i] > 90) SayacAlis++;
if (SayacAlis >= 6)
{
SonYon = "A";
Sistem.Yon[i] = SonYon;
}
}
var SayacSatis = 0;
if (SonYon != "S" ) // satış
{
if (RSI[i] < 50) SayacSatis++;
if (RSI1[i] < 50) SayacSatis++;
if (RSI2[i] < 20) SayacSatis++;
if (RSI3[i] < 100) SayacSatis++;
if (RSI4[i] < 0) SayacSatis++;
if (negmfilter2[i] > 90) SayacSatis++;

if (SayacSatis >= 6)
{
SonYon = "S";
Sistem.Yon[i] = SonYon;
}
}
}

[djraca]

altın

[djraca]

http://www.borsagundem.com/haber/spk...-cikti/1123928

sasa


dgate

[djraca]

http://www.borsagundem.com/haber/spk...etisti/1123924

garan

[djraca]