Aff. sommets

Aff. O_b

l_v = 6 (slider from 0 to 10, step 0.5)
l_u = 4 (slider from 0 to 10, step 0.5)
θ = 0.6108652381980154 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
j_3: {0, 1, 0}
i_3: {1, 0, 0}
O_3: {0, 0, 0}
O: (Element[O_3, 1], Element[O_3, 2])
φ_m = 2.007128639793479 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
φ: φ_m - 90 °
P: {-sin(θ), cos(θ), 0, -cos(θ) sin(φ), -sin(θ) sin(φ), cos(φ), cos(θ) cos(φ), sin(θ) cos(φ), sin(φ)}
v = Vector(O, (Element[P, 1] Element[j_3, 1] + Element[P, 2] Element[j_3, 2] + Element[P, 3] Element[j_3, 3], Element[P, 4] Element[j_3, 1] + Element[P, 5] Element[j_3, 2] + Element[P, 6] Element[j_3, 3]))
u = Vector(O, (Element[P, 1] Element[i_3, 1] + Element[P, 2] Element[i_3, 2] + Element[P, 3] Element[i_3, 3], Element[P, 4] Element[i_3, 1] + Element[P, 5] Element[i_3, 2] + Element[P, 6] Element[i_3, 3]))
k_3: {0, 0, 1}
i = Vector(O, (Element[i_3, 1], Element[i_3, 2]))
j = Vector(O, (Element[j_3, 1], Element[j_3, 2]))
w = Vector(O, (Element[P, 1] Element[k_3, 1] + Element[P, 2] Element[k_3, 2] + Element[P, 3] Element[j_3, 3], Element[P, 4] Element[k_3, 1] + Element[P, 5] Element[k_3, 2] + Element[P, 6] Element[k_3, 3]))
coefEq: {1, 0, 1 / sin(φ)^(2)}
Eq: Element[coefEq, 1] x^(2) + Element[coefEq, 2] x y + Element[coefEq, 3] y^(2) = 1
coefMer_0: {(Element[P, 6]^(2) + Element[P, 4]^(2)) / (Element[P, 1] Element[P, 6] - Element[P, 4] Element[P, 3])^(2), -2 * (Element[P, 3] Element[P, 6] + Element[P, 4] Element[P, 1]) / (Element[P, 1] Element[P, 6] - Element[P, 4] Element[P, 3])^(2), (Element[P, 3]^(2) + Element[P, 1]^(2)) / (Element[P, 1] Element[P, 6] - Element[P, 4] Element[P, 3])^(2)}
Mer_0: Element[coefMer_0, 1] x^(2) + Element[coefMer_0, 2] x y + Element[coefMer_0, 3] y^(2) = 1
coefMer_{90}: {(Element[P, 6]^(2) + Element[P, 5]^(2)) / (Element[P, 2] Element[P, 6] - Element[P, 5] Element[P, 3])^(2), -2 * (Element[P, 3] Element[P, 6] + Element[P, 5] Element[P, 2]) / (Element[P, 2] Element[P, 6] - Element[P, 5] Element[P, 3])^(2), (Element[P, 3]^(2) + Element[P, 2]^(2)) / (Element[P, 2] Element[P, 6] - Element[P, 5] Element[P, 3])^(2)}
Mer_{90}: Element[coefMer_{90}, 1] x^(2) + Element[coefMer_{90}, 2] x y + Element[coefMer_{90}, 3] y^(2) = 1
l_w = 2 (slider from 0 to 10, step 0.5)
O_b = (7, 0)
A: O_b - l_u / 2 u - l_v / 2 v
B: A + l_u u
C: B + l_v v
D: A + l_v v
E: D + l_w w
F: A + l_w w
G: B + l_w w
H: C + l_w w
svis_{AB} = Segment(A, B)
scac_{BC} = Segment(B, C)
scac_{CD} = Segment(C, D)
scac_{DA} = Segment(D, A)
scac_{EF} = Segment(E, F)
scac_{FG} = Segment(F, G)
scac_{GH} = Segment(G, H)
scac_{HE} = Segment(H, E)
scac_{AF} = Segment(A, F)
scac_{BG} = Segment(B, G)
scac_{CH} = Segment(C, H)
scac_{DE} = Segment(D, E)
scac_{AB} = Segment(A, B)
svis_{DA} = Segment(D, A)
svis_{BC} = Segment(B, C)
svis_{CD} = Segment(C, D)
svis_{AF} = Segment(A, F)
svis_{BG} = Segment(B, G)
svis_{CH} = Segment(C, H)
svis_{DE} = Segment(D, E)
svis_{FG} = Segment(F, G)
svis_{GH} = Segment(G, H)
svis_{HE} = Segment(H, E)
svis_{EF} = Segment(E, F)
affsom = true
condcac_{ABCD}: φ_m ≥ 90 °
condcac_{CDEH}: θ ≟ 0 ° ∨ θ ≥ 180 °
condcac_{ABGF}: θ ≤ 180 °
condcac_{BCHG}: 90 ° ≤ θ ∧ θ ≤ 270 °
condcac_{ADEF}: θ ≤ 90 ° ∨ 270 ° ≤ θ
condcac_{EFGH}: φ_m ≤ 90 °
affO_b = false