jsv5D
freq = 8.807
ang_freq = 2 * 3.1415926 * freq
R1 = .0381
N = 50

for n = 1 to size(col(1)) do
 Vn = 1.41421 * cell(1,n)
 BFn = 1 - (1 + (-1)^n) * (.707107)^n + .0001
 BLn = Vn / (ang_freq * N * R1 * BFn)
 cell(3,n) = BLn
end for

for nn = 1 to size(col(1)) do
 phi_Vn = cell(2,nn)
 th_spn = - phi_Vn / nn
 cell(4,nn) = th_spn
end for

for m = 1 to size(col(1)) do
 BL = cell(3,m)
 TH = cell(4,m)
 ALm = - BL * cos(m * TH)
 BLm = BL * sin(m * TH)
 cell(5,m) = ALm
 cell(6,m) = BLm
end for