Sistem.SorguBaslik[0] = "Kapanış";
Sistem.SorguOndalik[0] = 2;
Sistem.SorguAciklamaGenislik = 100;
Sistem.SorguSutunGenislik[0] = 100;
Sistem.SorguSutunHizala[0] = "ORTA";
var V =Sistem.GrafikVerileri ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis");
var H = Sistem.GrafikFiyatOku(V, "Yuksek");
var L = Sistem.GrafikFiyatOku(V, "Dusuk");
var O = Sistem.GrafikFiyatOku(V, "Acilis");
var median = Sistem.GrafikFiyatOku(V, "OrtaNokta");
float DojiSize = 0.05f;//DojiSize = input(0.05, minval=0.01, title="Doji size")
var upper = Sistem.HHV(10,H);
var lower = Sistem.LLV(10,L);
var ref1= Sistem.Ref(upper,-1);
var ref2= Sistem.Ref(lower,-1);
int i = Sistem.BarSayisi-1;
if(C[i] != 0)
{
Sistem.SorguDeger[0] = C[i];
if(Math.Abs(O[i]-C[i])<=(H[i]-L[i])*DojiSize)
Sistem.SorguAciklama = "\n\n\n\n\nD\no\nj\ni";
if (C[i-2] > O[i-2] && Math.Min(O[i-1],C[i-1]) > C[i-2] && O[i]< Math.Min(O[i-1],C[i-1]) && C[i]<O[i])
Sistem.SorguAciklama = "\n\n\n\nE\nv\ne\nn\ni\nn\ng\n\nS\nt\na\nr";
if(C[i-2] < O[i-2] && Math.Max(O[i-1],C[i-1]) < C[i-2] && O[i] > Math.Max(O[i-1],C[i-1]) && C[i] > O[i])
Sistem.SorguAciklama = "\n\n\n\nM\no\nr\nn\ni\nn\ng\n\nS\nt\na\nr";
if(O[i-1] < C[i-1] && O[i] > C[i-1] && H[i] - Math.Max(O[i],C[i]) >= Math.Abs(O[i]-C[i])*3 && Math.Min(C[i],O[i]) - L[i]<= Math.Abs(O[i]-C[i]))
Sistem.SorguAciklama = "\n\n\n\n\nS\nh\no\no\nt\ni\nn\ng\n\nS\nt\n\na \nr ";
if(((H[i]-L[i] > 3* (O[i]-C[i])) && ((C[i]-L[i])/(0.001f + H[i]-L[i]) > 0.6f) && ((O[i]-L[i])/(0.001f + H[i]-L[i])>0.6f)))
Sistem.SorguAciklama = "\n\n\n\n\n\n\n\n\nH\na\nm\nm\ne\nr";
if(((H[i]-L[i]) >3*(O[i]-C[i])) && ((H[i]-C[i])/(0.001f+H[i]-L[i])>0.6f) && ((H[i]-O[i])/(0.001f+H[i]-L[i]) > 0.6f))
Sistem.SorguAciklama = "\n\n\n\n\nI\nn\nv\ne\nr\nt\ne\nr\n\nH\na\nm\nm\ne \nr";
if((C[i] > O[i-1] && O[i]> C[i] && O[i]<=C[i-1] && O[i-1]<=C[i] && O[i]-C[i]< C[i-1]-O[i-1]))
Sistem.SorguAciklama = "\n\n\n\n\n\n\nB\ne\na\nr\ni\ns\nh\n\nH\na\nr\ na\n m\ni";
if((O[i-1] > C[i-1] && C[i]>O[i] && C[i]<= O[i-1] && C[i-1]<=O[i] && C[i]-O[i]< O[i-1]-C[i-1]))
Sistem.SorguAciklama = "\nB\nu\nl\nl\ni\ns\nh\n\nH\na\nr\na\nm\ni";
if((C[i-1] > O[i-1] && O[i]>C[i] && O[i]>=C[i-1] && O[i-1]>=C[i] && O[i]-C[i]>C[i-1]-O[i-1]))
Sistem.SorguAciklama = "\nB\ne\na\nr\ni\ns\nh\n\nE\ng\nu\nl\nf\ni\nn\ ng";
if((O[i-1] > C[i-1] && C[i] > O[i] && C[i]>=O[i-1] && C[i-1]>=O[i] && C[i]-O[i]>O[i-1]-C[i-1]))
Sistem.SorguAciklama = "\nB\nu\nl\nl\ni\ns\nh\n\nE\nn\ng\nu\nl\nf\ni\nn\n g";
if((C[i-1]<O[i-1] && O[i]<L[i-1] && C[i]>C[i-1]+((O[i-1]-C[i-1])/2) && C[i]<O[i-1]))
Sistem.SorguAciklama = "\nP\ni\ne\nr\nc\ni\nn\ng\n\nL\ni\nn\ne";
if((L[i]==O[i] && O[i]<lower[i-1] && O[i]<C[i] && C[i] >((H[i-1]-L[i-1])/2)+L[i-1]))
Sistem.SorguAciklama = "\nB\nu\nl\nl\ni\ns\nh\n\nB\ne\nl\nt";
if ((O[i-1]>C[i-1] && O[i]>=O[i-1] && C[i]>O[i]))
Sistem.SorguAciklama = "\nB\nu\nl\nl\ni\ns\nh\n\nK\ni\nc\nk\ne\nr";
if((O[i-1]<C[i-1] && O[i]<=O[i-1] && C[i]<=O[i]))
Sistem.SorguAciklama = "\nB\ne\na\nr\ni\ns\nh\n\nK\ni\nc\nk\ne\nr";
if((((H[i]-L[i]>4*(O[i]-C[i])) && ((C[i]-L[i])/(0.001f+H[i]-L[i])>=0.75f) && ((O[i]-L[i])/(0.001f+H[i]-L[i])>=0.75f)) && H[i-1]<O[i] && H[i-2]<O[i]))
Sistem.SorguAciklama = "\nH\na\nn\ng\ni\nn\ng\n\nM\na\nn";
if(((C[i-1]>O[i-1]) && (((C[i-1]+O[i-1])/2)>C[i]) && (O[i]>C[i-1]) && (O[i]>C[i-1]) && (C[i]>O[i-1]) && ((O[i]-C[i])/(0.001f+(H[i]-L[i]))>0.6f)))
Sistem.SorguAciklama = "\nD\na\nr\nk\n\nC\nl\no\nu\nd\n\nC\no\nv\ne\n r";
if(Sistem.SorguAciklama !="")
Sistem.SorguEkle();
}
Yer İmleri