<p> Radial Stem </p>

0dee3cde-7416-492a-9cb4-f9ad87aae2bb 4 15 12 decimal

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

a 816 π * sqrt * : 351.67021

x y Φ 1 - 3 / x 2^y 2^+ sqrt * exp 2 y 2^* - x 2^+ a / * - 0.005 + :

1. PC is open, no Smath. 2. Open Smath session, 3. Select background [235,235,235] 4. Leave this 235 gray selected 5. Install Φ(x,y) 6. Insert X_Y plot ... plot Φ argument 7. New background [255,225,225]...pink 8. Don't leave pink selected, 9. Add background: select pink or else

<p> Radial Stem </p>

--------
radius circle
-------- Y0 01031 mat :

t0 0 : t1 2 π * : N 360 : 31 line

Rename: Y => .. else variable name t u D u 2 el u 3 el 1 u 1 el (2^- (* u 2 el * (u 1 el - 031 mat :

Either 'rkfixed' or 'Rkadapt' s Y0 t0 t1 N t u D dn_GearsBDF :

X s 2 col : Y s 3 col : 12 mat SOL X Y augment : 21 mat

Core component of the stem style 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 + : 21 line if for T 31 line :

Stem construction vy stem N vy length : i 1 N range q i el 3 : q N el 2 : 21 line for 11 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 12 submatrix : 71 line :

i j pie SOL i j range 12 range el :

i j p i j pie 1 col stem 2 col i j pie 2 col stem 2 col augment :

pie 190 p 90135 p 135180 p 180220 p 220300 p 300360 p 61 sys :

pie

22525512813 mat