Kod:
//Veriler
var fi=Sistem.GrafikFiyatSec("Kapanis");
var yuk=Sistem.GrafikFiyatSec("Yuksek");
var v=Sistem.GrafikVerileri;
var ha=Sistem.GrafikFiyatSec("Hacim");
var vy=Sistem.YuzeyselVeriOku(Sistem.Sembol);
string gn=vy.Grup;
var time=Sistem.Saat;
var date=Sistem.Tarih;
var vY=Sistem.GrafikVerileriniOku(Sistem.Sembol, "Y");
var vU=Sistem.GrafikVerileriniOku(Sistem.Sembol, "U");
var vA=Sistem.GrafikVerileriniOku(Sistem.Sembol, "A");
var vH=Sistem.GrafikVerileriniOku(Sistem.Sembol, "H");
var vG=Sistem.GrafikVerileriniOku(Sistem.Sembol, "G");
var v240=Sistem.GrafikVerileriniOku(Sistem.Sembol, "240");
var v120=Sistem.GrafikVerileriniOku(Sistem.Sembol, "120");
var v60=Sistem.GrafikVerileriniOku(Sistem.Sembol, "60");
var son=Sistem.BarSayisi-1;
//Y
int Ycup=0; //Cross Up
int Ynp=0; //Küçük
var Yy=Sistem.Ref(Sistem.GrafikFiyatOku(vY, "Yuksek"),-1);
var Yk=Sistem.Ref(Sistem.GrafikFiyatOku(vY, "Kapanis"),-1);
var Yd=Sistem.Ref(Sistem.GrafikFiyatOku(vY, "Dusuk"),-1);
var Ya=Sistem.Ref(Sistem.GrafikFiyatOku(vY, "Acilis"),-1);
var Ypy=Sistem.PivotUp(vY);
var Yp=Sistem.PivotMid(vY);
var Ypd=Sistem.PivotDown(vY);
var Ydey=Sistem.Liste(vY.Count,0);
var Yded=Sistem.Liste(vY.Count,0);
for (int i=0; i<vY.Count; i++)
{
Ydey[i]=Math.Max(Yy[i],Ypy[i]);
Yded[i]=Math.Min(Yd[i],Ypd[i]);
}
Yy=Sistem.DonemCevir(v, vY, Yy);
Yk=Sistem.DonemCevir(v, vY, Yk);
Yd=Sistem.DonemCevir(v, vY, Yd);
Ya=Sistem.DonemCevir(v, vY, Ya);
Ypy=Sistem.DonemCevir(v, vY, Ypy);
Yp=Sistem.DonemCevir(v, vY, Yp);
Ypd=Sistem.DonemCevir(v, vY, Ypd);
Yded=Sistem.DonemCevir(v, vY, Yded);
Ydey=Sistem.DonemCevir(v, vY, Ydey);
if(fi[son-1]<=Ydey[son-1]&&fi[son]>Ydey[son])
{Ycup+=99;
}
else if(fi[son-1]<=Ypy[son-1]&&fi[son]>Ypy[son])
{Ycup+=89;}
else if(fi[son-1]<=Yy[son-1]&&fi[son]>Yy[son])
{Ycup+=79;}
else if(fi[son-1]<=Yp[son-1]&&fi[son]>Yp[son])
{Ycup+=69;}
else if(fi[son-1]<=Yk[son-1]&&fi[son]>Yk[son])
{Ycup+=59;}
else if(fi[son-1]<=Yd[son-1]&&fi[son]>Yd[son])
{Ycup+=49;}
else if(fi[son-1]<=Yded[son-1]&&fi[son]>Yded[son])
{Ycup+=39;}
if(fi[son]>Ydey[son])
{Ynp+=99;}
else if(fi[son]>Ypy[son])
{Ynp+=89;}
else if(fi[son]>Yy[son])
{Ynp+=79;}
else if(fi[son]>Yp[son])
{Ynp+=69;}
else if(fi[son]>Yk[son])
{Ynp+=59;}
else if(fi[son]>Yd[son])
{Ynp+=49;}
else if(fi[son]>Yded[son])
{Ynp+=39;}
else if(fi[son]<Yded[son])
{Ynp-=99;}
else if(fi[son]<Ypd[son])
{Ynp-=89;}
else if(fi[son]<Yk[son])
{Ynp-=79;}
else if(fi[son]<Yp[son])
{Ynp-=69;}
else if(fi[son]<Yy[son])
{Ynp-=59;}
else if(fi[son]<Ypy[son])
{Ynp-=49;}
else if(fi[son]<Ydey[son])
{Ynp-=39;}
//U
int Ucup=0; //Cross Up
int Unp=0; //Küçük
var Uy=Sistem.Ref(Sistem.GrafikFiyatOku(vU, "Yuksek"),-1);
var Uk=Sistem.Ref(Sistem.GrafikFiyatOku(vU, "Kapanis"),-1);
var Ud=Sistem.Ref(Sistem.GrafikFiyatOku(vU, "Dusuk"),-1);
var Ua=Sistem.Ref(Sistem.GrafikFiyatOku(vU, "Acilis"),-1);
var Upy=Sistem.PivotUp(vU);
var Up=Sistem.PivotMid(vU);
var Upd=Sistem.PivotDown(vU);
var Udey=Sistem.Liste(vU.Count,0);
var Uded=Sistem.Liste(vU.Count,0);
for (int i=0; i<vU.Count; i++)
{
Udey[i]=Math.Max(Uy[i],Upy[i]);
Uded[i]=Math.Min(Ud[i],Upd[i]);
}
Uy=Sistem.DonemCevir(v, vU, Uy);
Uk=Sistem.DonemCevir(v, vU, Uk);
Ud=Sistem.DonemCevir(v, vU, Ud);
Ua=Sistem.DonemCevir(v, vU, Ua);
Upy=Sistem.DonemCevir(v, vU, Upy);
Up=Sistem.DonemCevir(v, vU, Up);
Upd=Sistem.DonemCevir(v, vU, Upd);
Uded=Sistem.DonemCevir(v, vU, Uded);
Udey=Sistem.DonemCevir(v, vU, Udey);
if(fi[son-1]<=Udey[son-1]&&fi[son]>Udey[son])
{Ucup+=99;
}
else if(fi[son-1]<=Upy[son-1]&&fi[son]>Upy[son])
{Ucup+=89;}
else if(fi[son-1]<=Uy[son-1]&&fi[son]>Uy[son])
{Ucup+=79;}
else if(fi[son-1]<=Up[son-1]&&fi[son]>Up[son])
{Ucup+=69;}
else if(fi[son-1]<=Uk[son-1]&&fi[son]>Uk[son])
{Ucup+=59;}
else if(fi[son-1]<=Ud[son-1]&&fi[son]>Ud[son])
{Ucup+=49;}
else if(fi[son-1]<=Uded[son-1]&&fi[son]>Uded[son])
{Ucup+=39;}
if(fi[son]>Udey[son])
{Unp+=99;}
else if(fi[son]>Upy[son])
{Unp+=89;}
else if(fi[son]>Uy[son])
{Unp+=79;}
else if(fi[son]>Up[son])
{Unp+=69;}
else if(fi[son]>Uk[son])
{Unp+=59;}
else if(fi[son]>Ud[son])
{Unp+=49;}
else if(fi[son]>Uded[son])
{Unp+=39;}
else if(fi[son]<Uded[son])
{Unp-=99;}
else if(fi[son]<Upd[son])
{Unp-=89;}
else if(fi[son]<Uk[son])
{Unp-=79;}
else if(fi[son]<Up[son])
{Unp-=69;}
else if(fi[son]<Uy[son])
{Unp-=59;}
else if(fi[son]<Upy[son])
{Unp-=49;}
else if(fi[son]<Udey[son])
{Unp-=39;}
//A
int Acup=0; //Cross Ap
int Anp=0; //Küçük
var Ay=Sistem.Ref(Sistem.GrafikFiyatOku(vA, "Yuksek"),-1);
var Ak=Sistem.Ref(Sistem.GrafikFiyatOku(vA, "Kapanis"),-1);
var Ad=Sistem.Ref(Sistem.GrafikFiyatOku(vA, "Dusuk"),-1);
var Aa=Sistem.Ref(Sistem.GrafikFiyatOku(vA, "Acilis"),-1);
var Apy=Sistem.PivotUp(vA);
var Ap=Sistem.PivotMid(vA);
var Apd=Sistem.PivotDown(vA);
var Adey=Sistem.Liste(vA.Count,0);
var Aded=Sistem.Liste(vA.Count,0);
for (int i=0; i<vA.Count; i++)
{
Adey[i]=Math.Max(Ay[i],Apy[i]);
Aded[i]=Math.Min(Ad[i],Apd[i]);
}
Ay=Sistem.DonemCevir(v, vA, Ay);
Ak=Sistem.DonemCevir(v, vA, Ak);
Ad=Sistem.DonemCevir(v, vA, Ad);
Aa=Sistem.DonemCevir(v, vA, Aa);
Apy=Sistem.DonemCevir(v, vA, Apy);
Ap=Sistem.DonemCevir(v, vA, Ap);
Apd=Sistem.DonemCevir(v, vA, Apd);
Aded=Sistem.DonemCevir(v, vA, Aded);
Adey=Sistem.DonemCevir(v, vA, Adey);
if(fi[son-1]<=Adey[son-1]&&fi[son]>Adey[son])
{Acup+=99;
}
else if(fi[son-1]<=Apy[son-1]&&fi[son]>Apy[son])
{Acup+=89;}
else if(fi[son-1]<=Ay[son-1]&&fi[son]>Ay[son])
{Acup+=79;}
else if(fi[son-1]<=Ap[son-1]&&fi[son]>Ap[son])
{Acup+=69;}
else if(fi[son-1]<=Ak[son-1]&&fi[son]>Ak[son])
{Acup+=59;}
else if(fi[son-1]<=Ad[son-1]&&fi[son]>Ad[son])
{Acup+=49;}
else if(fi[son-1]<=Aded[son-1]&&fi[son]>Aded[son])
{Acup+=39;}
if(fi[son]>Adey[son])
{Anp+=99;}
else if(fi[son]>Apy[son])
{Anp+=89;}
else if(fi[son]>Ay[son])
{Anp+=79;}
else if(fi[son]>Ap[son])
{Anp+=69;}
else if(fi[son]>Ak[son])
{Anp+=59;}
else if(fi[son]>Ad[son])
{Anp+=49;}
else if(fi[son]>Aded[son])
{Anp+=39;}
else if(fi[son]<Aded[son])
{Anp-=99;}
else if(fi[son]<Apd[son])
{Anp-=89;}
else if(fi[son]<Ak[son])
{Anp-=79;}
else if(fi[son]<Ap[son])
{Anp-=69;}
else if(fi[son]<Ay[son])
{Anp-=59;}
else if(fi[son]<Apy[son])
{Anp-=49;}
else if(fi[son]<Adey[son])
{Anp-=39;}
//H
int Hcup=0; //Cross Up
int Hnp=0; //Küçük
var Hy=Sistem.Ref(Sistem.GrafikFiyatOku(vH, "Yuksek"),-1);
var Hk=Sistem.Ref(Sistem.GrafikFiyatOku(vH, "Kapanis"),-1);
var Hd=Sistem.Ref(Sistem.GrafikFiyatOku(vH, "Dusuk"),-1);
var Ha=Sistem.Ref(Sistem.GrafikFiyatOku(vH, "Acilis"),-1);
var Hpy=Sistem.PivotUp(vH);
var Hp=Sistem.PivotMid(vH);
var Hpd=Sistem.PivotDown(vH);
var Hdey=Sistem.Liste(vH.Count,0);
var Hded=Sistem.Liste(vH.Count,0);
for (int i=0; i<vH.Count; i++)
{
Hdey[i]=Math.Max(Hy[i],Hpy[i]);
Hded[i]=Math.Min(Hd[i],Hpd[i]);
}
Hy=Sistem.DonemCevir(v, vH, Hy);
Hk=Sistem.DonemCevir(v, vH, Hk);
Hd=Sistem.DonemCevir(v, vH, Hd);
Ha=Sistem.DonemCevir(v, vH, Ha);
Hpy=Sistem.DonemCevir(v, vH, Hpy);
Hp=Sistem.DonemCevir(v, vH, Hp);
Hpd=Sistem.DonemCevir(v, vH, Hpd);
Hded=Sistem.DonemCevir(v, vH, Hded);
Hdey=Sistem.DonemCevir(v, vH, Hdey);
if(fi[son-1]<=Hdey[son-1]&&fi[son]>Hdey[son])
{Hcup+=99;
}
else if(fi[son-1]<=Hpy[son-1]&&fi[son]>Hpy[son])
{Hcup+=89;}
else if(fi[son-1]<=Hy[son-1]&&fi[son]>Hy[son])
{Hcup+=79;}
else if(fi[son-1]<=Hp[son-1]&&fi[son]>Hp[son])
{Hcup+=69;}
else if(fi[son-1]<=Hk[son-1]&&fi[son]>Hk[son])
{Hcup+=59;}
else if(fi[son-1]<=Hd[son-1]&&fi[son]>Hd[son])
{Hcup+=49;}
else if(fi[son-1]<=Hded[son-1]&&fi[son]>Hded[son])
{Hcup+=39;}
if(fi[son]>Hdey[son])
{Hnp+=99;}
else if(fi[son]>Hpy[son])
{Hnp+=89;}
else if(fi[son]>Hy[son])
{Hnp+=79;}
else if(fi[son]>Hp[son])
{Hnp+=69;}
else if(fi[son]>Hk[son])
{Hnp+=59;}
else if(fi[son]>Hd[son])
{Hnp+=49;}
else if(fi[son]>Hded[son])
{Hnp+=39;}
else if(fi[son]<Hded[son])
{Hnp-=99;}
else if(fi[son]<Hpd[son])
{Hnp-=89;}
else if(fi[son]<Hk[son])
{Hnp-=79;}
else if(fi[son]<Hp[son])
{Hnp-=69;}
else if(fi[son]<Hy[son])
{Hnp-=59;}
else if(fi[son]<Hpy[son])
{Hnp-=49;}
else if(fi[son]<Hdey[son])
{Hnp-=39;}
//G
int Gcup=0; //Cross Up
int Gnp=0; //Küçük
var Gy=Sistem.Ref(Sistem.GrafikFiyatOku(vG, "Yuksek"),-1);
var Gk=Sistem.Ref(Sistem.GrafikFiyatOku(vG, "Kapanis"),-1);
var Gd=Sistem.Ref(Sistem.GrafikFiyatOku(vG, "Dusuk"),-1);
var Ga=Sistem.Ref(Sistem.GrafikFiyatOku(vG, "Acilis"),-1);
var Gpy=Sistem.PivotUp(vG);
var Gp=Sistem.PivotMid(vG);
var Gpd=Sistem.PivotDown(vG);
var Gdey=Sistem.Liste(vG.Count,0);
var Gded=Sistem.Liste(vG.Count,0);
for (int i=0; i<vG.Count; i++)
{
Gdey[i]=Math.Max(Gy[i],Gpy[i]);
Gded[i]=Math.Min(Gd[i],Gpd[i]);
}
Gy=Sistem.DonemCevir(v, vG, Gy);
Gk=Sistem.DonemCevir(v, vG, Gk);
Gd=Sistem.DonemCevir(v, vG, Gd);
Ga=Sistem.DonemCevir(v, vG, Ga);
Gpy=Sistem.DonemCevir(v, vG, Gpy);
Gp=Sistem.DonemCevir(v, vG, Gp);
Gpd=Sistem.DonemCevir(v, vG, Gpd);
Gded=Sistem.DonemCevir(v, vG, Gded);
Gdey=Sistem.DonemCevir(v, vG, Gdey);
if(fi[son-1]<=Gdey[son-1]&&fi[son]>Gdey[son])
{Gcup+=99;
}
else if(fi[son-1]<=Gpy[son-1]&&fi[son]>Gpy[son])
{Gcup+=89;}
else if(fi[son-1]<=Gy[son-1]&&fi[son]>Gy[son])
{Gcup+=79;}
else if(fi[son-1]<=Gp[son-1]&&fi[son]>Gp[son])
{Gcup+=69;}
else if(fi[son-1]<=Gk[son-1]&&fi[son]>Gk[son])
{Gcup+=59;}
else if(fi[son-1]<=Gd[son-1]&&fi[son]>Gd[son])
{Gcup+=49;}
else if(fi[son-1]<=Gded[son-1]&&fi[son]>Gded[son])
{Gcup+=39;}
if(fi[son]>Gdey[son])
{Gnp+=99;}
else if(fi[son]>Gpy[son])
{Gnp+=89;}
else if(fi[son]>Gy[son])
{Gnp+=79;}
else if(fi[son]>Gp[son])
{Gnp+=69;}
else if(fi[son]>Gk[son])
{Gnp+=59;}
else if(fi[son]>Gd[son])
{Gnp+=49;}
else if(fi[son]>Gded[son])
{Gnp+=39;}
else if(fi[son]<Gded[son])
{Gnp-=99;}
else if(fi[son]<Gpd[son])
{Gnp-=89;}
else if(fi[son]<Gk[son])
{Gnp-=79;}
else if(fi[son]<Gp[son])
{Gnp-=69;}
else if(fi[son]<Gy[son])
{Gnp-=59;}
else if(fi[son]<Gpy[son])
{Gnp-=49;}
else if(fi[son]<Gdey[son])
{Gnp-=39;}
//HH' lar
var h5=Sistem.Ref(Sistem.HHV(5,"Kapanis"),-1);
var h26=Sistem.Ref(Sistem.HHV(26,"Kapanis"),-1);
var h52=Sistem.Ref(Sistem.HHV(52,"Kapanis"),-1);
var h100=Sistem.Ref(Sistem.HHV(100,"Kapanis"),-1);
var h200=Sistem.Ref(Sistem.HHV(200,"Kapanis"),-1);
//Ortalamalar
//Gün
var g20=Sistem.MA(Gk,"Exp",20);
var g50=Sistem.MA(Gk,"Exp",50);
var g100=Sistem.MA(Gk,"Exp",100);
//Hafta
var h9=Sistem.MA(Hk,"Exp",9);
var h20=Sistem.MA(Hk,"Exp",20);
var h50=Sistem.MA(Hk,"Exp",50);
h9=Sistem.DonemCevir(v, vH, h9);
h20=Sistem.DonemCevir(v, vH, h20);
h50=Sistem.DonemCevir(v, vH, h50);
//Aylık IM
var yA9=Sistem.HHV(vA,9,"Yuksek");
var dA9=Sistem.LLV(vA,9,"Dusuk");
var yA26=Sistem.HHV(vA,26,"Yuksek");
var dA26=Sistem.LLV(vA,26,"Dusuk");
var yA52=Sistem.HHV(vA,52,"Yuksek");
var dA52=Sistem.LLV(vA,52,"Dusuk");
var Atk=Sistem.Liste(vA.Count,0);
var Akj=Sistem.Liste(vA.Count,0);
var Asa=Sistem.Liste(vA.Count,0);
var Asb=Sistem.Liste(vA.Count,0);
for( int i=0; i < vA.Count; i++)
{
Atk[i]=(yA9[i]+dA9[i])/2;
Akj[i]=(yA26[i]+dA26[i])/2;
Asb[i]=(yA52[i]+dA52[i])/2;
Asa[i]=(Atk[i]+Akj[i])/2;
}
var Assa=Sistem.Ref(Asa,-26);
var Assb=Sistem.Ref(Asb,-26);
var As=Sistem.Liste(vA.Count,0);
for( int i=0; i < vA.Count; i++)
{
As[i]=Math.Max(Math.Max(Atk[i],Akj[i]),Math.Max(Assa[i],Assb[i]));
}
var Acs=Sistem.Ref(As,-25);
Atk=Sistem.DonemCevir(v, vA, Atk);
Akj=Sistem.DonemCevir(v, vA, Akj);
Assa=Sistem.DonemCevir(v, vA, Assa);
Assb=Sistem.DonemCevir(v, vA, Assb);
As=Sistem.DonemCevir(v, vA, As);
Acs=Sistem.DonemCevir(v, vA, Acs);
//Haftalık IM
var yH9=Sistem.HHV(vH,9,"Yuksek");
var dH9=Sistem.LLV(vH,9,"Dusuk");
var yH26=Sistem.HHV(vH,26,"Yuksek");
var dH26=Sistem.LLV(vH,26,"Dusuk");
var yH52=Sistem.HHV(vH,52,"Yuksek");
var dH52=Sistem.LLV(vH,52,"Dusuk");
var Htk=Sistem.Liste(vH.Count,0);
var Hkj=Sistem.Liste(vH.Count,0);
var Hsa=Sistem.Liste(vH.Count,0);
var Hsb=Sistem.Liste(vH.Count,0);
for( int i=0; i < vH.Count; i++)
{
Htk[i]=(yH9[i]+dH9[i])/2;
Hkj[i]=(yH26[i]+dH26[i])/2;
Hsb[i]=(yH52[i]+dH52[i])/2;
Hsa[i]=(Htk[i]+Hkj[i])/2;
}
var Hssa=Sistem.Ref(Hsa,-26);
var Hssb=Sistem.Ref(Hsb,-26);
var Hs=Sistem.Liste(vH.Count,0);
for( int i=0; i < vH.Count; i++)
{
Hs[i]=Math.Max(Math.Max(Htk[i],Hkj[i]),Math.Max(Hssa[i],Hssb[i]));
}
var Hcs=Sistem.Ref(Hs,-25);
Htk=Sistem.DonemCevir(v, vH, Htk);
Hkj=Sistem.DonemCevir(v, vH, Hkj);
Hssa=Sistem.DonemCevir(v, vH, Hssa);
Hssb=Sistem.DonemCevir(v, vH, Hssb);
Hs=Sistem.DonemCevir(v, vH, Hs);
Hcs=Sistem.DonemCevir(v, vH, Hcs);
//Günlük IM
var yG9=Sistem.HHV(vG,9,"Yuksek");
var dG9=Sistem.LLV(vG,9,"Dusuk");
var yG26=Sistem.HHV(vG,26,"Yuksek");
var dG26=Sistem.LLV(vG,26,"Dusuk");
var yG52=Sistem.HHV(vG,52,"Yuksek");
var dG52=Sistem.LLV(vG,52,"Dusuk");
var Gtk=Sistem.Liste(vG.Count,0);
var Gkj=Sistem.Liste(vG.Count,0);
var Gsa=Sistem.Liste(vG.Count,0);
var Gsb=Sistem.Liste(vG.Count,0);
for( int i=0; i < vG.Count; i++)
{
Gtk[i]=(yG9[i]+dG9[i])/2;
Gkj[i]=(yG26[i]+dG26[i])/2;
Gsb[i]=(yG52[i]+dG52[i])/2;
Gsa[i]=(Gtk[i]+Gkj[i])/2;
}
var Gssa=Sistem.Ref(Gsa,-26);
var Gssb=Sistem.Ref(Gsb,-26);
var Gs=Sistem.Liste(vG.Count,0);
for( int i=0; i < vG.Count; i++)
{
Gs[i]=Math.Max(Math.Max(Gtk[i],Gkj[i]),Math.Max(Gssa[i],Gssb[i]));
}
var Gcs=Sistem.Ref(Gs,-25);
Gtk=Sistem.DonemCevir(v, vG, Gtk);
Gkj=Sistem.DonemCevir(v, vG, Gkj);
Gssa=Sistem.DonemCevir(v, vG, Gssa);
Gssb=Sistem.DonemCevir(v, vG, Gssb);
Gs=Sistem.DonemCevir(v, vG, Gs);
Gcs=Sistem.DonemCevir(v, vG, Gcs);
//IM /PivotUp/Ortalama Destek-Direnç Hesaplama
//IM destekler liste
var k0=Sistem.Liste(0);
var k1=Sistem.Liste(0);
var k2=Sistem.Liste(0);
var k3=Sistem.Liste(0);
var k4=Sistem.Liste(0);
var k5=Sistem.Liste(0);
var k6=Sistem.Liste(0);
var k7=Sistem.Liste(0);
var k8=Sistem.Liste(0);
var k9=Sistem.Liste(0);
var k10=Sistem.Liste(0);
var k11=Sistem.Liste(0);
var k12=Sistem.Liste(0);
var k13=Sistem.Liste(0);
var k14=Sistem.Liste(0);
var k15=Sistem.Liste(0);
var k16=Sistem.Liste(0);
var k17=Sistem.Liste(0);
//Pivot Up destekler liste
var pik0=Sistem.Liste(0);
var pik1=Sistem.Liste(0);
var pik2=Sistem.Liste(0);
//Pivot Mid destekler liste
var pivk0=Sistem.Liste(0);
var pivk1=Sistem.Liste(0);
var pivk2=Sistem.Liste(0);
//Ortalamalar destekler liste
var mak0=Sistem.Liste(0);
var mak1=Sistem.Liste(0);
var mak2=Sistem.Liste(0);
var mak3=Sistem.Liste(0);
var mak4=Sistem.Liste(0);
var mak5=Sistem.Liste(0);
//Yuksekler destekler liste
var ykuc0=Sistem.Liste(0);
var ykuc1=Sistem.Liste(0);
var ykuc2=Sistem.Liste(0);
var ykuc3=Sistem.Liste(0);
var ykuc4=Sistem.Liste(0);
var ebde=Sistem.Liste(0);
//IM dirençler liste
var b0=Sistem.Liste(1000);
var b1=Sistem.Liste(1000);
var b2=Sistem.Liste(1000);
var b3=Sistem.Liste(1000);
var b4=Sistem.Liste(1000);
var b5=Sistem.Liste(1000);
var b6=Sistem.Liste(1000);
var b7=Sistem.Liste(1000);
var b8=Sistem.Liste(1000);
var b9=Sistem.Liste(1000);
var b10=Sistem.Liste(1000);
var b11=Sistem.Liste(1000);
var b12=Sistem.Liste(1000);
var b13=Sistem.Liste(1000);
var b14=Sistem.Liste(1000);
var b15=Sistem.Liste(1000);
var b16=Sistem.Liste(1000);
var b17=Sistem.Liste(1000);
//Pivot dirençler liste
var pivb0=Sistem.Liste(1000);
var pivb1=Sistem.Liste(1000);
var pivb2=Sistem.Liste(1000);
//Pivot up dirençler liste
var pib0=Sistem.Liste(1000);
var pib1=Sistem.Liste(1000);
var pib2=Sistem.Liste(1000);
//Ortalamalar dirençler liste
var mab0=Sistem.Liste(1000);
var mab1=Sistem.Liste(1000);
var mab2=Sistem.Liste(1000);
var mab3=Sistem.Liste(1000);
var mab4=Sistem.Liste(1000);
var mab5=Sistem.Liste(1000);
//Yükseler direnci liste
var ybu0=Sistem.Liste(1000);
var ybu1=Sistem.Liste(1000);
var ybu2=Sistem.Liste(1000);
var ybu3=Sistem.Liste(1000);
var ybu4=Sistem.Liste(1000);
//Genel desteklerliste
var pivkeb=Sistem.Liste(0);
var pivotkeb=Sistem.Liste(0);
var Gkeb=Sistem.Liste(0);
var Hkeb=Sistem.Liste(0);
var akeb=Sistem.Liste(0);
var keb=Sistem.Liste(0);
var makeb=Sistem.Liste(0);
var duseb=Sistem.Liste(0);
//Genel dirençler liste
var pivotbek=Sistem.Liste(1000);
var pivbek=Sistem.Liste(1000);
var abek=Sistem.Liste(1000);
var hbek=Sistem.Liste(1000);
var gbek=Sistem.Liste(1000);
var bek=Sistem.Liste(1000);
var mabek=Sistem.Liste(1000);
var yusek=Sistem.Liste(1000);
var ekdi=Sistem.Liste(1000);
for (int i=0; i<Sistem.BarSayisi; i++)
{
//Ortalama direnç hesaplama
if(fi[i]<=g20[i])
mab0[i]=g20[i];
if(fi[i]<=g50[i])
mab1[i]=g50[i];
if(fi[i]<=g100[i])
mab2[i]=g100[i];
if(fi[i]<=h9[i])
mab3[i]=h9[i];
if(fi[i]<=h50[i])
mab4[i]=h50[i];
if(fi[i]<=h20[i])
mab5[i]=h20[i];
//Ortalama destek hesaplama
if(fi[i]>g20[i])
mak0[i]=g20[i];
if(fi[i]>g50[i])
mak1[i]=g50[i];
if(fi[i]>g100[i])
mak2[i]=g100[i];
if(fi[i]>h20[i])
mak3[i]=h20[i];
if(fi[i]>h50[i])
mak4[i]=h50[i];
if(fi[i]>h9[i])
mak5[i]=h9[i];
//Ortalamaların en büyük direnci
mabek[i]=Math.Min(Math.Min(Math.Min(mab0[i],mab1[i]),Math.Min(mab2[i],mab3[i])),Math.Min(mab4[i],mab5[i]));
//Ortalamaların en büyük desteği
makeb[i]=Math.Max(Math.Max(Math.Max(mak0[i],mak1[i]),Math.Max(mak2[i],mak3[i])),Math.Max(mak4[i],mak5[i]));
//Yukseklerin direncini hesaplama
if(fi[i]<=Yy[i])
ybu0[i]=Yy[i];
if(fi[i]<=Uy[i])
ybu1[i]=Uy[i];
if(fi[i]<=Ay[i])
ybu2[i]=Ay[i];
//Yukseklerin desteğini hesaplama
if(fi[i]>Yy[i])
ykuc0[i]=Yy[i];
if(fi[i]>Uy[i])
ykuc1[i]=Uy[i];
if(fi[i]>Ay[i])
ykuc2[i]=Ay[i];
//Yukseklerin direnci
yusek[i]=Math.Min(Math.Min(ybu0[i],ybu1[i]),ybu2[i]);
//Yukseklerin desteği
duseb[i]=Math.Max(Math.Max(ykuc0[i],ykuc1[i]),ykuc2[i]);
//Pivot direncini hesaplama
if(fi[i]<=Yp[i])
pivb0[i]=Yp[i];
if(fi[i]<=Up[i])
pivb1[i]=Up[i];
if(fi[i]<=Ap[i])
pivb2[i]=Ap[i];
//Pivot desteğini hesaplama
if(fi[i]>Yp[i])
pivk0[i]=Yp[i];
if(fi[i]>Up[i])
pivk1[i]=Up[i];
if(fi[i]>Ap[i])
pivk2[i]=Ap[i];
//Pivot direnci
pivotbek[i]=Math.Min(Math.Min(pivb0[i],pivb1[i]),pivb2[i]);
//Pivot desteği
pivotkeb[i]=Math.Max(Math.Max(pivk0[i],pivk1[i]),pivk2[i]);
//Pivot Up direncini hesaplama
if(fi[i]<=Ypy[i])
pib0[i]=Ypy[i];
if(fi[i]<=Upy[i])
pib1[i]=Upy[i];
if(fi[i]<=Apy[i])
pib2[i]=Apy[i];
//Pivot Up desteğini hesaplama
if(fi[i]>Ypy[i])
pik0[i]=Ypy[i];
if(fi[i]>Upy[i])
pik1[i]=Upy[i];
if(fi[i]>Apy[i])
pik2[i]=Apy[i];
//Pivot Up direnci
pivbek[i]=Math.Min(Math.Min(pib0[i],pib1[i]),pib2[i]);
//Pivot desteği
pivkeb[i]=Math.Max(Math.Max(pik0[i],pik1[i]),pik2[i]);
//Aylık IM direnci hesaplama
if(fi[i]<=Atk[i])
b0[i]=Atk[i];
if(fi[i]<=Akj[i])
b1[i]=Akj[i];
if(fi[i]<=Assa[i])
b2[i]=Assa[i];
if(fi[i]<=Assb[i])
b3[i]=Assb[i];
if(fi[i]<=As[i])
b4[i]=As[i];
if(fi[i]<=Acs[i])
b5[i]=Acs[i];
//Aylık IM desteği hesaplama
if(fi[i]>Atk[i])
k0[i]=Atk[i];
if(fi[i]>Akj[i])
k1[i]=Akj[i];
if(fi[i]>Assa[i])
k2[i]=Assa[i];
if(fi[i]>Assb[i])
k3[i]=Assb[i];
if(fi[i]>As[i])
k4[i]=As[i];
if(fi[i]>Acs[i])
k5[i]=Acs[i];
//Aylık IM desteği
akeb[i]=Math.Max(Math.Max(Math.Max(k5[i],k4[i]),Math.Max(k3[i],k2[i])),Math.Max(k1[ i],k0[i]));
//Aylık IM direnci
abek[i]=Math.Min(Math.Min(Math.Min(b5[i],b4[i]),Math.Min(b3[i],b2[i])),Math.Min(b1[ i],b0[i]));
//Haftalık IM direnci hesaplama
if(fi[i]<=Htk[i])
b6[i]=Htk[i];
if(fi[i]<=Hkj[i])
b7[i]=Hkj[i];
if(fi[i]<=Hssa[i])
b8[i]=Hssa[i];
if(fi[i]<=Hssb[i])
b9[i]=Hssb[i];
if(fi[i]<=Hs[i])
b10[i]=Hs[i];
if(fi[i]<=Hcs[i])
b11[i]=Hcs[i];
//Haftalık IM desteği hesaplama
if(fi[i]>Htk[i])
k6[i]=Htk[i];
if(fi[i]>Hkj[i])
k7[i]=Hkj[i];
if(fi[i]>Hssa[i])
k8[i]=Hssa[i];
if(fi[i]>Hssb[i])
k9[i]=Hssb[i];
if(fi[i]>Hs[i])
k10[i]=Hs[i];
if(fi[i]>Hcs[i])
k11[i]=Hcs[i];
//Haftalık IM desteği
Hkeb[i]=Math.Max(Math.Max(Math.Max(k6[i],k7[i]),Math.Max(k8[i],k9[i])),Math.Max(k10 [i],k11[i]));
//Haftalık IM direnci
hbek[i]=Math.Min(Math.Min(Math.Min(b6[i],b7[i]),Math.Min(b8[i],b9[i])),Math.Min(b10 [i],b11[i]));
//Günlük IM direnci hesaplama
if(fi[i]<=Gtk[i])
b12[i]=Gtk[i];
if(fi[i]<=Gkj[i])
b13[i]=Gkj[i];
if(fi[i]<=Gssa[i])
b14[i]=Gssa[i];
if(fi[i]<=Gssb[i])
b15[i]=Gssb[i];
if(fi[i]<=Gs[i])
b16[i]=Gs[i];
if(fi[i]<=Gcs[i])
b17[i]=Gcs[i];
//Günlük IM desteği hesaplama
if(fi[i]>Gtk[i])
k12[i]=Gtk[i];
if(fi[i]>Gkj[i])
k13[i]=Gkj[i];
if(fi[i]>Gssa[i])
k14[i]=Gssa[i];
if(fi[i]>Gssb[i])
k15[i]=Gssb[i];
if(fi[i]>Gs[i])
k16[i]=Gs[i];
if(fi[i]>Gcs[i])
k17[i]=Gcs[i];
//Günlük IM desteği
Gkeb[i]=Math.Max(Math.Max(Math.Max(k12[i],k13[i]),Math.Max(k14[i],k15[i])),Math.Max(k16[i],k17[i]));
//Günlük IM direnci
gbek[i]=Math.Min(Math.Min(Math.Min(b12[i],b13[i]),Math.Min(b14[i],b15[i])),Math.Min(b16[i],b17[i]));
//Toplam IM desteği
keb[i]=Math.Max(Math.Max(akeb[i],Hkeb[i]),Gkeb[i]);
//Toplam IM direnci
bek[i]=Math.Min(Math.Min(abek[i],hbek[i]),gbek[i]);
//Toplam dirençlerin en küçüğü
ekdi[i]=Math.Min(Math.Min(Math.Min(pivotbek[i],pivbek[i]),Math.Min(mabek[i],bek[i])),yusek[i]);
//Toplam desteklerin en büyüğü
ebde[i]=Math.Max(Math.Max(Math.Max(pivotkeb[i],pivkeb[i]),Math.Max(makeb[i],keb[i])),duseb[i]);
}
//Açıklama ve zemin Rengi
int don=0;
//Total cross
if(ekdi[son-1]<1000&&ekdi[son]>=1000)
{
Sistem.SorguZeminRengi = Color.DarkGreen;
Sistem.SorguAciklama += "" + "A-Total Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Toplam pivot direnç cross
else if(pivbek[son-1]<1000&&pivbek[son]>=1000)
{
Sistem.SorguZeminRengi = Color.Green;
Sistem.SorguAciklama += "" + "B-P.D.T.Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Toplam IM direnç cross
else if(bek[son-1]<1000&&bek[son]>=1000)
{
Sistem.SorguZeminRengi = Color.DarkRed;
Sistem.SorguAciklama += "" + "C-IM T.Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Toplam pivot cross
else if(pivotbek[son-1]<1000&&pivotbek[son]>=1000)
{
Sistem.SorguZeminRengi = Color.Red;
Sistem.SorguAciklama += "" + "D-Piv.T.Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Yıllık pivot direnci cross
else if(fi[son-1]<=Ypy[son]&&fi[son]>Ypy[son])
{
Sistem.SorguZeminRengi = Color.Cyan;
Sistem.SorguAciklama += "" + "E-PDY Cross";
}
//Üç aylık pivot direnci cross
else if(fi[son-1]<=Upy[son]&&fi[son]>Upy[son])
{
Sistem.SorguZeminRengi = Color.Purple;
Sistem.SorguAciklama += "" + "F-PDU Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Aylık pivot direnci cross
else if(fi[son-1]<=Apy[son]&&fi[son]>Apy[son])
{
Sistem.SorguZeminRengi = Color.Blue;
Sistem.SorguAciklama += "" + "G-PDA Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Ortalamalar direnci
else if(mabek[son-1]<1000 && mabek[son]>=1000 )
{
Sistem.SorguZeminRengi = Color.Orange;
Sistem.SorguAciklama += "" + "H-T.Ort Cross";
Sistem.SorguYaziRengi =Color.White;
}
//Açıklama %5den yakın direnç.
else if((ekdi[son]/fi[son])<1.05f)
Sistem.SorguAciklama += " " + ekdi[son].ToString("0.00") + " de yakın direnç!!!";
//Dönüş kontrol
else if(pivbek[son]>=1000 && fi[son-1] <=Hp[son-1] && fi[son]>Hp[son]
||pivbek[son]>=1000 && fi[son-1] <=Hpy[son-1] && fi[son]>Hpy[son]
||pivbek[son]>=1000 && fi[son-1] <=Hy[son-1] && fi[son]>Hy[son])
don=don+1;
if(don>0)
{
Sistem.SorguAciklama += "" + "I-Dönüş-Grafik Kont.";
Sistem.SorguZeminRengi = Color.Purple;
Sistem.SorguYaziRengi =Color.White;
}
//Renkler
var ry=Color.Green;
var rky=Color.DarkGreen;
var rk=Color.Red;
var rkk=Color.DarkRed;
//SORGU SONUÇLARI
//Pivot direnci
Sistem.SorguBaslik[8] ="PiR";
Sistem.SorguOndalik[8] =2;
Sistem.SorguSutunGenislik[8] = 45;
/*
if(pivotbek[son-1]<1000 && pivotbek[son]>=1000 )
Sistem.SorguDeger[8]=999;
else if(pivotbek[son]>=1000)
Sistem.SorguDeger[8]=900;
else if(3<4)
Sistem.SorguDeger[8]=pivotbek[son];
*/
Sistem.SorguDeger[8]=pivotbek[son];
if(pivotbek[son]>=1000)
Sistem.SorguDeger[8]=900;
if(pivotbek[son-1]<1000 && pivotbek[son]>=1000 )
Sistem.SorguDeger[8]=999;
//Renk tanımı
if(Sistem.SorguDeger[8]>=999)
Sistem.SorguHucreZeminRengi[8] = rky;
else if(Sistem.SorguDeger[8]>=900)
Sistem.SorguHucreZeminRengi[8] = ry;
// Pivot desteği
Sistem.SorguBaslik[9] ="PS";
Sistem.SorguOndalik[9] =2;
Sistem.SorguSutunGenislik[9] = 45;
Sistem.SorguDeger[9]=pivotkeb[son];
//Pivot Up direnci
Sistem.SorguBaslik[10] ="PiRR1";
Sistem.SorguOndalik[10] =2;
Sistem.SorguSutunGenislik[10] = 45;
if(pivbek[son-1]<1000 && pivbek[son]>=1000 )
Sistem.SorguDeger[10]=999;
else if(pivbek[son]>=1000)
Sistem.SorguDeger[10]=900;
else if(3<4)
Sistem.SorguDeger[10]=pivbek[son];
//Renk tanımı
if(Sistem.SorguDeger[10]>=999)
Sistem.SorguHucreZeminRengi[10] = rky;
else if(Sistem.SorguDeger[10]>=900)
Sistem.SorguHucreZeminRengi[10] = ry;
//Pivot Up desteği
Sistem.SorguBaslik[11] ="PiRS1";
Sistem.SorguOndalik[11] =2;
Sistem.SorguDeger[11]=pivkeb[son];
Sistem.SorguSutunGenislik[11] = 45;
//Ortalama direnci
Sistem.SorguBaslik[12] ="AvgR";
Sistem.SorguOndalik[12] =2;
Sistem.SorguSutunGenislik[12] = 45;
if(mabek[son-1]<1000 && mabek[son]>=1000 )
Sistem.SorguDeger[12]=999;
else if(mabek[son]>=1000)
Sistem.SorguDeger[12]=900;
else if(3<4)
Sistem.SorguDeger[12]=mabek[son];
//Renk tanımı
if(Sistem.SorguDeger[12]>=999)
Sistem.SorguHucreZeminRengi[12] = rky;
else if(Sistem.SorguDeger[12]>=900)
Sistem.SorguHucreZeminRengi[12] = ry;
//Ortalama desteği
Sistem.SorguBaslik[13] ="AvgS";
Sistem.SorguOndalik[13] =2;
Sistem.SorguDeger[13]=makeb[son];
Sistem.SorguSutunGenislik[13] = 45;
//IM direnci
Sistem.SorguBaslik[14] ="IMR";
Sistem.SorguOndalik[14] =2;
Sistem.SorguSutunGenislik[14] = 45;
if(bek[son-1]<1000 && bek[son]>=1000 )
Sistem.SorguDeger[14]=999;
else if(bek[son]>=1000)
Sistem.SorguDeger[14]=900;
else if(bek[son]<1000)
Sistem.SorguDeger[14]=bek[son];
//Renk tanımı
if(Sistem.SorguDeger[14]>=999)
Sistem.SorguHucreZeminRengi[14] = rky;
else if(Sistem.SorguDeger[14]>=900)
Sistem.SorguHucreZeminRengi[14] = ry;
//IM desteği
Sistem.SorguBaslik[15] ="IMS";
Sistem.SorguOndalik[15] =2;
Sistem.SorguDeger[15]=keb[son];
Sistem.SorguSutunGenislik[15] = 45;
//Yuksek direnci
Sistem.SorguBaslik[16] ="HHR1";
Sistem.SorguOndalik[16] =2;
Sistem.SorguSutunGenislik[16] = 45;
if(yusek[son-1]<1000 && yusek[son]>=1000 )
Sistem.SorguDeger[16]=999;
else if(yusek[son]>=1000)
Sistem.SorguDeger[16]=900;
else if(3<4)
Sistem.SorguDeger[16]=yusek[son];
//Renk Tanımı
if(Sistem.SorguDeger[16]>=999)
Sistem.SorguHucreZeminRengi[16] = rky;
else if(Sistem.SorguDeger[16]>=900)
Sistem.SorguHucreZeminRengi[16] = ry;
//Yuksek desteğii
Sistem.SorguBaslik[17] ="HHS1";
Sistem.SorguOndalik[17] =2;
Sistem.SorguDeger[17]=duseb[son];
Sistem.SorguSutunGenislik[17] = 45;
//En yakın direnç
Sistem.SorguBaslik[18] ="ClR1";
Sistem.SorguOndalik[18] =2;
Sistem.SorguSutunGenislik[18] = 45;
if(ekdi[son]<100)
Sistem.SorguDeger[18]=ekdi[son];
if((ekdi[son]/fi[son])<1.05f)
Sistem.SorguHucreZeminRengi[18] = Color.Red;
//En yakın destek
Sistem.SorguBaslik[19] ="ClS1";
Sistem.SorguOndalik[19] =2;
Sistem.SorguDeger[19]=ebde[son];
Sistem.SorguSutunGenislik[19] = 45;
var saat=Sistem.Saat;
var tarih=Sistem.Tarih;
//Volume
Sistem.SorguSutunTip[20]= "YAZI";
Sistem.SorguBaslik[20] ="Zaman";
Sistem.SorguDeger[20]=saat + " " + tarih;
Sistem.SorguSutunGenislik[20] = 120;
//Grup bilgisi
Sistem.SorguBaslik[7] = "Gr";
Sistem.SorguSutunTip[7] = "YAZI";
Sistem.SorguDeger[7]=vy.Grup;
Sistem.SorguSutunGenislik[7] = 26;
Sistem.SorguBaslik[6] ="GP";
Sistem.SorguOndalik[6] =2;
Sistem.SorguDeger[6]=Gcup+Gnp;
Sistem.SorguSutunGenislik[6] = 45;
if(Gcup>=99)
Sistem.SorguHucreZeminRengi[6] = Sistem.Renk(255,0,205,0);
Sistem.SorguBaslik[5] ="HP";
Sistem.SorguOndalik[5] =2;
Sistem.SorguDeger[5]=Hcup+Hnp;
Sistem.SorguSutunGenislik[5] = 45;
if(Hcup>=99)
Sistem.SorguHucreZeminRengi[5] = Sistem.Renk(255,0,205,0);
Sistem.SorguBaslik[4] ="AP";
Sistem.SorguOndalik[4] =2;
Sistem.SorguDeger[4]=Acup+Anp;
Sistem.SorguSutunGenislik[4] = 45;
if(Acup>=99)
Sistem.SorguHucreZeminRengi[4] = Sistem.Renk(255,0,205,0);
Sistem.SorguBaslik[3] ="UP";
Sistem.SorguOndalik[3] =2;
Sistem.SorguDeger[3]=Ucup+Unp;
Sistem.SorguSutunGenislik[3] = 45;
if(Ucup>=99)
Sistem.SorguHucreZeminRengi[3] = Sistem.Renk(255,0,205,0);
Sistem.SorguBaslik[2] ="YP";
Sistem.SorguOndalik[2] =2;
Sistem.SorguDeger[2]=Ycup+Ynp;
Sistem.SorguSutunGenislik[2] = 45;
if(Ycup>=99)
Sistem.SorguHucreZeminRengi[2] = Sistem.Renk(255,0,205,0);
//Fiyat
Sistem.SorguBaslik[0] ="Fiyat";
Sistem.SorguOndalik[0] =2;
Sistem.SorguDeger[0]=fi[son];
Sistem.SorguSutunGenislik[0] = 45;
//Fiyat Değişimi
Sistem.SorguBaslik[1] ="%";
Sistem.SorguOndalik[1] =2;
Sistem.SorguDeger[1]=((fi[son]/fi[son-1])*100)-100;
Sistem.SorguSutunGenislik[1] = 45;
//Fiyat Değişimi
if(3<4)
{
if(
Hcup>=99
||
Acup>=99
||
Ucup>=99
||
Ycup>=99
||
pivbek[son-1]<1000 && pivbek[son]>=1000
||
mabek[son-1]<1000 && mabek[son]>=1000
||
bek[son-1]<1000 && bek[son]>=1000
)
{
Sistem.SorguEkle();
}
}
Yer İmleri