afd372e7-155c-4d95-9959-6a3f92165f4c 22 4 5 decimal

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

Single length convolution

x h n CONVOL simple convol prepare x k 1 + el h n k - 1 + el * (k 0 n sum 21 line :

N 128 :

t f t 0 ≥ (t * 1 ≤ (4 π * t * sin * :

t H 1 t - f :

shrink/expand 'y'

u v C simple convol construct Note: N is wild i 0 N range C i 1 + el u v i CONVOL : for v C augment 41 line :

x f x H 2 1 sys

a 3 : b 1 : 21 line

j 0 N range X j 1 + el a j * N / f : Y j 1 + el b j * N / H : 21 line for 11 line

Play with coefficients

# j * T * N / f

# j * T * N / H

Interesting inversion

Q X Y C :

Q Y X C :

CWD C:\SmathFile CurrentDirectory :

Q CWD AnimConvol wfile 1

Autocalc => OFF, press F9, size plots.

Ω CWD AnimConvol rfile :

Δ 1 :

τ 1 N range :

t x Ω Δ t * row 1 col :

t y Ω Δ t * row 2 col :

convol t x t y . 15 red 15 mat :

Ω convol 2 1 sys

Cumulative Convolution

Ω t 1 ≡ path Ω 1 row 1 col Ω 1 row 2 col . 10 red 1 5 mat : path path Ω Δ t * row 1 col Ω Δ t * row 2 col . 10 red 1 5 mat stack : if 2 1 sys