Date: 27 Febrero 2013

β

Mover al vértice A

B_1 = (3.48, 0.8)
A_1 = (3.8, -0.32)
B_2 = (-2.6, -0.28)
a_1 = Line(A_1, B_2)
A = Point(a_1)
B = Point(a_1)
b_1 = OrthogonalLine(A, a_1)
β = 0.5410520681182421 rad (slider from 0 to 90*°, step 0.017453292519943295)
C' = Rotate(A, β, B)
c_1 = Line(B, C')
C = Intersect(b_1, c_1)
polígono1, a, c, b = Polygon(C, B, A)
texto1: "$\frac{ b}{a }=\frac{ " + (LaTeX[b]) + "}{" + (LaTeX[a]) + " }=" + (LaTeX[b / a]) + "$

$\frac{ c}{a }=\frac{ " + (LaTeX[c]) + " }{ " + (LaTeX[a]) + " }= " + (LaTeX[c / a]) + "$

$\frac{ b}{c }=\frac{ " + (LaTeX[b]) + "  }{  " + (LaTeX[c]) + " }=  " + (LaTeX[b / c]) + "$"
γ, γ_1, α = Angle(polígono1)
texto3: "$ \sin(β)= " + (LaTeX[sin(β)]) + "$

$ \cos(β)= " + (LaTeX[cos(β)]) + "$

$ \tan(β)= " + (LaTeX[tan(β)]) + "$"