29a8ee5a-06e9-4c01-8b9f-29bd9e8ff6a2 15 4 5 decimal

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

iVBORw0KGgoAAAANSUhEUgAAARMAAAFKCAYAAAA+KLuHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP6SURBVHhe7dQhAQAgAAQx+vd9DSE4ObEKO9suwC+ZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAAmZAIHdB1cZM5pYMyKOAAAAAElFTkSuQmCC

The washer project ...

solve aperture Ω 1.5 : OD 2 : 21 sys

svg 0.75 :

approximate 'w' w OD w i π * w /^eval * Re Ω - 0 ≡ w 12 solve : 1.37072544892017

'n' population
'w' aperture  
radius OD svg n 1000 : w w : OD 2 : 31 sys *

a svg OD w i π * w /^eval * Re * : 1.125000005738570

Disk j 1 n range F j el OD w i 2 * π * j w / *^eval * : for F Re F Im augment 21 line :

x circle a 2^x 2^- sqrt ± :

x Circle svg OD * (2^x 2^- sqrt ± :

a 0 + 50 blue 1 5 mat svg OD * 1 svg OD * 1 - 2 2 mat x circle svg Disk * 4 1 sys x circle x Circle 2 1 sys

a 0 + 200 blue 15 mat svg OD * 1 svg OD * 1 - 22 mat x circle svg Disk * 41 sys

The solve bloc can be refined for greater accuracy. Done manually as demo. I found no method to zig-zag the convergence. FindRoot option offered.

1.37072544892017

refine 'w' manually w 1.37072545397259 :

a svg OD w i π * w /^eval * Re * : 1.125000000000000

Alternate option demo ...

solve aperture Ω 1.5 : OD 2 : 21 sys

system OD ω i π * ω /^eval * Re Ω - 0 ≡ :

guess > 1 from solve above init ω 1.25 ≡ :

decrease TOL up to no change TOL 1012 -^:

X system init TOL FindRoot : 1.37072545397259

svg 0.75 :

sanity check svg OD X i π * X /^eval * Re * 1.125000000000000