a = 1 (slider from -5 to 5, step 0.1)
b = 0.18 (slider from 0 to 0.4, step 0.01)
Liste1 = Sequence((i, sin(b * i), cos(b * i)), i, 1, 20)
Liste2 = Sequence((i, -sin(b * i), -cos(b * i)), i, 1, 20)
c = 0.4 (slider from 0 to 2, step 0.1)
Liste4 = Sequence(Sphere[Element[Liste1, i], c], i, 1, 20)
Liste5 = Sequence(Sphere[Element[Liste2, i], c], i, 1, 20)
Liste3 = Sequence(Cylinder[Element[Liste1, i], Element[Liste2, i], 0.1], i, 1, 20)
d, e, f, g = Cylinder(Element[Liste1, 1], Element[Liste2, 1], c / 2)
Liste6 = Sequence(Cylinder[Element[Liste1, i], Element[Liste2, i], c / 2], i, 1, 20)
h, k, p, i = Cylinder(Element[Liste1, 2], Element[Liste2, 2], c / 2)
j, q, r, l = Cylinder(Element[Liste1, 3], Element[Liste2, 3], c / 2)
m, s, t, n = Cylinder(Element[Liste1, 4], Element[Liste2, 4], c / 2)
o, c_1, d_1, u = Cylinder(Element[Liste1, 5], Element[Liste2, 5], c / 2)
v, e_1, f_1, w = Cylinder(Element[Liste1, 6], Element[Liste2, 6], c / 2)
z, g_1, h_1, a_1 = Cylinder(Element[Liste1, 7], Element[Liste2, 7], c / 2)
b_1, k_1, p_1, i_1 = Cylinder(Element[Liste1, 8], Element[Liste2, 8], c / 2)
j_1, q_1, r_1, l_1 = Cylinder(Element[Liste1, 9], Element[Liste2, 9], c / 2)
m_1, s_1, t_1, n_1 = Cylinder(Element[Liste1, 10], Element[Liste2, 10], c / 2)
o_1, c_2, d_2, u_1 = Cylinder(Element[Liste1, 11], Element[Liste2, 11], c / 2)
v_1, e_2, f_2, w_1 = Cylinder(Element[Liste1, 12], Element[Liste2, 12], c / 2)
z_1, g_2, h_2, a_2 = Cylinder(Element[Liste1, 13], Element[Liste2, 13], c / 2)
b_2, k_2, p_2, i_2 = Cylinder(Element[Liste1, 14], Element[Liste2, 14], c / 2)
j_2, q_2, r_2, l_2 = Cylinder(Element[Liste1, 15], Element[Liste2, 15], c / 2)
m_2, s_2, t_2, n_2 = Cylinder(Element[Liste1, 16], Element[Liste2, 16], c / 2)
o_2, c_3, d_3, u_2 = Cylinder(Element[Liste1, 17], Element[Liste2, 17], c / 2)
v_2, e_3, f_3, w_2 = Cylinder(Element[Liste1, 18], Element[Liste2, 18], c / 2)
z_2, g_3, h_3, a_3 = Cylinder(Element[Liste1, 19], Element[Liste2, 19], c / 2)
b_3, k_3, p_3, i_3 = Cylinder(Element[Liste1, 20], Element[Liste2, 20], c / 2)