Pickover
As originally coded by Ignasi Alvarez Garriga (I think...)
; Pickover attractor
;
; x' = sin(ay) - z cos(bx)
; y' = z sin(cx) - cos(dy)
; z' = sin(x)
;
; parameters : a, b, c, d
;
; Ignasi Alvarez, 1998
; Rev. 2005
izoom = p4
ipanL = sqrt(p5)
ipanR = sqrt(1-p5)
kgain = <gain>
ka = <paramA>
kb = <paramB>
kc = <paramC>
kd = <paramD>
kdt = <dt>
kdt2 = kdt/2
kgainx = <gainX>
kgainy = <gainY>
kgainz = <gainZ>
; les variables kfun es necessiten per calcular els valors amb l'opcode sin i cos
kfun1 init 0
kfun2 init 0
kfun3 init 0
kfun4 init 0
kpimedios = 1.570796326795
ky init 1
kz init 1
kx init 1
kxo init 0
kyo init 0
kzo init 0
kynew init 0
kxnew init 0
kznew init 0
kynewo init 0
kxnewo init 0
kznewo init 0
kcont init 0
loop:
;sistema d'equacions
kfun1 = sin(ka*ky*kpimedios)
kfun2 = cos(kb*kx*kpimedios)
kfun3 = sin(kc*kx*kpimedios)
kfun4 = cos(kd*ky*kpimedios)
kxnew=kfun1-kz*kfun2
kynew=kfun3*kz-kfun4
kznew= sin(kx)
kxo=kx
kyo=ky
kzo=kz
kxnewo=kxnew
kynewo=kynew
kznewo=kznew
kx=kxo+kxnewo*kdt
ky=kyo+kynewo*kdt
kz=kzo+kznewo*kdt
;sistema d'equacions
kfun1 = sin(ka*ky*kpimedios)
kfun2 = cos(kb*kx*kpimedios)
kfun3 = sin(kc*kx*kpimedios)
kfun4 = cos(kd*ky*kpimedios)
kxnew=kfun1-kz*kfun2
kynew=kfun3*kz-kfun4
kznew= sin(kx)
kx=kxo+kdt2*(kxnew+kxnewo)
ky=kyo+kdt2*(kynew+kynewo)
kz=kzo+kdt2*(kznew+kznewo)
kcont=kcont+1
if kcont!=izoom kgoto loop
kcont=0
asig1 = (kx*kgainx+ky*kgainy+kgainz*kz)*kgain
; Optionally output to a Display object:
;outvalue "kdisplax", 1.25+kx/5
;outvalue "kdisplay", 1.25+ky/5
blueMixerOut asig1*ipanL,asig1*ipanR
paramA
61
34
true
0.954
0.965
0.954
80
true
79
135
paramB
154
34
true
0.415
0.438
0.423018
80
true
172
135
paramC
245
34
true
0.731
0.74
0.734963
80
true
263
135
paramD
334
34
true
0.215
0.217
0.217
80
true
352
135
dt
61
164
true
2.0E-4
0.2
0.134925
80
true
93
266
gainX
152
164
true
-5000.0
5000.0
-605.0
80
true
173
264
gainY
242
164
true
-5000.0
5000.0
1304.0
80
true
263
264
gainZ
334
164
true
-5000.0
5000.0
-639.0
80
true
355
264
gain
469
62
true
0.01
5.0
3.2612545
60
false
464
138