Trigorectang
Author: Daniel Mentrard

A

B

C

sen  \; α  \; =  \frac{ C.O. }{Hip }  

tan  \; α  \; =  \frac{ C.O. }{C.C. }  

cos  \; α  \; =  \frac{ C.C. }{Hip }  

Hipotenusa

Cateto
opuesto
  C.O.

Cateto contiguo
        C.C.

B = (-0.2640625000000009, -1.263203125)
B_1 = Point(xAxis)
a = Ray(B, B_1)
A = Point(a)
α = 0.6981317007977318 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
D = Rotate(A, α, B)
β = Angle(A, B, D)
b = Ray(B, D)
c = OrthogonalLine(A, a)
C = Intersect(c, b)
poly1, e, a_1, c_1 = Polygon(B, A, C)
F = Midpoint(e)
G = Midpoint(c_1)
H = Midpoint(a_1)
γ = Angle(C, A, B)
E = (18.170703125, 12.034140625000001)
I = (28.170703125, 12.034140625000001)
J = (28.170703125, 4.034140625000001)
K = (18.170703125, 4.034140625000001)
poly2, e_1, i, j, k = Polygon(E, I, J, K)
L = Point(e_1)
M = Point(poly2)
d = Segment(L, M)
N = Point(k)
O = Point(i)
f = Segment(N, O)
P = Point(k)
Q = Point(i)
g = Segment(P, Q)
T12: "BC = " + c_1
T13: " AC = " + a_1
T14: "AB =" + e
h = AngularBisector(A, B, C)
R = Point(e)
S = Point(c_1)
p = CircleArc(B, R, S)
T = Intersect(p, h)
T15: "" + α
T6: "tan  \; α  \; =  \;  \frac{ AC }{AB }  \; = \;  " + (a_1 / e)
T5: "cos  \; α  \; =  \;  \frac{ AB }{BC }  \; =  \; " + (e / c_1)
T4: "sen  \; α \;  =   \; \frac{ AC }{BC }  \; =  \; " + (a_1 / c_1)