johannes51 schreef op 9 juli 2012 23:35:
[...]
Nieuwsgierig aagje:
//Hilex. Auteur Johannes51.
per=26
donh=highest[per](high)
donl=lowest[per](low)
CP=(open+high+low+2*close)/5
F=LinearRegression[4](CP)
atr=averagetruerange[per](open)/2
//Uitbraakniveaus (verschoven gesmoothte Donchian)
uithoog=average[5](donh[9])
uitlaag=average[5](donl[9])
//low of high position berekenen
a=donh
b=highest[per](close)
c=low
if high=a then //laag van hoogste bewaren in d
d=c
else
d=d[1]
endif
if close=b then //deze laag in lohp stoppen als de close het hoogst is.
lohp=d
else
lohp=lohp[1]
endif
//lohp rails maken
hoog=lohp-atr
hoogmin=lohp-2*atr
//Carter lage lijn HOLP (long bij omhoog kruisen)
la=donl
lb=lowest[per](close)
lc=high
if low=la then //hoog van laagste in ld stoppen
ld=lc
else
ld=ld[1]
endif
if close=lb then //als close het laagst is, ld in holp stoppen
holp=ld
else
holp=holp[1]
endif
//holp rails maken
laag=holp+atr
laagplus=holp+2*atr
//zone aanwijzen
if abs(F-lohp)<abs(F-holp) then //koers dichts bij LOHP
hoogzone=max(hoog,laagplus)
laagzone=max(laag,hoogmin)
else
hoogzone=min(hoog,laagplus)
laagzone=min(laag,hoogmin)
endif
//wissellijnen voor uitbraak verkleuring
if F>uithoog then
opw=hoogzone
nrw=hoogzone
elsif F<uitlaag then
opw=laagzone
nrw=laagzone
else
opw=hoogzone
nrw=laagzone
endif
return opw coloured(200,180,100) as "opw", nrw coloured(200,180,100) as "nrw", hoogzone coloured(30,30,30) as "hilex-hoog", laagzone coloured(30,30,30) as "hilex-laag"