Protactor
Author: Daniel Mentrard

Nouvelle Mesure

Ta réponse est :

Taille rapporteur

°

O

A

B

CentRap = (0, -10)
RayRap = 12 (slider from 0 to 12, step 0.1)
RotRap1 = Point(Circle[CentRap, abs(RayRap)])
QuartRotRap1 = Dilate(RotRap1, 0.2, CentRap)
O = (-7, 5)
RotRap2 = Point(Circle[CentRap, abs(RayRap)])
cercl = Circle(CentRap, (2 * Distance[CentRap, RotRap1] / (100 / 15)))
a = Segment(CentRap, RotRap1)
I = Intersect(cercl, a, 1)
I' = Rotate(I, -90*°, CentRap)
g = Line(I', a)
n = OrthogonalLine(RotRap2, g)
Bas2 = Intersect(g, n)
ang: round((random() * 170)) + 10
texte2: "" + ang + ""
f = 2.31 (slider from -5 to 5, step 0.01)
ChampTexte1 = Textfield(Reponse)
e = If(Reponse ≟ "", 0, 1)
Z2: Bas2
h = Line(Z3, Z2)
i = Segment(CentRap, RotRap2)
m = OrthogonalLine(CentRap, a)
γ = Angle(I', CentRap, I)
p = OrthogonalLine(RotRap1, g)
d = If(Reponse ≟ texte2, 1, 0)
Bas1 = Intersect(g, p)
Angle2: 45 - round((random() * 90))
OO = Point(Circle[O, 15])
b = Ray(O, OO)
B = Rotate(OO, Angle2°, O)
α = Angle(OO, O, B)
A = Rotate(B, ang°, O)
β = Angle(B, O, A)
c = Ray(O, B)
j = Ray(O, A)
QuartRotRap1' = Rotate(QuartRotRap1, 90*°, CentRap)
δ = Angle(RotRap1, CentRap, QuartRotRap1')