H cycle count 1a```l0 value:= Fml("Hilbert cycle period - 1a"); If(Sum(value,6)>=360 AND Sum(value,5)<360 ,6,0) + If(Sum(value,7)>=360 AND Sum(value,6)<360 ,7,0) + If(Sum(value,8)>=360 AND Sum(value,7)<360 ,8,0) + If(Sum(value,9)>=360 AND Sum(value,8)<360 ,9,0) + If(Sum(value,10)>=360 AND Sum(value,9)<360 ,10,0) + If(Sum(value,11)>=360 AND Sum(value,10)<360 ,11,0) + If(Sum(value,12)>=360 AND Sum(value,11)<360 ,12,0) + If(Sum(value,13)>=360 AND Sum(value,12)<360 ,13,0) + If(Sum(value,14)>=360 AND Sum(value,13)<360 ,14,0) + If(Sum(value,15)>=360 AND Sum(value,14)<360 ,15,0)  Bhw,|#0<c$u#<jw ,Hbw0%w4kwkw#0 T$wDGkwver# ,ers$Hw8$s erh mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrstZcr ``*cr ow cr ;cr;$mwer<Qbw< ;crͫcr0%w LmwQmw<$p'#lwmw,:io$wAQmwmwcr< ;mw W:t wwh`p ;crr&wezrww< ;% @:w%< ;s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs Zcr *crxowxDcrxcr: pbw: crͫcr0%w mwQmw: b$p'#lwmwp4$wAQmwmwcr: Jmwb40Ab$wAmwH wJwd wl J&wH cycle count 1aH cycle count 1am(value,5)<360 ,6,0) + If(Sum(value,7)>=360 AND Sum(value,6)<360 ,7,0) + If(Sum(value,8)>=360 AND Sum(value,7)<360 ,8,0) + If(Sum(value,9)>=360 AND Sum(value,8)<360 ,9,0) + If(Sum(value,10)>=360 AND Sum(value,9)<360 ,10,0) + If(Sum(vo2w @C@@AA A0A@APA`ApAVALUE HILBERT CYCLE PERIOD - 1A161?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YPd21axw0H cycle count 1a]rXNrH cycle count 2a```l0 value:= Fml("Hilbert cycle period - 1a"); If(Sum(value,16)>=360 AND Sum(value,15)<360 ,16,0) + If(Sum(value,17)>=360 AND Sum(value,16)<360 ,17,0) + If(Sum(value,18)>=360 AND Sum(value,17)<360 ,18,0) + If(Sum(value,19)>=360 AND Sum(value,18)<360 ,19,0) + If(Sum(value,20)>=360 AND Sum(value,19)<360 ,20,0) + If(Sum(value,21)>=360 AND Sum(value,20)<360 ,21,0) + If(Sum(value,22)>=360 AND Sum(value,21)<360 ,22,0) + If(Sum(value,23)>=360 AND Sum(value,22)<360 ,23,0) + If(Sum(value,24)>=360 AND Sum(value,23)<360 ,24,0) + If(Sum(value,25)>=360 AND Sum(value,24)<360 ,25,0)lwmw $wAQmwmwerh mw010A 1($wAmwH wwd w  F&unct BhwSh4kwkwh T$wDGkwverh ,hs$Hw8$s 0%w 4kw mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrsZcr ``*cr ow cr HcrH$erQbw Hcrͫcr0%w LmwQmw$p'#lwmwerG$wAQmwmwcr Hmwd wGt wwh`p Hcrr&werww H% @:w% Hs$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs Zcr *crxowxDcrxcr,pbw, crͫcr0%w mwQmw,؟$p'#lwmwp4$wAQmwmwcr, Jmw؟40A؟$wAmwH wJwd wl J&wH cycle count 2aH cycle count 2aum(value,15)<360 ,16,0) + If(Sum(value,17)>=360 AND Sum(value,16)<360 ,17,0) + If(Sum(value,18)>=360 AND Sum(value,17)<360 ,18,0) + If(Sum(value,19)>=360 AND Sum(value,18)<360 ,19,0) + If(Sum(value,20)>=360 AND Sum(value,19)<360 ,20,0Tw ACpAAAAAAAAAAVALUE HILBERT CYCLE PERIOD - 1A161?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YPd22aplwmwwH cycle count 2a]rXNrH cycle count 3a```l0 value:= Fml("Hilbert cycle period - 1a"); If(Sum(value,26)>=360 AND Sum(value,25)<360 ,26,0) + If(Sum(value,27)>=360 AND Sum(value,26)<360 ,27,0) + If(Sum(value,28)>=360 AND Sum(value,27)<360 ,28,0) + If(Sum(value,29)>=360 AND Sum(value,28)<360 ,29,0) + If(Sum(value,30)>=360 AND Sum(value,29)<360 ,30,0) + If(Sum(value,31)>=360 AND Sum(value,30)<360 ,31,0) + If(Sum(value,32)>=360 AND Sum(value,31)<360 ,32,0) + If(Sum(value,33)>=360 AND Sum(value,32)<360 ,33,0) + If(Sum(value,34)>=360 AND Sum(value,33)<360 ,34,0) + If(Sum(value,35)>=360 AND Sum(value,34)<360 ,35,0) Bhw,h-0<c$u-<jw ,Hbw0%w4kwkw-0 T$wDGkwver- ,ers$Hw8$s erh mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrsZcr ``*cr ow cr HcrH$mwerD%QbwD% Hcrͫcr0%w LmwQmwD%$p'#lwmw,Gio$wAQmwmwcrD% Hmw WGt wwh`p Hcrr&werwwD% H% @:w%D% Hs$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs Zcr *crxowxDcrxcrhpbwh crͫcr0%w mwQmwhb$p'#lwmwp4$wAQmwmwcrh Jmwb40Ab$wAmwH wJwd wl J&wH cycle count 3aH cycle count 3aum(value,25)<360 ,26,0) + If(Sum(value,27)>=360 AND Sum(value,26)<360 ,27,0) + If(Sum(value,28)>=360 AND Sum(value,27)<360 ,28,0) + If(Sum(value,29)>=360 AND Sum(value,28)<360 ,29,0) + If(Sum(value,30)>=360 AND Sum(value,29)<360 ,30,05dw ACAAAAAABBB BVALUE HILBERT CYCLE PERIOD - 1A161?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YP?]?YPd23aplwmwwH cycle count 3a]rXNrH ip sum 1.,E```l0 pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; (Cos(0)*pr)+ (Cos(360*(1/pd))*Ref(pr,-1))+ (Cos(360*(2/pd))*Ref(pr,-2))+ (Cos(360*(3/pd))*Ref(pr,-3))+ (Cos(360*(4/pd))*Ref(pr,-4))+ (Cos(360*(5/pd))*Ref(pr,-5))+ If(pd>6, Cos(360*(6/pd))*Ref(pr,-6), 0)+ If(pd>7, Cos(360*(7/pd))*Ref(pr,-7), 0)+ If(pd>8, Cos(360*(8/pd))*Ref(pr,-8), 0)+ If(pd>9, Cos(360*(9/pd))*Ref(pr,-9), 0)+ If(pd>10, Cos(360*(10/pd))*Ref(pr,-10), 0)+ If(pd>11, Cos(360*(11/pd))*Ref(pr,-11), 0)+ If(pd>12, Cos(360*(12/pd))*Ref(pr,-12), 0)+ If(pd>13, Cos(360*(13/pd))*Ref(pr,-13), 0)+ If(pd>14, Cos(360*(14/pd))*Ref(pr,-14), 0)0AX$wAmwDnwwWnw@w w@&wr&wrww&@ Bhw0D'0 wՑw$$ bT$w bkwver9% ,D's$Hw8$s 0%w 4kwkw@D'0(UFu$VFu/GYTu D'<prHu\VFuHcrsZcr``*cr ow cr scrs$er:Qbw: scrͫcr0%w LmwQmw:$p'#lwmwerr$wAQmwmwcr: smwd wrt wwh` scrr&werww: s% @:w%: ss$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  'pbw' crͫcr0%w mwQmw'b$p'#lwmw p4$wAQmwmwcr' Xmwb40A b$wAmwH w0wd wl 0 wH ip sum 1le pH ip sum 1/2; (Cos(0)*pr)+ (Cos(360*(1/pd))*Ref(pr,-1))+ (Cos(360*(2/pd))*Ref(pr,-2))+ (Cos(360*(3/pd))*Ref(pr,-3))+ (Cos(360*(4/pd))*Ref(pr,-4))+ (Cos(360*(5/pd))*Ref(pr,-5))+ If(pd>6, Cos(360*(6/pd))*Ref(pr,-6), 0)+ If(pd>7, Cos(360*(7/pd))*Ref(pr,-7qVd@C?@@@@@@AA A0A@APA`APDPR# HILBERT CYCLE PERIOD - FINAL-A165HL (( )7(( )7(( )7(( )7(( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7(d2plwmwwH ip sum 1r8+]rXNrH ip sum 2.,E```l0 pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; If(pd>15, Cos(360*(15/pd))*Ref(pr,-15), 0)+ If(pd>16, Cos(360*(16/pd))*Ref(pr,-16), 0)+ If(pd>17, Cos(360*(17/pd))*Ref(pr,-17), 0)+ If(pd>18, Cos(360*(18/pd))*Ref(pr,-18), 0)+ If(pd>19, Cos(360*(19/pd))*Ref(pr,-19), 0)+ If(pd>20, Cos(360*(20/pd))*Ref(pr,-20), 0)+ If(pd>21, Cos(360*(21/pd))*Ref(pr,-21), 0)+ If(pd>22, Cos(360*(22/pd))*Ref(pr,-22), 0)+ If(pd>23, Cos(360*(23/pd))*Ref(pr,-23), 0)+ If(pd>24, Cos(360*(24/pd))*Ref(pr,-24), 0)er,0%w-ٛxmwQmw41$plwmw $wAQmwmwer mw010A 1($wAmwH wwd w  F&unct Bhw0.\hv.hchu@bhu@|FhuAhu$Bhu`@$Bhus$Hw8$s 0%w 4kw mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrsZcr ``*cr ow cr cr$er(Qbw( crͫcr0%w LmwQmw($p'#lwmwer$wAQmwmwcr( (mwd wt wwh` crr&we rww( % @:w%( s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  :pbw: crͫcr0%w mwQmw:$p'#lwmw p4$wAQmwmwcr: hmw40A $wAmwH w@wd wl @ wH ip sum 2le pH ip sum 2/2; If(pd>15, Cos(360*(15/pd))*Ref(pr,-15), 0)+ If(pd>16, Cos(360*(16/pd))*Ref(pr,-16), 0)+ If(pd>17, Cos(360*(17/pd))*Ref(pr,-17), 0)+ If(pd>18, Cos(360*(18/pd))*Ref(pr,-18), 0)+ If(pd>19, Cos(360*(19/pd))*Ref(pr,-19), 0)+ If(pd>20, Cos(360*(2ez @pACAAAAAAAAAPDPR# HILBERT CYCLE PERIOD - FINAL-A165HL[( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7(d2plwmwwH ip sum 2r8+]rXNrH ip sum 3.,E```l0 pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; If(pd>25, Cos(360*(25/pd))*Ref(pr,-25), 0)+ If(pd>26, Cos(360*(26/pd))*Ref(pr,-26), 0)+ If(pd>27, Cos(360*(27/pd))*Ref(pr,-27), 0)+ If(pd>28, Cos(360*(28/pd))*Ref(pr,-28), 0)+ If(pd>29, Cos(360*(29/pd))*Ref(pr,-29), 0)+ If(pd>30, Cos(360*(30/pd))*Ref(pr,-30), 0)+ If(pd>31, Cos(360*(31/pd))*Ref(pr,-31), 0)+ If(pd>32, Cos(360*(32/pd))*Ref(pr,-32), 0)+ If(pd>33, Cos(360*(33/pd))*Ref(pr,-33), 0)+ If(pd>34, Cos(360*(34/pd))*Ref(pr,-34), 0)AX ܚl6BXݚFEYl  Bhw,S)0<c$u)<jw ,Hbw0%w4kwkw)0 T$wDGkwver) ,ers$Hw8$s erh mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrsZcr ``*cr ow cr cr$mwerQbw crͫcr0%w LmwQmw$p'#lwmw,io$wAQmwmwcr hmw Wt wwh`@ crr&we rww % @:w% s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  T'pbwT' crͫcr0%w mwQmwT'b$p'#lwmw p4$wAQmwmwcrT' mwb40A b$wAmwH wwd wl wH ip sum 3le pH ip sum 3/2; If(pd>25, Cos(360*(25/pd))*Ref(pr,-25), 0)+ If(pd>26, Cos(360*(26/pd))*Ref(pr,-26), 0)+ If(pd>27, Cos(360*(27/pd))*Ref(pr,-27), 0)+ If(pd>28, Cos(360*(28/pd))*Ref(pr,-28), 0)+ If(pd>29, Cos(360*(29/pd))*Ref(pr,-29), 0)+ If(pd>30, Cos(360*(3B8 @ACAAAAAABBBPDPR# HILBERT CYCLE PERIOD - FINAL-A165HL[( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7([( )7(d2plwmwwH ip sum 3r8+]rXNrH rp sum 1.,E```l0 pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; (Sin(0)*pr)+ (Sin(360*(1/pd))*Ref(pr,-1))+ (Sin(360*(2/pd))*Ref(pr,-2))+ (Sin(360*(3/pd))*Ref(pr,-3))+ (Sin(360*(4/pd))*Ref(pr,-4))+ (Sin(360*(5/pd))*Ref(pr,-5))+ If(pd>6, Sin(360*(6/pd))*Ref(pr,-6), 0)+ If(pd>7, Sin(360*(7/pd))*Ref(pr,-7), 0)+ If(pd>8, Sin(360*(8/pd))*Ref(pr,-8), 0)+ If(pd>9, Sin(360*(9/pd))*Ref(pr,-9), 0)+ If(pd>10, Sin(360*(10/pd))*Ref(pr,-10), 0)+ If(pd>11, Sin(360*(11/pd))*Ref(pr,-11), 0)+ If(pd>12, Sin(360*(12/pd))*Ref(pr,-12), 0)+ If(pd>13, Sin(360*(13/pd))*Ref(pr,-13), 0)+ If(pd>14, Sin(360*(14/pd))*Ref(pr,-14), 0)$wAQmwmwer* mw010A 1($wAmwH wwd w F&unct Bhwi*? L/ L3w4wIww%w*s$Hw8$s 0%w 4kwkw@*(UFu$VFu/GYTu *<prHu\VFuHcrsZcr``*cr ow cr scrs$erh#Qbwh# scrͫcr0%w LmwQmwh#$p'#lwmwerr$wAQmwmwcrh# sXmwd wrt wwh`0 scrr&werwwh# s% @:w%h# ss$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  pbw crͫcr0%w mwQmw$p'#lwmw p4$wAQmwmwcr Imw40A $wAmwH wIwd wl I wH rp sum 1le pH rp sum 1/2; (Sin(0)*pr)+ (Sin(360*(1/pd))*Ref(pr,-1))+ (Sin(360*(2/pd))*Ref(pr,-2))+ (Sin(360*(3/pd))*Ref(pr,-3))+ (Sin(360*(4/pd))*Ref(pr,-4))+ (Sin(360*(5/pd))*Ref(pr,-5))+ If(pd>6, Sin(360*(6/pd))*Ref(pr,-6), 0)+ If(pd>7, Sin(360*(7/pd))*Ref(pr,-7.d@C?@@@@@@AA A0A@APA`APDPR# HILBERT CYCLE PERIOD - FINAL-A165HL:((:)7((:)7((:)7((:)7((:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7(d2plwmwwH rp sum 1r8+]rXNrH rp sum 2.,E```l0pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; If(pd>15, Sin(360*(15/pd))*Ref(pr,-15), 0)+ If(pd>16, Sin(360*(16/pd))*Ref(pr,-16), 0)+ If(pd>17, Sin(360*(17/pd))*Ref(pr,-17), 0)+ If(pd>18, Sin(360*(18/pd))*Ref(pr,-18), 0)+ If(pd>19, Sin(360*(19/pd))*Ref(pr,-19), 0)+ If(pd>20, Sin(360*(20/pd))*Ref(pr,-20), 0)+ If(pd>21, Sin(360*(21/pd))*Ref(pr,-21), 0)+ If(pd>22, Sin(360*(22/pd))*Ref(pr,-22), 0)+ If(pd>23, Sin(360*(23/pd))*Ref(pr,-23), 0)+ If(pd>24, Sin(360*(24/pd))*Ref(pr,-24), 0)>XAX ܚl6BXݚFEYl  Bhw,+0<c$u+<jw0 ,Hbw0%w4kwkw+0 T$wDGkwver+ ,ers$Hw8$s erh+, (UFu$VFu/GYTu ͫer<prHu\VFuHcrsZcr``*cr ow cr cr$mwer!Qbw! crͫcr0%w LmwQmw!$p'#lwmw,io$wAQmwmwcr! Lmw Wt wwh`K crr&werww! % @:w%! s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  T)pbwT) crͫcr0%w mwQmwT)b$p'#lwmw p4$wAQmwmwcrT) XHmwb40A b$wAmwH w0Hwd wl 0H wH rp sum 2erioH rp sum 2 If(pd>15, Sin(360*(15/pd))*Ref(pr,-15), 0)+ If(pd>16, Sin(360*(16/pd))*Ref(pr,-16), 0)+ If(pd>17, Sin(360*(17/pd))*Ref(pr,-17), 0)+ If(pd>18, Sin(360*(18/pd))*Ref(pr,-18), 0)+ If(pd>19, Sin(360*(19/pd))*Ref(pr,-19), 0)+ If(pd>20, Sin(360*(20/pd @pACAAAAAAAAAPDPR# HILBERT CYCLE PERIOD - FINAL-A165HL[(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7(d2plwmwwH rp sum 2r8+]rXNrH rp sum 3.,E ```l0 pd:=Int(Fml("Hilbert cycle period - final-a")); pr:=(H+L)/2; If(pd>25, Sin(360*(25/pd))*Ref(pr,-25), 0)+ If(pd>26, Sin(360*(26/pd))*Ref(pr,-26), 0)+ If(pd>27, Sin(360*(27/pd))*Ref(pr,-27), 0)+ If(pd>28, Sin(360*(28/pd))*Ref(pr,-28), 0)+ If(pd>29, Sin(360*(29/pd))*Ref(pr,-29), 0)+ If(pd>30, Sin(360*(30/pd))*Ref(pr,-30), 0)+ If(pd>31, Sin(360*(31/pd))*Ref(pr,-31), 0)+ If(pd>32, Sin(360*(32/pd))*Ref(pr,-32), 0)+ If(pd>33, Sin(360*(33/pd))*Ref(pr,-33), 0)+ If(pd>34, Sin(360*(34/pd))*Ref(pr,-34), 0)AX ܚl6BXݚFEYl  Bhw,0,<c$u,<jw0 ,Hbw0%w4kwkw, T$wDGkwver, ,ers$Hw8$s erh mv(UFu$VFu/GYTu Ѫ mv<prHu\VFuHcrsZcr ``*cr ow cr cr$mwerh%Qbwh% crͫcr0%w LmwQmwh%$p'#lwmw,io$wAQmwmwcrh% Lmw Wt wwh`K crr&we rwwh% % @:w%h% s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr   pbw crͫcr0%w mwQmw $p'#lwmw p4$wAQmwmwcr XHmw40A $wAmwH w0Hwd wl 0H wH rp sum 3le pH rp sum 3/2; If(pd>25, Sin(360*(25/pd))*Ref(pr,-25), 0)+ If(pd>26, Sin(360*(26/pd))*Ref(pr,-26), 0)+ If(pd>27, Sin(360*(27/pd))*Ref(pr,-27), 0)+ If(pd>28, Sin(360*(28/pd))*Ref(pr,-28), 0)+ If(pd>29, Sin(360*(29/pd))*Ref(pr,-29), 0)+ If(pd>30, Sin(360*(3  @ACAAAAAABBBPDPR# HILBERT CYCLE PERIOD - FINAL-A165HL[(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7([(:)7(d2plwmwwH rp sum 3r8+]rXNrH TL sum 1.,E ```l0 value:=Int(Fml("Hilbert cycle period - final-a")); If(value=6, Mov((H+L)/2,8,S),0) + If(value=7, Mov((H+L)/2,9,S),0) + If(value=8, Mov((H+L)/2,10,S),0) + If(value=9, Mov((H+L)/2,11,S),0) + If(value=10, Mov((H+L)/2,12,S),0) + If(value=11, Mov((H+L)/2,13,S),0) + If(value=12, Mov((H+L)/2,14,S),0) + If(value=13, Mov((H+L)/2,15,S),0) + If(value=14, Mov((H+L)/2,16,S),0) + If(value=15, Mov((H+L)/2,17,S),0)>XxTܚܚX+XXX GXX+l>XAX ܚl6BXݚFEYl  Bhw,p_0<c$u<jw ,Hbw0%w4kwkw0 T$wDGkwver ,ers$Hw8$s erh, (UFu$VFu/GYTu ͫer<prHu\VFuHcrs@Zcr@``*cr ow cr cr$mwer-Qbw- crͫcr0%w LmwQmw-$p'#lwmw,io$wAQmwmwcr- mw Wt wwhH`p crr&weFrww- % @:w%- s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  :pbw: crͫcr0%w mwQmw:b$p'#lwmw p4$wAQmwmwcr: Jmwb40A b$wAmwH wJwd wl J wH TL sum 1cyclH TL sum 1ue=6, Mov((H+L)/2,8,S),0) + If(value=7, Mov((H+L)/2,9,S),0) + If(value=8, Mov((H+L)/2,10,S),0) + If(value=9, Mov((H+L)/2,11,S),0) + If(value=10, Mov((H+L)/2,12,S),0) + If(value=11, Mov((H+L)/2,13,S),0) + If(value=12, Mov((H+L)/2,14,S),0) + If(CtS@@A@A A0A@APA`ApAAAVALUE# HILBERT CYCLE PERIOD - FINAL-A165ZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'Sd2plwmwwH TL sum 1r8+]rXNrH TL sum 2.,E ```l0value:=Int(Fml("Hilbert cycle period - final-a")); If(value=16, Mov((H+L)/2,18,S),0) + If(value=17, Mov((H+L)/2,19,S),0) + If(value=18, Mov((H+L)/2,20,S),0) + If(value=19, Mov((H+L)/2,21,S),0) + If(value=20, Mov((H+L)/2,22,S),0) + If(value=21, Mov((H+L)/2,23,S),0) + If(value=22, Mov((H+L)/2,24,S),0) + If(value=23, Mov((H+L)/2,25,S),0) + If(value=24, Mov((H+L)/2,26,S),0) + If(value=25, Mov((H+L)/2,27,S),0)>XxTܚܚX+X'XX GXX+l>XAX ܚl6BXݚFEYl  Bhw,Ih'<c$uh'<jw ,Hbw0%w4kwkwh' T$wDGkwverh' ,ers$Hw8$s erhh', (UFu$VFu/GYTu ͫer<prHu\VFuHcrsDZcrD``*cr ow cr cr$mwer$Qbw$ crͫcr0%w LmwQmw$$p'#lwmw,io$wAQmwmwcr$ mw Wt wwhP`p crr&weJrww$ % @:w%$ s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  N,pbwN, crͫcr0%w mwQmwN,$p'#lwmw p4$wAQmwmwcrN, Jmw40A $wAmwH wJwd wl J wH TL sum 2e peH TL sum 26, Mov((H+L)/2,18,S),0) + If(value=17, Mov((H+L)/2,19,S),0) + If(value=18, Mov((H+L)/2,20,S),0) + If(value=19, Mov((H+L)/2,21,S),0) + If(value=20, Mov((H+L)/2,22,S),0) + If(value=21, Mov((H+L)/2,23,S),0) + If(value=22, Mov((H+L)/2,24,S),0) + ISA@AAAAAAAAAAAVALUE# HILBERT CYCLE PERIOD - FINAL-A165ZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'Sd2plwmwwH TL sum 2r8+]rXNrH TL sum 3.,E ```l0value:=Int(Fml("Hilbert cycle period - final-a")); If(value=26, Mov((H+L)/2,28,S),0) + If(value=27, Mov((H+L)/2,29,S),0) + If(value=28, Mov((H+L)/2,30,S),0) + If(value=29, Mov((H+L)/2,31,S),0) + If(value=30, Mov((H+L)/2,32,S),0) + If(value=31, Mov((H+L)/2,33,S),0) + If(value=32, Mov((H+L)/2,34,S),0) + If(value=33, Mov((H+L)/2,35,S),0) + If(value=34, Mov((H+L)/2,36,S),0) + If(value=35, Mov((H+L)/2,37,S),0)>XxTܚܚX+XXX GXX+l>XAX ܚl6BXݚFEYl  Bhw,g0<c$u<jw ,Hbw0%w4kwkw0 T$wDGkwver ,ers$Hw8$s erh, (UFu$VFu/GYTu ͫer<prHu\VFuHcrsDZcrD``*cr ow cr cr$mwer/Qbw/ crͫcr0%w LmwQmw/$p'#lwmw,io$wAQmwmwcr/ mw Wt wwhP`p crr&weJrww/ % @:w%/ s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrsZcr*crxowxDcrx cr  :pbw: crͫcr0%w mwQmw:b$p'#lwmw p4$wAQmwmwcr: Jmwb40A b$wAmwH wJwd wl J wH TL sum 3e peH TL sum 36, Mov((H+L)/2,28,S),0) + If(value=27, Mov((H+L)/2,29,S),0) + If(value=28, Mov((H+L)/2,30,S),0) + If(value=29, Mov((H+L)/2,31,S),0) + If(value=30, Mov((H+L)/2,32,S),0) + If(value=31, Mov((H+L)/2,33,S),0) + If(value=32, Mov((H+L)/2,34,S),0) + ISA@AAAAABBB BBBVALUE# HILBERT CYCLE PERIOD - FINAL-A165ZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'SZHL'Sd2plwmwwH TL sum 3r8+]rXNrHilbert cycle period - 1a```l0value1:=((H+L)/2) - Ref(((H+L)/2),-6); value2:= Ref(value1,-3); value3:=0.75*(value1-Ref(value1,-6)) + 0.25*(Ref(value1,-2)-Ref(value1,-4)); inphase:= 0.33 * value2 + (0.67 * PREV); quad:= 0.2 * value3 + ( 0.8 * PREV); p1:=Atan(Abs(quad+Ref(quad,-1)),Abs(inphase+Ref(inphase,-1))); phase:=If(inphase<0 AND quad>0, 180-p1, If(inphase<0 AND quad<0, 180+p1, If(inphase>0 AND quad<0, 360-p1,p1))); dp:=If(Ref(phase,-1)<90 AND phase>270, 360+Ref(phase,-1)-phase,Ref(phase,-1)-phase); dp2:=If(dp < 1, 1, If(dp > 60, 60, dp)); dp2xmwQmw4h1$plwmw $wAQmwmwerh mw010A 1($wAmwH wwd w  F&unct Bhw0h4kwkwh T$wDGkwverh ,hs$Hw8$s 0%w 4kw mv(UFu$VFu/GYTu i(mv<prHu\VFuHcrs.Zcr ``*cr ow cr cr$erQbw crͫcr0%w LmwQmw$p'#lwmwer$wAQmwmwcr mwd wt wwh8` crr&we4rww % @:w% s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs2Zcr2*crxowxDcrxcr*pbw* crͫcr0%w mwQmw*؟$p'#lwmwp4$wAQmwmwcr* mw؟40A؟$wAmwH wwd wl 8wHilbert cycle period - 1at cycle period - 1aalue1,-6)) + 0.25*(Ref(value1,-2)-Ref(value1,-4)); inphase:= 0.33 * value2 + (0.67 * PREV); quad:= 0.2 * value3 + ( 0.8 * PREV); p1:=Atan(Abs(quad+Ref(quad,-1)),Abs(inphase+Ref(inphase,-1))); phase:=If(inphase<0 AND 0H@@@@@?>@>+?L>L??4CCBCpB VALUE1VALUE2VALUE3INPHASEQUADP1PHASEDPDP2HLHL)7>)7)7>()7)7>(( (T ( (T )7)7Y[P>YYP[YP>)7Y[P)7>)7>Y[d2period - 1aplwmwwHilbert cycle period - 1aNrHilbert cycle period - final-a```l0c1:=Fml( "H cycle count 1a") + Fml( "H cycle count 2a") + Fml( "H cycle count 3a") ; c2:=If(c1=0,PREV,c1); (0.25*c2) + (0.75*PREV)4, Bhwޚޚ*>X ޚ >X4c$up9mv0{j"ux04ޜmv0 H5!&u@HWk"uLc$uHW\D&uHW`,5?&ulDD?&uIWXXFEY(>XxTܚܚX+XXX GXX+l>XAX ܚl6BXݚFEYl  Bhw,o*<c$u*<jw ,Hbw0%w4kwkw* T$wDGkwver* ,ers$Hw8$s erh*, (UFu$VFu/GYTu ͫer<prHu\VFuHcrsZcr``*cr ow cr cr$mwerT$QbwT$ crͫcr0%w LmwQmwT$$p'#lwmw,io$wAQmwmwcrT$ mw Wt wwh` crr&werwwT$ % @:w%T$ s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs<Zcr<*crxowxDcrxcrpbw crͫcr0%w mwQmw؟$p'#lwmwp4$wAQmwmwcr Xmw؟40A؟$wAmwH w0wd wl 0BwHilbert cycle period - final-ale period - final-a,c1); (0.25*c2) + (0.75*PREV)`.`>@?C1C2 H CYCLE COUNT 1A162 H CYCLE COUNT 2A163 H CYCLE COUNT 3A164Z T ( (T d2period - final-alwmwwHilbert cycle period - final-aInstantaneous Trend Line```l0pr:=(H+L)/2; (Fml("H TL sum 1") + Fml("H TL sum 2") + Fml("H TL sum 3")); 0.33*(pr + (0.5*(pr-Ref(pr,-3)))) + (0.67*PREV)3fh4, Bhwޚޚh)>X ޚ >X4c$up9mv0{j"ux04ޜmv0 H5!&u@HWk"uLc$uHW\D&uHW`,5?&ulDD?&uIWXXFEY(>XxTܚܚX+X)XX GXX+l>XAX ܚl6BXݚFEYl  Bhw,h)<c$uh)<jw ,Hbw0%w4kwkwh) T$wDGkwverh) ,ers$Hw8$s erhh), (UFu$VFu/GYTu ͫer<prHu\VFuHcrsZcr``*cr ow cr |cr|$mwer&Qbw& |crͫcr0%w LmwQmw&$p'#lwmw,{io$wAQmwmwcr& |mw W{t wwh`p |crr&werww& |% @:w%& |s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs0Zcr0*crxowxDcrxcrN.pbwN. crͫcr0%w mwQmwN.$p'#lwmwp4$wAQmwmwcrN. Jmw40A$wAmwH wJwd wl J6wInstantaneous Trend Linentaneous Trend Line5*(pr-Ref(pr,-3)))) + (0.67*PREV)t8Tc$uP9mvp{j"uxptޜmvp5!&utHWk"uc$utHWD&utHWl5?&uD?&uIW utf@>?@@+?PR H TL SUM 1172 H TL SUM 2173 H TL SUM 3174HL)7>(( (T d2Trend LineplwmwwInstantaneous Trend LineNrSinewave Indicator```l0pd:=Int(Fml("Hilbert cycle period - final-a")); cp:=Fml("Hilbert cycle period - final-a"); ip:=Fml( "H ip sum 1") + Fml( "H ip sum 2") + Fml( "H ip sum 3"); rp:=Fml( "H rp sum 1") + Fml( "H rp sum 2") + Fml( "H rp sum 3"); dc1:=If(Abs(ip)>0.001, Atan(rp/ip,1), 90*If(rp>=0,1,-1)); dc2:=If(pd<30 AND cp>0,dc1+((6.818/cp - 0.227)*360),dc1); dc3:=If(ip<0, dc2+270, dc2+90); dcp:=If(dc3>315, dc3-360, dc3); Sin(dcp); Sin(dcp+45)ܚܚX+X.XX GXX+l>XAX ܚl6BXݚFEYl  Bhw,o.0<c$u.<jw0 ,Hbw0%w4kwkw.0 T$wDGkwver. ,ers$Hw8$s erh., (UFu$VFu/GYTu ͫer<prHu\VFuHcrsbZcrb``*cr ow cr cr$mwerN/QbwN/ crͫcr0%w LmwQmwN/$p'#lwmw,io$wAQmwmwcrN/ mw Wt wwhh` crr&wehrwwN/ % @:w%N/ s$Hw8$sx6Ors$Hw8$UFu$VFuGYTuxxUFuprHu\VFuHcrs$Zcr$*crxowxDcrxcr'pbw' crͫcr0%w mwQmw'b$p'#lwmwp4$wAQmwmwcr' mwb40Ab$wAmwH wwd wl *wSinewave IndicatorSinewave Indicator - final-a"); ip:=Fml( "H ip sum 1") + Fml( "H ip sum 2") + Fml( "H ip sum 3"); rp:=Fml( "H rp sum 1") + Fml( "H rp sum 2") + Fml( "H rp sum 3"); dc1:=If(Abs(ip)>0.001, Atan(rp/ip,1), 90*If(rp>=0,1,-1)); dc2:=If(pd<30 AND cp>0,dc1t  o:?BA-@rh>CCC4BPDCPIPRPDC1DC2DC3DCP# HILBERT CYCLE PERIOD - FINAL-A165 H IP SUM 1166 H IP SUM 2167 H IP SUM 3168 H RP SUM 1169 H RP SUM 2170 H RP SUM 3171Uequ~[])(Y[P>(Y[>::d2atorplwmwwSinewave IndicatorrXNr