Les lignes trigonométriques dans le cercle unité
Author: Pierre Lantagne

P(θ)

A(1,0)

θ

S(θ)

B(0, 1)

\setlength{\fboxsep}{8pt}\setlength\fboxrule{1pt}\ovalbox{\mbox{Lignes cotangente et cosécante}

Axe des cotangentes

$▶\mbox{cotan}\left(θ\right) \mbox{ est l'abcisse du point S(\theta) }$
$▶\mbox{cosec}\left(θ\right) \mbox{ est la mesure signée du segment \overline{OS(\theta) }}$

θ

θ

Glisser le point du curseur  vers la droite
ou vers la gauche du curseur Angledegrés

$\mbox{Le point \[S(\theta)\] est obtenu par l'intersection de la droite \[y=1\] \
              avec le prolongement du rayon \overline{OP(\theta)}}

   $  \mbox{ ▷ Si le point S(\theta) est obtenu par un prolongement\   dans le même quadrant que celui du rayon \overline{OP(\theta) },  \
   la mesure signée du segment \overline{OS(\theta)} est positive,\   autrement, la mesure signée est négative}$

Axe des cotangentes

45°

0°

-90°

135°

90°

-45°

-135°

30°

60°

-30°

-60°

-120°

120°

150°

180°

-150°

-180°

a = -2 (slider from -5 to 5, step 0.1)
a_2: a^(2)
list1 = Sequence(abs((a_2 * i) - round((a_2 * i))) < 10^(-5), i, 1, 2500)
list2 = Sequence(If[Element[list1, i] ≟ true, i, 2500], i, 1, 2500)
d = If(Min[list2] < 2500, Min[list2], 2500)
list3 = Sequence(abs(d / i^(2) - round(d / i^(2))) < 10^(-5), i, 1, 50)
list4 = Sequence(If[Element[list3, i] ≟ true, i, 0], i, 1, 100)
d_e = If(Max[list4] > 0, Max[list4], 0)
d_a: d / d_e
Anglesdegrés: 0°
O = (0, 0)
P: (cos(Anglesdegrés), sin(Anglesdegrés))
A = (1, 0)
θ_p = Angle(A, O, P)
c = Line(O, P)
S: (cot(Anglesdegrés), 1)
B' = (0, 1)
cosécante = Segment(O, S)
Q = (-2.1179563981486385, -0.8959893944967535)
θ_n = Angle(P, O, A)
θ_1 = CircleArc(O, P, A)
θ = CircleArc(O, A, P)
cotangente = Segment(B', (cot(Anglesdegrés), 1))
α: -90°
β: -90°
γ: -90°
δ: -90°
ε: -90°
n_e: (d_a^(2) * a_2)
list5 = Sequence(abs(n_e / i^(2) - round(n_e / i^(2))) < 10^(-5), i, 1, 50)
list6 = Sequence(If[Element[list5, i] ≟ true, i, 0], i, 1, 100)
n_a = If(d ≟ 2500, 0, If[Max[list6] > 0, (Max[list6] * sgn(a)), 0])
r_a: n_e / n_a^(2)
b_1(x) = a
n_1(x) = n_a
r_1 = Polynomial(r_a)
g = If(n_a ≟ 0, b_1(x), If[r_a ≠ 1, If[d_a ≠ 1, If[abs(n_a) ≠ 1, (n_1(x) / d_a * sqrt(r_a)), If[n_a ≟ 1, sqrt(r_1(x)) / d_a, ((-sqrt(r_1(x)))) / d_a]], If[abs(n_a) ≠ 1, (n_1(x) * sqrt(r_a)), If[n_a ≟ 1, sqrt(r_1(x)), (-sqrt(r_1(x)))]]], If[d_a ≟ 1, n_1(x), n_1(x) / d_a]])
VR: {(-π), (-5 * π / 6), (-3 * π / 4), (-2 * π / 3), ((-π)) / 2, ((-π)) / 3, ((-π)) / 4, ((-π)) / 6, 0, π / 6, π / 4, π / 3, π / 2, (2 / 3 * π), (3 / 4 * π), (5 / 6 * π)}
l1 = Sequence((cos(VR(k)), sin(VR(k))), k, 1, 17)
texte6: "$\mbox{cosec(" + (LaTeX[Anglesdegrés]) + ")}= " + (LaTeX[racine50[csc(Anglesdegrés)]]) + " =\mbox{cosec}\Big(" + (LaTeX[(FractionText[Anglesdegrés / π] * π)]) + " \Big)$"
texte5: "$\mbox{cotan(" + (LaTeX[Anglesdegrés]) + ")}=" + (LaTeX[racine50[cot(Anglesdegrés)]]) + " =\mbox{cotan}\Big(" + (LaTeX[(FractionText[Anglesdegrés / π] * π)]) + " \Big)$"

Tool: fraction1000
Affichage fractionnaire sous la forme n/d, avec d<1000
Input: a
Output: text3

list1 = Sequence(abs((a * i) - round((a * i))) < 10^(-5), i, 1, 1000)
e = 3
n_1 = If(e < 1000, Polynomial[(e * a)], Polynomial[a])
f = If(e ≟ 1 ∨ e ≥ 1000, n_1(x), n_1(x) / e)
text3: "" + f

Tool: racine50
affichage exact sous la forme n*sqrt(50)/d, avec d<50 et n<=50
Input: a
Output: text17

b_1(x) = a
a_2: a^(2)
list1 = Sequence(abs((a_2 * i) - round((a_2 * i))) < 10^(-5), i, 1, 2500)
list2 = Sequence(If[Element[list1, i] ≟ true, i, 2500], i, 1, 2500)
d = If(Min[list2] < 2500, Min[list2], 2500)
list3 = Sequence(abs(d / i^(2) - round(d / i^(2))) < 10^(-5), i, 1, 50)
list4 = Sequence(If[Element[list3, i] ≟ true, i, 0], i, 1, 100)
d_e = If(Max[list4] > 0, Max[list4], 0)
d_a: d / d_e
n_e: (d_a^(2) * a_2)
list5 = Sequence(abs(n_e / i^(2) - round(n_e / i^(2))) < 10^(-5), i, 1, 50)
list6 = Sequence(If[Element[list5, i] ≟ true, i, 0], i, 1, 100)
n_a = If(d ≟ 2500, 0, If[Max[list6] > 0, (Max[list6] * sgn(a)), 0])
r_a: n_e / n_a^(2)
r_1 = Polynomial(r_a)
n_1(x) = n_a
g = If(n_a ≟ 0, b_1(x), If[r_a ≠ 1, If[d_a ≠ 1, If[abs(n_a) ≠ 1, (n_1(x) / d_a * sqrt(r_a)), If[n_a ≟ 1, sqrt(r_1(x)) / d_a, ((-sqrt(r_1(x)))) / d_a]], If[abs(n_a) ≠ 1, (n_1(x) * sqrt(r_a)), If[n_a ≟ 1, sqrt(r_1(x)), (-sqrt(r_1(x)))]]], If[d_a ≟ 1, n_1(x), n_1(x) / d_a]])
text17: "" + g