$\vec{a}$

$\vec{b}$

Winkel BSC

Winkel ESG

Winkel BSD

A: (0, 0, 0)
a = 6 (slider from 0 to 10)
h = 5 (slider from 0 to 10)
C: (a, a, 0)
B: (a, -1, 0)
D: (0, a, 0)
S: (a / 2, a / 2, h)
d1, c, s, b = Polygon(S, B, C)
d2, d, s_1, c_1 = Polygon(S, C, D)
d3, a_1, s_2, d_1 = Polygon(S, D, A)
d4, b_1, s_3, a_2 = Polygon(S, A, B)
E: (a / 2, 0, 0)
F: (a, a / 2, 0)
G: (a / 2, a, 0)
H: (0, a / 2, 0)
f = Segment(E, S)
g = Segment(F, S)
i = Segment(G, S)
j = Segment(H, S)
α = Angle(B, S, C)
β = Angle(E, S, G)
γ = Angle(B, S, D)
d5, c_2, b_2, s_4 = Polygon(B, S, C)
d6, s_5, e_1, g_1 = Polygon(E, G, S)
d7, d_2, b_3, s_6 = Polygon(B, S, D)
v1 = Vector(S, C)
v2 = Vector(S, B)
e = true
v3 = Vector(S, G)
v4 = Vector(S, E)
k = false
v5 = Vector(S, B)
v6 = Vector(S, D)
l = false
t1: ((v1 * v2)) / ((abs(v1) * abs(v2)))
t2: ((v2 * v1)) / ((abs(v2) * abs(v1)))
w1: acosd(t1)