r

M

Initialize

i

f(z)=

n

magnify

xr = 3.8 (slider from 0.1 to 5, step 0.1)
P = (6.680332399945423, 1.410387375386552)
xM = 6 (slider from 3 to 30, step 1)
xptsall = Sequence(P + (xr * ℯ^((ί * t))), t, 0, (2 * π), (2 * π / xM))
NK6 = NaN
KC6 = NaN
InputBox1 = Textfield(xfunc)
xn = 1 (slider from 1 to xpnum, step 1)
xk = 1.36 (slider from 0.01 to 5, step 0.01)
xpts = Take(xptsall, 1, xM)
xpnum = Length(xpts)
xfz = Zip(ί, z, xpts)
xvf = Zip(Vector[p, p + (xk * q)], p, xpts, q, xfz)
xvfk = Element(xvf, xn)
xtxt1: "division=" + xpnum + ""
c = Circle(P, xr)
xdz = Sequence(Vector[Element[xptsall, k], Element[xptsall, k + 1]], k, 1, xpnum)
xfdz = Zip((ToComplex[a] * ToComplex[b]), a, xfz, Vector[b], xdz)
xfoots = Append((0, 0), Sequence[Sum[xfdz, k], k, 1, xpnum])
xsumvf = Zip(Vector[p, p + q], p, xfoots, q, Take[xfdz, 1, xn])
xdzk = Element(xdz, xn)
xsumvfk = Element(xsumvf, xn)