%v

input

f(x) =

b = 2.62 (slider from 2 to 5, step 0.01)
a: 0.5
A: (a, 0.5)
c = Circle(A, 0.5)
B: (a, 1)
C: (a, 0)
circles = Sequence(Circle[A + (0, 0, k), B + (0, 0, k), xOyPlane], k, 1, 8)
f(x) = (((-b) * x) * (x - 1))
InputBox1 = Textfield(a)
InputBox2 = Textfield(f)
g = Segment(C, B)
D = Intersect(c, g, 2)
unitMarkers = Sequence(Intersect[c, Segment[B, (k, 0)], 2], k, -5, 5)
InputBox3 = Textfield(b)
L_1 = Sequence(Intersect[c, Segment[B, (k, 0)], 2], k, a - 2, a + 2, 0.05)
L_2 = Sequence(Intersect[Segment[B + (0, 0, 1), (f(x(L_1(k))), 0, 1)], Element[circles, 1], 1], k, 1, Length[L_1])
L_3 = Sequence(Intersect[Segment[B + (0, 0, 2), (f(f(x(L_1(k)))), 0, 2)], Element[circles, 2], 1], k, 1, Length[L_1])
L_4 = Sequence(Intersect[Segment[B + (0, 0, 3), (f(f(f(x(L_1(k))))), 0, 3)], Element[circles, 3], 1], k, 1, Length[L_1])
L_5 = Sequence(Intersect[Segment[B + (0, 0, 4), (f(f(f(f(x(L_1(k)))))), 0, 4)], Element[circles, 4], 1], k, 1, Length[L_1])
L_6 = Sequence(Intersect[Segment[B + (0, 0, 5), (f(f(f(f(f(x(L_1(k))))))), 0, 5)], Element[circles, 5], 1], k, 1, Length[L_1])
L_7 = Sequence(Intersect[Segment[B + (0, 0, 6), (f(f(f(f(f(f(x(L_1(k)))))))), 0, 6)], Element[circles, 6], 1], k, 1, Length[L_1])
L_8 = Sequence(Intersect[Segment[B + (0, 0, 7), (f(f(f(f(f(f(f(x(L_1(k))))))))), 0, 7)], Element[circles, 7], 1], k, 1, Length[L_1])
L_9 = Sequence(Intersect[Segment[B + (0, 0, 8), (f(f(f(f(f(f(f(f(x(L_1(k)))))))))), 0, 8)], Element[circles, 8], 1], k, 1, Length[L_1])
threads = Sequence(PolyLine[{L_1(k), L_2(k), L_3(k), L_4(k), L_5(k), L_6(k), L_7(k), L_8(k)}], k, 1, Length[L_1])