<p> ifft(v) </p>

c902bc5b-337e-40c9-8bb2-e8f172d64db5 5 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 :

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 41 line :

U Y ifft mat2sys sys2mat :

pad 9 :

a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : 21 line

Y rows 17

Y transpose 00000000100000000117 mat

a b augment

pad 2 triangle ≡ 3 penta star ≡ 4 epta star ≡ # 9 bulleye star ≡ 51 mat ≡

Fourier CENTER padding Y n 2 pad * 1 - (: i 1 n range Y i el 1 : for i 2 n 1 - range Y i el 0 : for Y 41 line :

pad 4 :

U Y ifft mat2sys sys2mat :

Y rows 7

a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : P a b augment : 31 line

Y transpose 100000117 mat

vx P 23 range 11 range el : vy P 23 range 22 range el : 21 sys

β 0.625 :

b vx vy Intercept (: a vx vy Slope (: 21 mat 0.436 0.228 - 21 mat

x p a x * b + :

x f β x * :

X x p x f - 0 ≡ x 01 solve : 0.51

P x f x p 3 1 sys

U P 1 col :

U 0.755929 0.613621 0.293859 0.03743 0.03743 0.293859 0.613621 0.755929 81 mat