<p> plotG(vx,vy,char,size,color) </p>

7eff5528-c5c2-446d-979a-9a963e1ac1c3 23 4 5 decimal

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

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 :

L H N xd U 0 : dx H L - N / : i 1 N 1 + (range U i el L dx - (dx i * + : for U 41 line :

N 20 :

u 01 N xd :

a b N var a b a b a - N / + (range :

v 0110 N * var :

D j 1 u rows range y j el i 2 * π * u j el * exp eval : for y Re y Im augment 21 line :

CWD C:\SmathFile CurrentDirectory :

D CWD Disk wfile 1

D CWD Disk rfile :

S j 1 v rows range y j el i 2 * π * v j el * exp eval : for y Re y Im augment 21 line :

X D 1 col : Y D 2 col : p X Y + 12 red plotG : 31 line

'n' population
'w' aperture n 1000 : w 2 π * 3.1 / : 21 sys

Disk j 1 n range F j el w i 2 * π * j w / *^eval : for F Re F Im augment 21 line :

S p x abs sqrt 3 1 sys Disk x abs sqrt 2 1 sys