466a1cb9-b14a-4e87-b6d3-963212b43287 9 15 12 decimal

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

Fourier "ifft" from padded created vector [Numeric] v ifft N v length : s 1 N sqrt / : 12 mat n 0 N range I n 1 + el s (v k 1 + el e i 2 π * n * N / (* k * -^* (k 0 N 1 - sum eval * : for I 31 line :

pad 39 :

Fourier OFF center padding Y n 2 pad * 1 - (: i pad n range Y i el 1 : for i pad 1 + (n range Y i el 0 : for Y 1 el 1 : Y 2 pad * 1 - el 1 : 51 line :

U Y ifft mat2sys sys2mat :

Y rows 77

a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : cardio a 3 round vectorize b 3 round vectorize augment : 31 line

CWD C:\SmathFile CurrentDirectory :

cardio CWD FourierCardio wfile 1

Ω CWD FourierCardio rfile :

Ω rows 78

τ 178 range :

[x(t), y(t] select pairwise in descending order each row of Ω and respectively col [1, 2] that correspond to X,Y Cartesian plot. The animate 'τ' is the descending operator.

t x Ω t row 1 col :

t y Ω t row 2 col :

monkey t x t y . 14 red 15 mat :

alternately points <= plot => lines

Ω monkey 2 1 sys