<content> <p>pClr</p> </content>

96bcb901-f9b1-4f1f-9ac4-4c5f7a8253fe 12 4 5 false false false 0 3 decimal

&[DATE] &[TIME] - &[FILENAME]

Gumowski-Mira Attractor

Mieczysław Gumowski & Ryszard Mira. I can't find a good reference.

C a rgb A C 3 el C 2 el C 1 el 255 a * 14 mat : k Clear 12 mat d 0255 A k el trunc 12 mat min 12 mat max 162 k 1 - (*^* k 14 sum : d 232^2 d * 232^1 - ≥ (* - eval 31 line :

r g b a rgb r g b 13 mat a rgb 11 line :

C rgb C 1 rgb 11 line :

T n a pCMap C 0 : r 1 n range : c 13 range : I 3 identity : 14 mat z r T f 2550 - n 1 - / r 1 - (* I z 1 el row * T + a rgb : T IsString T Jet ≡ m 0.25 n * 0 round 112 mat max eval : 11 mat x 2551 m range m / * : y 255 m / m 2 / m range (* : 12 mat v z v rows 1 matrix : o 255 m 1 matrix + : 12 mat R y z o z x o y reverse stack : G y z x o x reverse y z stack : B y o x reverse o z y z stack : p R length n - : C 1 r el R r p + el G r p + el B r p + el a rgb eval : 81 line T GS ≡ R n a pCMap G n a pCMap + B n a pCMap + rgb RGB T findstr : (1 - ≡ C 1 r el T : C 1 r el rgb r 0 f : if T0 T 0 ≡ (vectorize c el c augment eval 11 findrows 2 col : C 1 r el T0 r T f : 21 line if 31 line :

T x pCMap T x 1 pCMap 11 line :

T pCMap T 16 pCMap 11 line :

z a b CL pClr CL 0 ≡ (CL IsString | CL CL z a - (CL length 1 - b a - / * trunc 1 + el if 11 line :

rnd 109 -^109^random * :

N 10000 :

a 1 - 2 rnd * + eval : 0.6235

b 1 0.95 0.1 rnd * + 12 mat min eval : 1

X 20 - 40 rnd * + 11 mat eval : 13.6128 11 mat

Y 20 - 40 rnd * + 11 mat eval : 9.3518 - 11 mat

x f a x * 21 a - (* x 2^* 1 x 2^+ / + :

n 2 N range X n el b Y n 1 - el * X n 1 - el f + eval : Y n el X n 1 - el - X n el f + eval : 21 line for

X Y . 1 Jet N 0.8 pCMap transpose augment

X max 136.7851

X min 140.9174 -

Y max 110.4112

Y min 110.4112 -

Alvaro

4 appVersion 1.73.9126.0