Stem & RK Vector

4fa23a8c-4ab7-4c4a-a2a8-085b5a9ed2c0 40 3 5 decimal

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

Stem & RK Vector

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 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 :

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 :

radial 2.5 : radial extend ≡ Ro 2 : Great ciecle radius ≡ r1 1.5 : inner circle radius ≡ Nradial 12 : divide in N sectors ≡ 41 line

Radial grid [polar plot style]

Radial Grid Construction

Great circle for radial s 0 radial 031 mat 02 π * Nradial t u D Rkadapt : R s 2 col s 3 col augment : radial R 1 col stem 2 col R 2 col stem 2 col augment : 31 line

Great circle C 0 Ro 031 mat 02 π * 72 t u D Rkadapt : C C 2 col C 3 col augment : 21 line

Inner circle c1 0 r1 031 mat 02 π * 72 t u D Rkadapt : c1 c1 2 col c1 3 col augment : 21 line

Lissajous preparation t fX 1.5 t sin * : t fY 0.75 2 t * sin * : start 0 : end 2 π * : 12 mat t start end start 0.01 + (range : 41 line

i 1 t rows range X i el t i el fX eval : for

i 1 t rows range Y i el t i el fY eval : for

Lissajous X Y augment : λissajous Y X augment : Point Lissajous 100 row : 31 sys

Radial sectors 360 ° * Nradial / deg 30

radial C c1 Lissajous Point λissajous 6 1 sys

Unform ...  -1 < rnd < 1 n rnd μ n 11 line : 2 μ Random * 1 - 21 line :

'N' decimals ...Uniform ... -1 < rnd < 1 n N Nrnd i 1 n range r i el n rnd i el N round : for r 21 line :

vx 732 Nrnd : vy 732 Nrnd : Random c1 1 col vx 5 / + (c1 2 col vy 5 / + (augment : 31 line

c1 3 col vy + #

radial C c1 Random 4 1 sys