無窮等比級數的應用
Author: 藍邦偉  老師

無窮等比級數的應用

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
f(x) = 2 * sin(x) + cos(2 * x) + 2
A = Point(u)
r = 0 (slider from 0 to 1, step 0.1)
α = 1.3089969389957472 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
n = 0 (slider from 0 to 150, step 1)
i = (0, 1)
list1 = Sequence(A * (r * cos(α) + sin(α) * i)^(t), t, 0, n)
list2 = Join({{(0, 0)}, Sequence[Sum[list1, i], i, 1, n + 1]})
list3 = Sequence(Segment[Element[list2, i], Element[list2, i + 1]], i, 1, n + 1)
P = Element(list2, n + 2)