2418a9af-61ae-4e4e-91b0-3b766d877230 14 15 12 decimal

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

F 1000 :

f 48000 :

A 3.505 :

h 1000 :

k f F / : 48

a 21 * π * k 1 -^* :

D A round :

j 0 k h 1 -^range :

x floor x 0 round x < x 0 round x 0 round 1 - if :

A a j B * sin * 0.5 + Floor

j B j h 1 -^+ Floor :

j U A a j * sin * :

j Ud A a j B * sin * :

j Uq A a j B * sin * 0.5 + Floor :

j Eq j Uq j Ud - :

Eqef j Eq 2^j 0 f sum h k * / sqrt : #

Kg Eqef 100 * 2 sqrt * A / :

k 48

Kg #

x 0 k h 1 -^range :

j length 48001

this the equivalent of Mathcad 
range summation
codedd as a local definition j Eqef j n el Eq (2^(n 148 sum h y * / sqrt 11 line :

# # # 21 line :

# # # backspace to delete ≡ 21 line :

j j Uq vectorize augment j j U vectorize augment j j Eqef vectorize augment 3 1 sys j j Eq vectorize augment