<p> pts(data,spec)</p>

05c6a243-5328-4fe7-95e2-defc5a2aa149 7 4 5 decimal

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

Lo 0.5 : (fillet symmetry ≡ n x G Lo Lo x n^+ / : 21 line

u 0 x ≤ :

α 0.5 :

X 1 α / :

Y Lo Lo 1 + / : 0.3333

plot 20 α x * G u * 12 x G u * 6 x G u * 4 x G u * Lo Lo 1 + / X 1 X 022 mat 61 sys :

plot

===========================================================

n 10 :

ε 0.025 :

x 0 1.3 0.001 range :

ωc 1 :

x H 11 ε n x ωc / acosh * cosh 2^* + / :

x H 1 2 1 sys

=========================================================

x H 0.306214 x 2^* 0.537834 + x 3^1.026452 x 2^* + 1.047986 x * + 0.539386 + / :

u 0 x ≤ :

edge i x * H abs 2 sqrt 2 / - x solve (: 0.9291 - 0.9291 21 mat

i x * H abs 2 sqrt 2 / 0.929 1 0.929 0 2 2 mat 3 1 sys

=====================================================

data spec pts i 1 data rows range p i el a b c spec : for v p 1 el : Unest 'p' j 2 p rows range v v p j el stack : for data v augment 51 line :

vx vy a b c plotG a char ≡ b size ≡ c color ≡ 13 mat n vx length : plot vx 1 el vy 1 el a b c augment : i 2 n range plot plot vx i el vy i el a b c augment stack : for plot 51 line :

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 :

'N' pts in range [L, H] L H N xd U 0 : dx H L - N / : i 1 N range U i el L dx - (dx i * + : for U 41 line :

α 20 : (set the span ≡ β 17 : (ellipse oblate ≡ 21 line

3 α / 12 α / β α / 12 α / 3 α / 15 mat

smooth notch 1464115 mat

Filter 120414 mat transpose :

3 α / 12 α / 17 α / 12 α / 3 α / 15 mat

120414 mat

N 65 :

N sets the span of the Dirac ≡

Dirac n 1 N range n Filter rows ≤ Dirac n el Filter n el : Dirac n el 0 : if for Dirac 21 line :

V Dirac ifft :

NN V length : L 0 : H π : U L H NN xd : 41 line

Vectorise on length 'V' F t U : Ω V mat2sys abs sys2mat : t Ω augment 31 line :

V length 66

a b c spec . 10 black 13 mat :

scale 1 F 12 el / : 1.151751

pts scale F * a b c spec pts :

vy scale F * 2 col :

vy rows 66

Smath style [Fourier-Dirac Discrete Filter]

pts scale F * 2 1 sys

vy Min 0.225689

v tresh first j N 2 / Ceil : v j el abs tresh ≥ j j 1 + : while j v j el 21 mat 31 line :

vy 0.1 first #