Analyses schreef op 27 september 2012 10:33:
Volgens mij is de bovenstaande code niet compleet.
Zie hieronder:
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
If FixedPeriod > 2 then
FixedPeriod = 1
endif
If FixedPeriod < 1 then
FixedPeriod = 1
endif
If FixedPeriod = 1 then
P=Round(Periode)
If Periode < 12 then
P = 11
endif
If Periode = 0 then
P = 11
endif
endif
If FixedPeriod =2 then
P= 11
endif
If FreeChart > 2 then
FreeChart = 1
endif
If FreeChart < 1 then
FreeChart = 1
endif
If Floating = 1 then
X=IntradayBarIndex
if X =0 then
Top=Highest[P](High)
Bot=Lowest[P](Low)
Del= (Top - Bot)
MBot=0.236 * Del+ Bot
Median=0.5 * Del + Bot
MTop=0.764 * Del+ Bot
if DClose(1) > Median then
XTop=1.236 * Del + Bot
else
XTop=Top - (1.236 * Del)
endif
endif
Else
Top=Highest[P](High)
Bot=Lowest[P](Low)
Del= (Top - Bot)
MBot=0.236 * Del+ Bot
Median=0.5 * Del + Bot
MTop=0.764 * Del+ Bot
if DClose(1) > Median then
XTop=(1.236 * Del) + Bot
else
XTop=Top - (1.236 * Del)
endif
EndIf
Return Bot Coloured (255,255,0) as "Bottom",MTop Coloured (0,128,0) as "Top", Median coloured(0,0,250) as "Median",MBot Coloured (230,230,250) as "Major Bottom",Top Coloured (0,255,0) as "Major Top",XTop Coloured(140,140,140) as "Target Top"