dsma . bu son olan epeyce yeni , konu basligina uygun olmus.
eliniz degmisken su formulude cevirmeniz mumkun mu. ben ugrastim ancak bi sonuc cikmadi, buyuk ihtimla biseyleri yanlis yaptim.
PHP Code:
Price((H+L)/2);
Vars:
delta(0.1),
gamma(0),
alpha(0),
beta(0),
N(0),
Period(0),
MaxAmpl(0),
Num(0),
Denom(0),
DC(0),
DomCyc(0),
Color1(0),
Color2(0),
alpha1(0),
HP(0),
SmoothHP(0);
Arrays:
I[50](0),
OldI[50](0),
OlderI[50](0),
Q[50](0),
OldQ[50](0),
OlderQ[50](0),
Real[50](0),
OldReal[50](0),
OlderReal[50](0),
Imag[50](0),
OldImag[50](0),
OlderImag[50](0),
Ampl[50](0),
OldAmpl[50](0),
DB[50](0);
alpha1 = (1 - Sine (360 / 40)) / Cosine(360 / 40);
HP = .5*(1 + alpha1)*(Price - Price[1]) + alpha1*HP[1];
SmoothHP = (HP + 2*HP[1] + 3*HP[2] + 3*HP[3] + 2*HP[4] + HP[5]) / 12;
IF CurrentBar < 7 Then SmoothHP = Price - Price[1];
IF CurrentBar = 1 THEN SmoothHP = 0;
delta = -.015*CurrentBar + .5;
If delta < .15 then delta = .15;
If CurrentBar > 6 Then Begin
For N = 8 to 50 Begin
beta = Cosine(360 / N);
gamma = 1 / Cosine(720*delta / N);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Q[N] = (N / 6.283185)*(SmoothHP - SmoothHP[1]);
I[N] = SmoothHP;
Real[N] = .5*(1 - alpha)*(I[N] - OlderI[N]) + beta*(1 + alpha)*OldReal[N] -
alpha*OlderReal[N];
Imag[N] = .5*(1 - alpha)*(Q[N] - OlderQ[N]) + beta*(1 + alpha)*OldImag[N]
- alpha*OlderImag[N];
Ampl[N] = (Real[N]*Real[N] + Imag[N]*Imag[N]);
End;
End;
For N = 8 to 50 Begin
OlderI[N] = OldI[N];
OldI[N] = I[N];
OlderQ[N] = OldQ[N];
OldQ[N] = Q[N];
OlderReal[N] = OldReal[N];
OldReal[N] = Real[N];
OlderImag[N] = OldImag[N];
OldImag[N] = Imag[N];
OldAmpl[N] = Ampl[N];
End;
MaxAmpl = Ampl[10];
For N = 8 to 50 Begin
If Ampl[N] > MaxAmpl then MaxAmpl = Ampl[N];
End;
For N = 8 to 50 Begin
IF MaxAmpl <> 0 AND (Ampl[N] / MaxAmpl) > 0 THEN DB[N] = -10*Log(.01 / (1 -
.99*Ampl[N] / MaxAmpl)) / Log(10);
If DB[N] > 20 then DB[N] = 20;
End;
Num = 0;
Denom = 0;
For N = 10 to 50 Begin
If DB[N] <= 3 Then Begin
Num = Num + N*(20 - DB[N]);
Denom = Denom + (20 - DB[N]);
End;
If Denom <> 0 Then DC = Num / Denom;
End;
DomCyc = Median(DC, 10);
If DomCyc < 8 Then DomCyc = 20;
beta = Cosine(360 / DomCyc);
gamma = 1 / Cosine(720*delta / DomCyc);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Value1 = .5*(1 - alpha)*(SmoothHP - SmoothHP[1]) + beta*(1 + alpha)*Value1[1] -
alpha*Value1[2];
Value2 = (DomCyc / 6.28)*(Value1 - Value1[1]);
Yer İmleri