a = 2 (slider from 0 to 5, step 0.01)
h: a * (2 / 3)^(1 / 2)
ys: a * (3 / 4)^(1 / 2)
d = 0 (slider from -1 to 5, step 0.1)
A: ((-a) / 2 - d, 0, 0)
B: ((-a) / 2 - h - d, a / 2, (-ys) / 3)
D: ((-a) / 2 - h - d, 0, 2 * ys / 3)
C: ((-a) / 2 - h - d, (-a) / 2, (-ys) / 3)
m: a / (2 * 6^(1 / 2))
E: ((-a) / 2 - h + m - d, 0, 0)
b = Distance(E, A)
c = Distance(E, D)
radiusc = 0.24 (slider from 0 to 2, step 0.01)
radiush = 0.22 (slider from 0 to 2, step 0.01)
e = Sphere(E, radiusc)
g = Sphere(B, radiush)
i = Sphere(C, radiush)
j = Sphere(D, radiush)
k, p, q, l = Cylinder(E, A, radiush / 3)
n, r, s, o = Cylinder(E, B, radiush / 3)
t, c_1, d_1, u = Cylinder(E, C, radiush / 3)
v, e_1, f_1, w = Cylinder(E, D, radiush / 3)
drehwinkel = 60 (slider from -60 to 120, step 1)
alpha: drehwinkel * π / 180
bny: cos(alpha) * y(B) - sin(alpha) * z(B)
cny: cos(alpha) * y(C) - sin(alpha) * z(C)
bnz: sin(alpha) * y(B) + cos(alpha) * z(B)
dny: cos(alpha) * y(D) - sin(alpha) * z(D)
dnz: sin(alpha) * y(D) + cos(alpha) * z(D)
F: ((-a) / 2 - d + m, bny, bnz)
cnz: sin(alpha) * y(C) + cos(alpha) * z(C)
G: ((-a) / 2 - d + m, cny, cnz)
H: ((-a) / 2 - d + m, dny, dnz)
f = Sphere(A, radiusc)
z = Sphere(F, radiush)
a_1 = Sphere(G, radiush)
b_1 = Sphere(H, radiush)
g_1, h_1, k_1, i_1 = Cylinder(A, F, radiush / 3)
j_1, p_1, q_1, l_1 = Cylinder(A, G, radiush / 3)
m_1, r_1, s_1, n_1 = Cylinder(A, H, radiush / 3)
suabst2: 1 / Distance[B, F] + 1 / Distance[B, G] + 1 / Distance[B, H] + 1 / Distance[C, F] + 1 / Distance[C, G] + 1 / Distance[C, H] + 1 / Distance[D, F] + 1 / Distance[D, G] + 1 / Distance[D, H]
Text1: "Summe der 1/Abstände der 
linken 3 Wasserstoffatome 
zu den rechten 3 Wasserstoffatomen
ist " + suabst2 + "
α=" + drehwinkel + " Grad"