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"