e8a229d6-9b55-4aa5-b96f-96d09a00c913 32 6 9 decimal

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

The "for loop counter inclusive"

3D plot M 1003 matrix : k 1 : k M rows ≤ k k 1 + : M k 1 el k cos 1 * : M k 2 el 2 k * sin 0.5 * : 21 line for 21 line

2D plot [points ,line] m 5002 matrix : k 1 : k m rows ≤ k k 1 + : m k 1 el k cos 1 * : m k 2 el 2 k * sin 0.5 * : 21 line for 21 line

m 0 m 2 1 sys

step 1 # # 21 line

step 2 f(x)menu for(4) # # # # # for 21 line

step 3 fill arguments # # # # # # 21 line for 21 line

=====================================================================================

data UnestRow v data 1 el : j 2 data rows range v v data j el stack : for v 31 line :

Note: 1. more symbols [+,.,o,*,x] 2. more colors from "web color code"

size 10 :

color blue :

Creates a vector of nested rows.
Next: Unest this "nested vector" k 1 : k 10 ≤ k k 1 + : plot k el k k sin . size color 15 mat : for

Option for export discrete 'sin(x)".
x <= from f(x) menu range(3) sin x 015 0.01 range : i 1 x rows range sin i el x i el sin : for x sin augment 31 line :

plot plot UnestRow :

mixed plot Plot plot x sin 21 sys :

The Unested vector plot 1 0.841471 . 10 blue 2 0.909297 . 10 blue 3 0.14112 . 10 blue 4 0.756802 - . 10 blue 5 0.958924 - . 10 blue 6 0.279415 - . 10 blue 7 0.656987 . 10 blue 8 0.989358 . 10 blue 9 0.412118 . 10 blue 10 0.544021 - . 10 blue 105 mat

Plot

The Lissajous Project

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

Lissajous L x 02 π * 0.01 range : i 1 x rows range cos i el x i el cos : sin i el 2 x i el * sin 0.5 * : 21 line for cos sin augment 31 line :

Equipolar points on Lissajous Lpts x 02 π * 2 π 12 / * range : i 1 x rows range cos i el x i el cos : sin i el 2 x i el * sin 0.5 * : 21 line for cos sin augment 31 line :

vx Lpts 1 col : vy Lpts 2 col : V vx vy . 13 black plotG : 31 line

0 L V 3 1 sys