Originally Posted by
berlys
//min := if(C<O, C, O);
//max := if(C>O, C, O);
//ABS(C-O)/(H-L) < 0.1 AND
//(min-L) > (3*ABS(C-O)) AND
//(H-max) < ABS(C-O)
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") ;
//min := if(C<O, C, O);
var min=Sistem.Liste(0);
for (int i = 0; i<Sistem.BarSayisi; i++)
{
if(C[i]<O[i])
min[i]=C[i];
else
min =O[i] ;
}
//max := if(C>O, C, O);
var max=Sistem.Liste(0);
for (int i = 0; i<Sistem.BarSayisi; i++)
{
if(C[i]>O[i])
max[i]=C[i];
else
max=O[i];
}
float fe=0.1f;
var ab=Sistem.Liste(0);
for (int i = 0; i<Sistem.BarSayisi; i++)
{
//ABS(C-O)/(H-L) < 0.1 ;
if((Math.Abs(C[i] -O[i-1]/H[i]-L[i])<fe));
ab[i]=1;
}
//(min-L) > (3*ABS(C-O)) AND
//(H-max) < ABS(C-O)
var ff=Sistem.Liste(0);
for (int i = 0; i<Sistem.BarSayisi; i++)
{
if((min[i]-L[i])>(3*Math.Abs(C[i]-O[i])) && (H[i]-max[i])<Math.Abs(C[i]-O[i]))
ff[i]=1;
}
Sistem.Cizgiler[0] = ff;
dragon fly kodunu yazmaya çalıştım hata görünmüyor ama grafik boş görünüyor.
Bunu deneyin:
PHP Code:
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 min=0.0;
var max=0.0;
var abs=0.0;
for (int i = 100; i<Sistem.BarSayisi; i++)
{
min= C[i]<O[i] ? C[i]:O[i];
max= C[i]>O[i] ? C[i]:O[i];
abs= Math.Abs(C[i]-O[i]);
if( (abs/(H[i]-L[i]))<0.1f && (min-L[i])>3*abs && (H[i]-max)<abs ) Sistem.YaziEkle("D\nr\na\ng\no\nn\n", 1, i-1, L[i]-0.1f, Color.Orange, "Tahoma", 12);
}
Yer İmleri