Could someone convert this prorealtime indicator into easyL
Posted: Fri May 30, 2008 12:38 am
hi there, long time lurker, first time poster
long time im trying to convert this indicator which i
have found on a french website into equila ( easy language is also ok )
without any succes
is there anybody out there who knows both languages and is willing to
give me a hand ?
any help is highly apreciated
thanks in advance
greetings from amsterdam
k=p3
de48=DPO[k*2](close)
if de48=de48[1] and de48[1]=de48[2] and de48[2]<>de48[3] then
flag=1
endif
n=(k*2)-4
p=(n/2)-1
d100=DPO[n](close)
moy100=close-d100
co=(moy100-moy100[1]+(close[p])/n)*n
if flag[1]=1 and flag[2]=0 then
hh=co[1]
endif
if flag[1]=1 then
co=hh
endif
n=p3 mod 2
p=(p3-n)/2
p3=(2*p)+1//p3=p3+n
once x=0
w=abs((p-x)/p)
w=w*w*w
w=(1-w)
w=w*w*w
x=x+1
if barindex=p3 then
a=0
b=0
e=0
for i=0 to p3-1
z=barindex-i
a=a+w[z]
b=b+w[z]*(i+1)
e=e+(i+1)*(i+1)*w[z]
next
endif
if barindex>p3 then
c=0
d=0
for i=0 to p3-1
z=barindex-i
c=c+co[p3+p-i]*w[z]
d=d+co[p3+p-i]*w[z]*(i+1)
next
endif
alpha=(a*d-b*c)/(a*e-b*b)
beta=(c*e-b*d)/(a*e-b*b)
lowess=alpha*p+beta
if barindex<p3*2 then
lowess=undefined
endif
return lowess
long time im trying to convert this indicator which i
have found on a french website into equila ( easy language is also ok )
without any succes
is there anybody out there who knows both languages and is willing to
give me a hand ?
any help is highly apreciated
thanks in advance
greetings from amsterdam
k=p3
de48=DPO[k*2](close)
if de48=de48[1] and de48[1]=de48[2] and de48[2]<>de48[3] then
flag=1
endif
n=(k*2)-4
p=(n/2)-1
d100=DPO[n](close)
moy100=close-d100
co=(moy100-moy100[1]+(close[p])/n)*n
if flag[1]=1 and flag[2]=0 then
hh=co[1]
endif
if flag[1]=1 then
co=hh
endif
n=p3 mod 2
p=(p3-n)/2
p3=(2*p)+1//p3=p3+n
once x=0
w=abs((p-x)/p)
w=w*w*w
w=(1-w)
w=w*w*w
x=x+1
if barindex=p3 then
a=0
b=0
e=0
for i=0 to p3-1
z=barindex-i
a=a+w[z]
b=b+w[z]*(i+1)
e=e+(i+1)*(i+1)*w[z]
next
endif
if barindex>p3 then
c=0
d=0
for i=0 to p3-1
z=barindex-i
c=c+co[p3+p-i]*w[z]
d=d+co[p3+p-i]*w[z]*(i+1)
next
endif
alpha=(a*d-b*c)/(a*e-b*b)
beta=(c*e-b*d)/(a*e-b*b)
lowess=alpha*p+beta
if barindex<p3*2 then
lowess=undefined
endif
return lowess