1e279888-9cd3-45b2-bc2b-4b0d51be29ec 14 9 12 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]

Radial grid system

radius of circles & mesh 'n'

setcircles 0.375 0.75 1 1 3 mat : n 24 : 1 2 mat

-------- radius radial --------

Y0 0 1.25 0 3 1 mat : <p> Radial Construction </p>

Rename: Y => .. else variable name

t u RK u 2 el u 3 el 1 u 1 el ( 2 ^ - ( * u 2 el * ( u 1 el - 0 3 1 mat :

Core component of the stem style NUMERIC

P v replicate k 1 : i 1 v length range P i el 1 ≡ continue j 1 P i el range T k j + el v i el : for k k P i el + : 2 1 line if for T 3 1 line :

Stem construction NUMERIC

vy stem N vy length : i 1 N range q i el 3 : q N el 2 : 2 1 line for 1 1 line i 1 N range v i el i : for i 1 N range S 3 i * el vy i el : for u q v replicate : V u S augment : V V 3 V rows 1 2 submatrix : 7 1 line : <p> Circles System </p> 0 2 2 - 0 2 2 mat rkf 1 el rkf 2 el 2 1 mat *

add circle module

 <p> Annalema </p>

Gerono Lemniscate

 1.5708 -

collect ... for fast plot twice faster.

plot C1 C2 C3 radial Gerono Rot axes 7 1 sys : plot A