4strana
Author: OJ

\frac{a}{2}

\frac{a\sqrt{2}}{2}

α = 5.1487212933832724 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
β = 0.31415926535897915 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
O = Intersect(xAxis, yAxis)
v1: sin(α)
w1: -cos(α) sin(β)
E1: (v1, w1)
e1 = Vector(O, E1)
v2: cos(α)
w2: sin(α) sin(β)
E2: (v2, w2)
e2 = Vector(O, E2)
v3 = 0
w3: cos(β)
E3: (v3, w3)
e3 = Vector(O, E3)
xA = 0
r = 0.7
zA = 0
vA: xA v1 + r v2 + zA v3
wA: xA w1 + r w2 + zA w3
A: (vA, wA)
xB: -r
yB = 0
zB = 0
vB: xB v1 + yB v2 + zB v3
wB: xB w1 + yB w2 + zB w3
B: (vB, wB)
xC = 0
yC: -r
zC = 0
yD = 0
zD = 0
vC: xC v1 + yC v2 + zC v3
vD: r v1 + yD v2 + zD v3
wC: xC w1 + yC w2 + zC w3
wD: r w1 + yD w2 + zD w3
C: (vC, wC)
D: (vD, wD)
xV = 0
yV = 0
h = 1.3
wV: xV w1 + yV w2 + h w3
vV: xV v1 + yV v2 + h v3
V: (vV, wV)
P, a, b, c, d = Polygon(A, B, C, D)
s = Segment(V, A)
f = Segment(V, B)
g = Segment(V, C)
i = Segment(V, D)
e = LineBisector(C, D)
E = Intersect(c, e)
Q, e_1, v_3, v_1 = Polygon(V, O, E)
R, v, v_2, o_1 = Polygon(V, O, A)