<p> Stem(data) </p>

dd2228dc-c1b8-4e02-9ff4-a9ed2f6f9802 5 4 5 decimal

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

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

Spectrum stem plot for QuickPlot unicolor data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

Set the canvas before installing the plot argument

Laplace linear diffusion x t f t diff x t f x 2 diff ≡

F α 0.25 : β 20 : 13 mat f => spatial initial conditions i 141 range f 1 i el 0 : f 1 β el 1 : 21 line for recursive finite differences 'x' sol's t 150 range x 240 range f t 1 + x el f t x el (α f t x 1 - el 2 f t x el * - f t x 1 + el + (* + : for for f 61 line :

F F eval :

CWD C:\SmathFile CurrentDirectory :

F CWD Diffusion wfile 1

D CWD Diffusion rfile :

step explorer j 15 :

t Diffusion j 141 range : j D t row transpose augment 21 line :

Highlight a specific diffusion step s j Diffusion . 12 black plot :

τ 140 range :

ω t Diffusion . 12 black plot :

1 Diffusion Stem 2 Diffusion Stem j Diffusion Stem s 4 1 sys t 1 ≡ t diffusion t Diffusion Stem : t diffusion ω 2 1 line if 1 Diffusion Stem 2 1 sys

τ 140 range :

plot t 1 ≡ t diffusion t Diffusion Stem : t diffusion if 1 Diffusion Stem 21 sys :

plot