Eurobench.com

[verwijderd] 3 februari 2010 17:52

0

Noach helpt een handje

www.youtube.com/watch?v=sl6GePRpVlA

www.telegraaf.nl/dft/goeroes/michaela...

Michael Ahrens is een goede analist sterker nog is een hele goede analist nou ja niet zo goed als Nico Bakker natuurlijk. Hij heeft alleen een gebrek hij kan niet tellen nou ja hij kan wel tellen alleen raakt hij soms de weg een beetje kwijt met zijn cyclus tellingen. Ga Ahrens een beetje helpen tellen met dat cyclus tellen dan.

Een cyclus bestaat uit grof gezegd uit 50 dagen waarvan het begin en het eind het meest actief zijn. Elke cyclus bestaat weer uit 2 soms 3 cycli welke elk uit 10 dagen bestaan.
Tot zover de theorie. Indien je nu een gemiddelde neemt (een Ma 20 of zo dan heb je een een gemiddelde van de slotkoersen van de afgelopen 20 dagen) en je precies op het begin van de cyclus begint te tellen is er niks aan de hand. Alleen wat is het begin. Begin en eindpunten worden gevormd door extremen leert W.D Gann ons. Alleen voortschrijdend in de tijd zal bij elke dag een verschil optreden. Tijd is belangrijker dan prijs zegt Gann weer. Je moet dus iets hebben wat elke keer de cyclus opnieuw berekend volgens het voortschrijdend inzicht. Immers bij dag 11 van de eerste cyclus heb je niks meer aan het gemiddelde van 20 dagen omdat je dan de 10 van de oude cyclus meetelt.

print.chartnet.nl/CA665F050833645AF0B...

Ruis speelt dus een rol bij een gemiddelde en ruis dient te worden verwijderd. Bij een correct gemiddelde ook wel adaptief gemiddelde genoemd zoek je elke keer naar de kantelpunten van de cyclus en begint dan te tellen de lengte van het gemiddelde is variabel oftewel adaptief. Een voordeel van deze manier van werken is dat het werkt op ieder tijdsgewricht en op elk fonds de lengte van het gemiddelde is immers variabel. Nog een voordeel je hoeft niet meer zoals Ahrens met de hand te tellen er vervolgens de weg kwijt te raken.

Hieronder volgt de codering van het Adaptief Ma de taal is ChartNet.
beschikbaar zijn varianten in MetaStock/MatLab en Ninja

Nu maar hopen dan Ahrens niet meer telt en dit gebruikt dan kunnen we weer genieten van de stukjes over Keltner en de cyclus bodems.

[verwijderd] 3 februari 2010 17:56

0

// Design Tom Noach
Once False = 0
Once True = 1
Once MediumPrice = False and Not True

MediumPrice = (High + Low) / 2

IF BarIndex <= 5 Then
Periode = 0
Naamah = 0
EndIF

IF BarIndex > 5 Then
Sem = MediumPrice - MediumPrice[6]
Cham = Sem[3]
Jafet = 0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
TimeLag = 0.33*Cham+0.67*TimeLag[1]
NoachWave = 0.2*Jafet + 0.8*NoachWave[1]
IF ABS(TimeLag + TimeLag[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (TimeLag+TimeLag[1]))
GannAngle = ATAN(A)
EndIF

IF TimeLag < 0 And NoachWave > 0 Then
GannAngle = 180 - GannAngle
EndIF

IF TimeLag < 0 And NoachWave < 0 Then
GannAngle = 180 + GannAngle
EndIF

IF TimeLag > 0 And NoachWave < 0 Then
GannAngle = 360 - GannAngle
EndIF

Faktor = GannAngle[1]-GannAngle
IF GannAngle[1] < 90 And GannAngle > 270 Then
Faktor = 360 + Faktor
EndIF

IF Faktor < 1 Then
Faktor=1
EndIF

IF Faktor > 60 Then
Faktor=60
EndIF

CyclusTijd = 0
Ham = 0
J = 0
While J< 41
Ham = Ham + Faktor[J]
IF Ham > 360 And CyclusTijd=0 Then
CyclusTijd =J
EndIF
J=J+1
Wend

IF CyclusTijd=0 Then
CyclusTijd = CyclusTijd[1]
EndIF

Naamah = 0.25 * CyclusTijd +0.75*Naamah[1]

Periode=Naamah
EndIF

P1=15

if BarIndex > 50 then
p1=Round(periode)
endif

pr=close

Pi=3.14159265

Alef=exp(-sqrt(2)*Pi/p1)
Beth=2*Alef*cos(sqrt(2)*180/p1)
Daleth=(1-Beth+Alef*Alef)/4
Hee=Beth
Vav=-Alef*Alef

if BarIndex>1 then
Noa2=Daleth*(pr+2*pr[1]+pr[2])+Hee*Noa2[1]+Vav*Noa2[2]
endif

Alef=exp(-Pi/p1)
Beth=2*Alef*Cos(1.738*180/p1)
Gimmel= Alef * Alef
Daleth=(1- Beth + Gimmel) * (1-Gimmel)/8
Hee=Beth+Gimmel
Vav=-(Gimmel+Beth*Gimmel)
Jod=Gimmel*Gimmel

if BarIndex>2 then
Noa3=Daleth*(pr+3*pr[1]+3*pr[2]+pr[3])+Hee*Noa3[1]+Vav*Noa3[2]+Jod*Noa3[3]
endif

return Noa2 coloured(255,0,0) as "Slow",Noa3 Coloured(0,0,255) as "Quick"

[verwijderd] 3 februari 2010 18:04

0

Op 15 januari onstaat een divergentie omdat het Quick adaptief onder het Slow Lagging komt te liggen.
Vandaag heeft de AEX de steun welke was doorbroken getest steun is nu weerstand geworden.

print.chartnet.nl/7F284AF1CA44AF53283...

Bijlage:

[verwijderd] 3 februari 2010 18:21

0

Koperwaaghalzen:
print.chartnet.nl/DF234B3E5F3A54F8D2D...
Maiskolven:
print.chartnet.nl/2E5C52EA26C844AA15C...
Suiker zucht en steunt:
print.chartnet.nl/D83E68852B6E793CE6F...
Koffie breekt:
print.chartnet.nl/FEE9FCB3B86892FFBD8...
Goud niet alles wat blinkt:
print.chartnet.nl/0904621AEEAD9259D1D...
Platinum:
print.chartnet.nl/D7F939BEF926257DE37...
Lood om oud ijzer:
print.chartnet.nl/AB15D873F97C2DA496D...
Euro versus dollar:
print.chartnet.nl/4DA8C6B5D3E380FD00A...

hans 41 4 februari 2010 15:26

0

quote:
Kapitein van de Ark Noach schreef:
// Design Tom Noach
Once False = 0
Once True = 1
Once MediumPrice = False and Not True

MediumPrice = (High + Low) / 2

IF BarIndex <= 5 Then
Periode = 0
Naamah = 0
EndIF

IF BarIndex > 5 Then
Sem = MediumPrice - MediumPrice[6]
Cham = Sem[3]
Jafet = 0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
TimeLag = 0.33*Cham+0.67*TimeLag[1]
NoachWave = 0.2*Jafet + 0.8*NoachWave[1]
IF ABS(TimeLag + TimeLag[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (TimeLag+TimeLag[1]))
GannAngle = ATAN(A)
EndIF

IF TimeLag < 0 And NoachWave > 0 Then
GannAngle = 180 - GannAngle
EndIF

IF TimeLag < 0 And NoachWave < 0 Then
GannAngle = 180 + GannAngle
EndIF

IF TimeLag > 0 And NoachWave < 0 Then
GannAngle = 360 - GannAngle
EndIF

Faktor = GannAngle[1]-GannAngle
IF GannAngle[1] < 90 And GannAngle > 270 Then
Faktor = 360 + Faktor
EndIF

IF Faktor < 1 Then
Faktor=1
EndIF

IF Faktor > 60 Then
Faktor=60
EndIF

CyclusTijd = 0
Ham = 0
J = 0
While J< 41
Ham = Ham + Faktor[J]
IF Ham > 360 And CyclusTijd=0 Then
CyclusTijd =J
EndIF
J=J+1
Wend

IF CyclusTijd=0 Then
CyclusTijd = CyclusTijd[1]
EndIF

Naamah = 0.25 * CyclusTijd +0.75*Naamah[1]

Periode=Naamah
EndIF

P1=15

if BarIndex > 50 then
p1=Round(periode)
endif

pr=close

Pi=3.14159265

Alef=exp(-sqrt(2)*Pi/p1)
Beth=2*Alef*cos(sqrt(2)*180/p1)
Daleth=(1-Beth+Alef*Alef)/4
Hee=Beth
Vav=-Alef*Alef

if BarIndex>1 then
Noa2=Daleth*(pr+2*pr[1]+pr[2])+Hee*Noa2[1]+Vav*Noa2[2]
endif

Alef=exp(-Pi/p1)
Beth=2*Alef*Cos(1.738*180/p1)
Gimmel= Alef * Alef
Daleth=(1- Beth + Gimmel) * (1-Gimmel)/8
Hee=Beth+Gimmel
Vav=-(Gimmel+Beth*Gimmel)
Jod=Gimmel*Gimmel

if BarIndex>2 then
Noa3=Daleth*(pr+3*pr[1]+3*pr[2]+pr[3])+Hee*Noa3[1]+Vav*Noa3[2]+Jod*Noa3[3]
endif

return Noa2 coloured(255,0,0) as "Slow",Noa3 Coloured(0,0,255) as "Quick"

Kapitein,

Ik wil e.e.a. in Chatnet plaatsen maar nu krijg ik op regel 15 (Jafet=0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
en kolom 50 (die is er niet) een foutmelding,kunt u mij verder helpen???
Gr, Hans

[verwijderd] 4 februari 2010 15:46

0

Regel moet zijn:
if BarIndex > 50 then

Onderstaand de goede code. Begrijp niet hoe de fout de ontstond.

Bijlage:

[verwijderd] 4 februari 2010 15:47

0

Once False = 0
Once True = 1
Once MediumPrice = False and Not True

MediumPrice = (High + Low) / 2

IF BarIndex <= 5 Then
Periode = 0
Naamah = 0
EndIF

IF BarIndex > 5 Then
Sem = MediumPrice - MediumPrice[6]
Cham = Sem[3]
Jafet = 0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
TimeLag = 0.33*Cham+0.67*TimeLag[1]
NoachWave = 0.2*Jafet + 0.8*NoachWave[1]
IF ABS(TimeLag + TimeLag[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (TimeLag+TimeLag[1]))
GannAngle = ATAN(A)
EndIF

IF TimeLag < 0 And NoachWave > 0 Then
GannAngle = 180 - GannAngle
EndIF

IF TimeLag < 0 And NoachWave < 0 Then
GannAngle = 180 + GannAngle
EndIF

IF TimeLag > 0 And NoachWave < 0 Then
GannAngle = 360 - GannAngle
EndIF

Faktor = GannAngle[1]-GannAngle
IF GannAngle[1] < 90 And GannAngle > 270 Then
Faktor = 360 + Faktor
EndIF

IF Faktor < 1 Then
Faktor=1
EndIF

IF Faktor > 60 Then
Faktor=60
EndIF

CyclusTijd = 0
Ham = 0
J = 0
While J< 41
Ham = Ham + Faktor[J]
IF Ham > 360 And CyclusTijd=0 Then
CyclusTijd =J
EndIF
J=J+1
Wend

IF CyclusTijd=0 Then
CyclusTijd = CyclusTijd[1]
EndIF

Naamah = 0.25 * CyclusTijd +0.75*Naamah[1]

Periode=Naamah
EndIF

P1=15

if BarIndex > 50 then
p1=Round(periode)
endif

pr=close

Pi=3.14159265

Alef=exp(-sqrt(2)*Pi/p1)
Beth=2*Alef*cos(sqrt(2)*180/p1)
Daleth=(1-Beth+Alef*Alef)/4
Hee=Beth
Vav=-Alef*Alef

if BarIndex>1 then
Noa2=Daleth*(pr+2*pr[1]+pr[2])+Hee*Noa2[1]+Vav*Noa2[2]
endif

Alef=exp(-Pi/p1)
Beth=2*Alef*Cos(1.738*180/p1)
Gimmel= Alef * Alef
Daleth=(1- Beth + Gimmel) * (1-Gimmel)/8
Hee=Beth+Gimmel
Vav=-(Gimmel+Beth*Gimmel)
Jod=Gimmel*Gimmel

if BarIndex>2 then
Noa3=Daleth*(pr+3*pr[1]+3*pr[2]+pr[3])+Hee*Noa3[1]+Vav*Noa3[2]+Jod*Noa3[3]
endif

return Noa2 coloured(0,0,255) as "Slow",Noa3 Coloured(255,0,0) as "Quick"

[verwijderd] 4 februari 2010 16:38

0

Heb nu 2 x de bovenstaande code zien veranderen zal dus wel bij de IEX liggen. Blijft opmerkelijk dat moderators teksten kunnen aanpassen. Is inbreuk op intellectueel eigendom en op zijn minst verwerpelijk.

Bij deze protest dus.

[verwijderd] 4 februari 2010 17:10

0

Ligt een steun op 324 is tevens een belangrijke Cardinal. Cardinals worden niet zo maar opgegeven. Volgende Cardinal 306.25
Oververkocht nu.

print.chartnet.nl/474332BF4684F810C1B...

www.telegraaf.nl/dft/goeroes/michaela...,1

Bijlage:

[verwijderd] 4 februari 2010 17:41

0

318 dan maar.

print.chartnet.nl/A675E02942F07DFFCA1...

[verwijderd] 5 februari 2010 08:35

0

De handelsregels voor het systeem zijn dus nogal simpel.
Je mag een Long positie hebben als Quick boven de Slow koerst en de slotkoers moet boven de Quick liggen.
Je mag een Short positie hebben als Quick onder de Slow noteert.

Bij een dalende trend zal de Slow als weerstand dienen en bij een stijgende trend als steun.

Om nu te bepalen of het systeem werkt kan je een kleine wijziging aanbrengen in de indicator of nog beter is even een nieuwe indicator aan te maken. Wat we van het systeem willen weten is hoeveel dagen er positief worden indien de Quick boven de Slow noteert.

In Natural Language zou je zo iets krijgen als.
Test of Quick boven Slow noteert indien ja
tel dan het aantal dagen dat deze dan hoger noteert
tel dan het aantal dagen dat dit niet zo is

Cumuleer de resultaten
Geef een percentage van het aantal dagen dat hoger wordt gesloten t.o.v. het voorgaande slot.
Geef een percentage van het aantal dagen dat lager worden gesloten t.o.v. het voorgaande slot

Bereken vervolgens indien er lager wordt gesloten en wordt gekocht (buy on dips/sell op tops) of het resultaat hoger of lager wordt

Bij een test volgens bovenstaande gegevens zal in 68% van de gevallen er een hoger slot zijn dan het slot van de voorgaande dag. Indien er gekocht wordt als de Quick boven de Slow noteert en er 2 dagen een lager slot is dan de opening kan het percentage op 73% wordt gezet.
Indien er wordt gekocht als de Quick boven de Slow noteert en koers in het gebied van de steun komt d.w.z. het verschil tussen de Quick en de koers is lager dan 2 dan kan dit percentage 81% op worden gebracht.

De code voor het berekenen van de bovenstaande gegevens volgt hieronder.

Je kan natuurlijk ook alle regels uitschrijven in de vorm van een BackTest en er een HandelsSysteem van maken het plaatje geeft dan het volgende resultaat.

Maar afgezien van alle resultaten je had in ieder geval niet long gezeten bij de daling van de afgelopen week sterker nog je had short gezeten.

Bijlage:

[verwijderd] 5 februari 2010 08:37

0

Once True = 1
Once MediumPrice = False and Not True

MediumPrice = (High + Low) / 2

IF BarIndex <= 5 Then
Periode = 0
Naamah = 0
EndIF

IF BarIndex > 5 Then
Sem = MediumPrice - MediumPrice[6]
Cham = Sem[3]
Jafet = 0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
TimeLag = 0.33*Cham+0.67*TimeLag[1]
NoachWave = 0.2*Jafet + 0.8*NoachWave[1]
IF ABS(TimeLag + TimeLag[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (TimeLag+TimeLag[1]))
GannAngle = ATAN(A)
EndIF

IF TimeLag < 0 And NoachWave > 0 Then
GannAngle = 180 - GannAngle
EndIF

IF TimeLag < 0 And NoachWave < 0 Then
GannAngle = 180 + GannAngle
EndIF

IF TimeLag > 0 And NoachWave < 0 Then
GannAngle = 360 - GannAngle
EndIF

Faktor = GannAngle[1]-GannAngle
IF GannAngle[1] < 90 And GannAngle > 270 Then
Faktor = 360 + Faktor
EndIF

IF Faktor < 1 Then
Faktor=1
EndIF

IF Faktor > 60 Then
Faktor=60
EndIF

CyclusTijd = 0
Ham = 0
J = 0
While J< 41
Ham = Ham + Faktor[J]
IF Ham > 360 And CyclusTijd=0 Then
CyclusTijd =J
EndIF
J=J+1
Wend

IF CyclusTijd=0 Then
CyclusTijd = CyclusTijd[1]
EndIF

Naamah = 0.25 * CyclusTijd +0.75*Naamah[1]

Periode=Naamah
EndIF

P1=15

if BarIndex > 50 then
p1=Round(periode)
endif

pr=close

Pi=3.14159265

Alef=exp(-sqrt(2)*Pi/p1)
Beth=2*Alef*cos(sqrt(2)*180/p1)
Daleth=(1-Beth+Alef*Alef)/4
Hee=Beth
Vav=-Alef*Alef

if BarIndex>1 then
Noa2=Daleth*(pr+2*pr[1]+pr[2])+Hee*Noa2[1]+Vav*Noa2[2]
endif

Alef=exp(-Pi/p1)
Beth=2*Alef*Cos(1.738*180/p1)
Gimmel= Alef * Alef
Daleth=(1- Beth + Gimmel) * (1-Gimmel)/8
Hee=Beth+Gimmel
Vav=-(Gimmel+Beth*Gimmel)
Jod=Gimmel*Gimmel

if BarIndex>2 then
Noa3=Daleth*(pr+3*pr[1]+3*pr[2]+pr[3])+Hee*Noa3[1]+Vav*Noa3[2]+Jod*Noa3[3]
endif

//return Noa2 coloured(0,0,255) as "Slow",Noa3 Coloured(255,0,0) as "Quick"

/// reken uit hoeveel dagen er positief worden gesloten en hoeveel negatief
//// uitbreiding op de indicator
/////
if Noa2 > Noa3 then
CumPos= CumPos+1
else
CumNeg= CumNeg+1
endif

CumCum = CumPos + CumNeg

if Close > DClose(1) and Noa2 > Noa3 then
TrdPos= TrdPos + 1
else
TrdNeg = TrdNeg + 1
endif

PerPos=TrdPos /(CumCum/100)
PerNeg=TrdNeg /(CumCum/100)

Return PerPos,PerNeg

Bijlage:

hans 41 5 februari 2010 11:04

0

quote:
Kapitein van de Ark Noach schreef:
Regel moet zijn:
if BarIndex > 50 then

Onderstaand de goede code. Begrijp niet hoe de fout de ontstond.

Goedemorgen Kapitein,
Als ik het goed begrijp moet ik de regel(12) "Jafet=0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])" vervangen door de regel" ÏF Barindex > 50 Then" heb ik gedaan.
De volgende fout die toen kwam is regel 53(tel alleen beschreven regels)"Endif" heb ik weg gehaald en de fout is opgeheven,maar ik weet niet of dat correct is? De laatste regel 74 geeft daarna een foutmelding.
Kunt u voor mij nog eens kijken wat er nog fout is??
Als u denkt dat de moderators wat veranderen mag u het ook sturen naar mijn mailadres t.w. jwmulder@bart.nl
m.v.gr, Hans

[verwijderd] 5 februari 2010 11:17

0

Als een bericht wordt geplaatst op het forum doorloopt het een aantal stadia. Uiteindelijk komt er een soort HTML uit de bus waardoor de pagina's leesbaar worden.

Als ik stukjes Codering doorgeef op een forum dan worden soms stukjes herkent als code waardoor er een pagina opmaak plaatsvindt. De moderators kunnen daar niks aan doen. Is ook geen fout is meer conflict of being.

Hieronder de goede code zonder fouten:
// -------------------------------> code begint na deze regel

Once False = 0
Once True = 1
Once MediumPrice = False and Not True

MediumPrice = (High + Low) / 2

IF BarIndex <= 5 Then
Periode = 0
Naamah = 0
EndIF

IF BarIndex > 5 Then
Sem = MediumPrice - MediumPrice[6]
Cham = Sem[3]
Jafet = 0.75*(Sem-Sem[6])+0.25*(Sem[2]-Sem[4])
TimeLag = 0.33*Cham+0.67*TimeLag[1]
NoachWave = 0.2*Jafet + 0.8*NoachWave[1]
IF ABS(TimeLag + TimeLag[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (TimeLag+TimeLag[1]))
GannAngle = ATAN(A)
EndIF

IF TimeLag < 0 And NoachWave > 0 Then
GannAngle = 180 - GannAngle
EndIF

IF TimeLag < 0 And NoachWave < 0 Then
GannAngle = 180 + GannAngle
EndIF

IF TimeLag > 0 And NoachWave < 0 Then
GannAngle = 360 - GannAngle
EndIF

Faktor = GannAngle[1]-GannAngle
IF GannAngle[1] < 90 And GannAngle > 270 Then
Faktor = 360 + Faktor
EndIF

IF Faktor < 1 Then
Faktor=1
EndIF

IF Faktor > 60 Then
Faktor=60
EndIF

CyclusTijd = 0
Ham = 0
J = 0
While J< 41
Ham = Ham + Faktor[J]
IF Ham > 360 And CyclusTijd=0 Then
CyclusTijd =J
EndIF
J=J+1
Wend

IF CyclusTijd=0 Then
CyclusTijd = CyclusTijd[1]
EndIF

Naamah = 0.25 * CyclusTijd +0.75*Naamah[1]

Periode=Naamah
EndIF

P1=15

if BarIndex > 50 then
p1=Round(periode)
endif

pr=close

Pi=3.14159265

Alef=exp(-sqrt(2)*Pi/p1)
Beth=2*Alef*cos(sqrt(2)*180/p1)
Daleth=(1-Beth+Alef*Alef)/4
Hee=Beth
Vav=-Alef*Alef

if BarIndex>1 then
Noa2=Daleth*(pr+2*pr[1]+pr[2])+Hee*Noa2[1]+Vav*Noa2[2]
endif

Alef=exp(-Pi/p1)
Beth=2*Alef*Cos(1.738*180/p1)
Gimmel= Alef * Alef
Daleth=(1- Beth + Gimmel) * (1-Gimmel)/8
Hee=Beth+Gimmel
Vav=-(Gimmel+Beth*Gimmel)
Jod=Gimmel*Gimmel

if BarIndex>2 then
Noa3=Daleth*(pr+3*pr[1]+3*pr[2]+pr[3])+Hee*Noa3[1]+Vav*Noa3[2]+Jod*Noa3[3]
endif

return Noa2 coloured(0,0,255) as "Slow",Noa3 Coloured(255,0,0) as "Quick"

// -------------------------------> code eindigt voor deze regel

[verwijderd] 5 februari 2010 11:25

0

Staat nu ook op het ChartNet forum je kan door te klikken de indicator importeren in ChartNet.

www.chartnet.nl/user/CNForum.html?L=21

[verwijderd] 10 februari 2010 08:42

0

Bodems en dubbele bodems

Bodems en toppen worden gemaakt in een overdrijvingsfase waar iedereen heeft gekocht en/of heeft verkocht.
Een grafiek is de weergave van de hartslag van de markt daar waar kopers en verkopers balans vinden waar hebzucht het wint van angst en winst smelt en wordt omgezet in verlies.
Zeker weten waar bodems en toppen komen te liggen is meer gevoel dan op een grafiek te kunnen zien waar een bodem of een top ligt. Toch heeft de technisch analist instrumentarium tot zijn beschikking om te kunnen meten waar bodems en toppen liggen. Klassieke indicatoren of oscillatoren schieten hierin te kort meten is weten al komen oscillatoren als RSI en Williams dicht in de buurt. Door een oscillator met een trendvolgende indicator te combineren kom je wel dichter in de buurt maar perfect is het niet natuurlijk. Hieronder volgt de codering (in ChartNet code) van de Trendvolgende RSI volgens de methode van Constance Brown (Technical Analyse for the Proffesional (new methods for improving Timming and Filtering Premature Signals))

De bodem gevormd op 8 februari is niet de definitieve bodem dit is te zien op grafiek. Pas wanneer de indicator daalt tot in het extreem oververkocht gebied kan worden aangenomen dat de bodem er ligt. Dit is nu niet het geval derhalve kan worden aangenomen dat de AEX op weg is naar een lagere top. Een tijdsvenster wordt geopend op 19 februari en zal op 17 maart worden gesloten aangenomen wordt dat hier een top wordt gemaakt waarna de koers zal wegglijden onder de 300
Het koersdoel van de lagere top zal liggen rond 334

Market bottom and top:
print.chartnet.nl/7418DE3C11990579059...

Koersdoel:
print.chartnet.nl/6C499E174C21DCA7039...

Bijlage:

[verwijderd] 10 februari 2010 08:45

0

Once False = 0
Once True = 1
Once Periode = True XOR False
Once P1 = 0.3

If Barindex > 5 Then

MediumPrice = (High + Low) / 2

If Barindex <= 5 Then
Periode= False
V5 = False
EndIf

If Barindex > 5 Then
V1 = MediumPrice - MediumPrice[6]
V2 = V1[3]
V3 = 0.75*(V1-V1[6])+0.25*(V1[2]-v1[4])
ENPHASE = 0.33 * V2 + 0.67 * ENPHASE[1]
NoachWave = 0.2 * V3 + 0.8 * NoachWave[1]
If ABS(ENPHASE + ENPHASE[1]) > 0 Then
A = ABS((NoachWave + NoachWave[1]) / (ENPHASE+ENPHASE[1]))
GannDegree = ATAN(A)
EndIf

If ENPHASE < 0 And NoachWave > 0 Then
GannDegree = 180 - GannDegree
EndIf

If ENPHASE < 0 And NoachWave < 0 Then
GannDegree = 180 + GannDegree
EndIf

If ENPHASE > 0 And NoachWave < 0 Then
GannDegree = 360 - GannDegree
EndIf

DeltaPhase = GannDegree[1]-GannDegree
If GannDegree[1] < 90 And GannDegree > 270 Then
DeltaPhase = 360 + DeltaPhase
EndIf

If DeltaPhase < 1 Then
DeltaPhase=1
EndIf

If DeltaPhase > 60 Then
DeltaPhase=60
EndIf

TimeFactor = 0
V4 = 0
J = 0
While J<41
V4 = V4 + DeltaPhase[J]
If V4>360 And TimeFactor=0 Then
TimeFactor =J
EndIf
J=J+1
Wend

If TimeFactor=0 Then
TimeFactor = TimeFactor[1]
EndIf

V5 = 0.25 * TimeFactor +0.75 * V5[1]
myPeriode=v5
EndIf

Periode= Round(myPeriode)

XeNox = 0
Peerke = 0

K = False
While K < Periode
XeNox = XeNox + SIN(360*K/Periode)* MediumPrice[K]
Peerke = Peerke + COS(360*K/Periode)* MediumPrice[K]
K = K+1
Wend

If ABS(Peerke) > 0.001 Then
DCGannDegree = ATAN(XeNox/Peerke)
EndIf

If ABS(Peerke) <= 0.001 Then
If XeNox >= 0 Then
SignXeNox=1
ELSE
SignXeNox=-1
EndIf
DCGannDegree = 90 * SignXeNox
EndIf

DCGannDegree = DCGannDegree + 90

If Peerke<0 Then
DCGannDegree = DCGannDegree + 180
EndIf

If DCGannDegree>315 And DCGannDegree<=360 And DeltaPhase <> 500 Then
DCGannDegree = DCGannDegree - 360
EndIf

PHASE = DCGannDegree

EndIf

If Barindex > 5 Then
SinusGolf = SIN(PHASE)
MainSinusGolf = SIN(PHASE + 45)
EndIf

If Barindex > 5 Then

MediumPrice = (High + Low) /2

Periode= Round(myPeriode)
TrendLijn = 0
J =0
While J < Periode+2
TrendLijn = TrendLijn + MediumPrice[J]
J = J+1
Wend

If Periode > 0 Then
TrendLijn = TrendLijn / (Periode+2)
EndIf

KeltNer = 0.33 * (MediumPrice + 0.5 * (MediumPrice - MediumPrice[3])) + 0.67 * KeltNer[1]
If Barindex<26 And DeltaPhase <> 500 Then
TrendLijn = MediumPrice
KeltNer =MediumPrice
EndIf
EndIf

If Barindex <= 8 Then
RSB = 0
RANGERSB = 0
ENPHASE = 0
NoachWave = 0
EndIf

If Barindex > 8 Then
MediumPrice = (High + Low) /2
RANGERSB = 0.2 * (High - Low) + 0.8 * RANGERSB[1]
V1 = MediumPrice-MediumPrice[6]
V2 = V1[3]
V3 = 0.75*(V1-V1[6]) + 0.25*(V1[2]-V1[4])
ENPHASE = 0.33 * V2 + 0.67 * ENPHASE[1]
NoachWave = 0.2 * V3 + 0.8*NoachWave[1]
V2 = 0.2 * (Square(ENPHASE) + Square(NoachWave)) + 0.8 * V2[1]
If V2 < 0.001 Then
V2=0.001
EndIf

If RANGE>0 Then
RSB = 0.25*(10* Log(V2 / Square(RANGERSB)) / Log(10)+4.7) + 0.75*RSB[1]
EndIf
EndIf

P = Periode
DEL = DeltaPhase
S = SinusGolf
LS = MainSinusGolf
TL = TrendLijn
K = KeltNer

Trend=1
Cyclus=0

If LS Crosses Over S Or LS Crosses Under S And RSB > 6 Then
Trend=0
Cyclus=1
EndIf

If P<>0 And DEL>(1-P1)*360 / P And DEL<(1+P1)*360 / P Then
Trend=0
Cyclus=1
EndIf

If K Crosses Over TL Or K Crosses Under TL Then
NB=0
EndIf

NB=nb+1

If NB < P/2 Then
Cyclus=1
Trend=0
ELSE
Cyclus=0
Trend=1
EndIf

Per = 15

if BarIndex > 50 then
Per=Round(Periode)
endif

Noa=RSI[Per](Close)
x=0.1*(Noa-50)
y=(EXP(2*x)-1)/(EXP(2*x)+1)
Quick=50*(y+1)

If Trend = 1 then
Slow= Quick[1]
endif

If Cyclus = 1 then
Slow= Quick[3]
endif

Return Quick Coloured (0, 0, 255) AS "RSI" ,Slow Coloured(255,0,0) as "Slow", 20 Coloured (47,79,47) AS "20" , 80 Coloured (47,79,47) AS "80" , 50 AS "50"

len 10 februari 2010 17:11

0

Goedemiddag kapitein

Helaas krijg ik de navolgende foutmeldiing.

Syntax errorlijn1, kolom7
Misschien kunt u beter deze mogelijkheden gebruiken dan"False":
","
"="
Kunt u mij hiermee helpen. Bvd

[verwijderd] 10 februari 2010 17:32

0

Bovenstaande code gekopieerd van de Kk in ChartNet en bij mij werkt die goed. Controleer of de eerste declaratie precies zo is als onderstaand:

Once False = 0

Kopieer het (de bovenstaande code) anders eerst even naar een kladblok of een notepad programma is een behoorlijk stuk programma code wellicht dat er regels niet goed over komen ligt soms het aan geheugen of je computer.

Maar heb het aantal keren gedaan is goed volgens mij

check ook even of = 0 een 0 is en geen O

Eerste regel is gewoon een booleaanse declaratie en speelt verder geen rol.

hans 41 16 februari 2010 11:58

0

quote:
Kapitein van de Ark Noach schreef:
Staat nu ook op het ChartNet forum je kan door te klikken de indicator importeren in ChartNet.

www.chartnet.nl/user/CNForum.html?L=21

Goedemorgen Kapitein,
Heb de indicator in het CN forum geimporteerd en als indicator werkt dat prima.
Heb hem nu ook in backtest staan maar dan geeft CN aan de laatste regel 'RETURN ......." te verwijderen maar krijg de backtest niet aan de praat.
Krijg wel het backtest rapport(statistieken) maar zonder getallen, WAT IS ER NOG NIET GOED??
Gr, Hans

AEX 926,05 +0,92 +0,10% 09:06


Germany40^	21.907,90	+0,03%
BEL 20	4.347,42	+0,23%
Europe50^	5.354,91	-0,03%
US30^	44.740,30	0,00%
Nasd100^	21.775,40	+0,07%
US500^	6.080,89	-0,04%
Japan225^	38.878,90	-0,25%
Gold spot	2.864,72	+0,30%
EUR/USD	1,0389	+0,05%
WTI	71,16	+0,88%

AEX	+0,01%
AMX	+0,01%
AALBERTS NV	0,00%
ABN AMRO BANK...	0,00%
Accsys	0,00%

AALBERTS NV	0,00%
ABN AMRO BANK...	0,00%
Accsys	0,00%
ACOMO	0,00%
ADYEN NV	0,00%

Technische Analyse « Terug naar discussie overzicht

Noach helpt een handje

Meedoen aan de discussie?

Direct naar Forum

Markt vandaag

Aandelenadviezen van IEX.nl

Stijgers

Dalers