trig-003-reduccion-primer-cuadrante
Author: Epsiclas - Alberto Rodríguez Santos

Punto de α

β

B = (3, 0)
A = (0, 0)
r = Distance(A, B)
b = Line(A, xAxis)
c = Circle(A, B)
P = Point(c)
F = Intersect(c, b, 2)
E = Intersect(c, b, 1)
e = Segment(E, F)
α = Angle(B, A, P)
β = If(α > 90° ∧ α ≤ 180°, 180° - α, If[α > 180° ∧ α ≤ 270°, α - 180°, If[α > 270° ∧ α < 360°, 360° - α, α]])
senbeta: sin(β)
cosbeta: sqrt(1 - senbeta^(2))
a = Line(A, yAxis)
C = Intersect(c, a, 2)
D = Intersect(c, a, 1)
d = Segment(C, D)
f = Segment(A, P)
g = Line(P, d)
h = Line(P, e)
G = Intersect(g, e)
J = Intersect(h, d)
coseno = Segment(J, P)
seno = Segment(P, G)
distanciaAB = Distance(A, B)
senalfa: sin(α)
cosalfaa: cos(α)
k = Distance(A, B)
R: (x(A) + (r * cosbeta), y(A) + (r * senbeta))
l = OrthogonalLine(R, b)
m = OrthogonalLine(R, d)
H = Intersect(a, m)
K = Intersect(b, l)
n = Segment(H, R)
q = Segment(R, K)
γ = Angle(F, A, R)
texto7 = Text(If[α > 90° ∧ α ≤ 180°, 180° - α, If[α > 180° ∧ α ≤ 270°, α - 180°, If[α > 270° ∧ α ≤ 360°, 360° - α, α]]])
i = Segment(A, R)
texto1: "α = " + α + ""
texto6 = Text(If[α > 90° ∧ α ≤ 180°, "180° - α", If[α > 180° ∧ α ≤ 270°, "α - 180°", If[α > 270° ∧ α ≤ 360°, "360° - α", "α"]]])
texto3: "β = " + texto6 + " = " + texto7 + ""
texto4: "sen(\alpha)=" + (LaTeX[senalfa]) + ""
texto8: "$ sen(\beta)=" + (LaTeX[senbeta]) + " $"
texto5: "$ cos(\alpha)=" + (LaTeX[cosalfaa]) + " $"
texto9: "$ cos(\beta)=" + (LaTeX[cosbeta]) + " $"