Mostrar R.T. del ∡B

Mostrar R.T. del ∡C

Mostrar  Perímetro

A = Intersect(xAxis, yAxis)
a = 4 (slider from 1 to 36, step 1)
b = 3 (slider from 1 to 36, step 1)
B: (0, a)
C: (b, 0)
polígono1, b_1, a_1, c = Polygon(A, C, B)
α = Angle(C, A, B)
distanciaBC = Distance(B, C)
distanciaAC = Distance(A, C)
distanciaBA = Distance(B, A)
β = Angle(B, C, A)
d: sin(β)
f: b_1 / a_1
texto2: "Cos(C)=\frac{" + (LaTeX[b_1]) + "}{" + (LaTeX[a_1]) + "}=" + (LaTeX[f]) + ""
TextoAC: "" + (Name[A] + (Name[C])) + " = " + distanciaAC + ""
TextoBC: "" + (Name[B] + (Name[C])) + " = " + distanciaBC + ""
TextoBA: "" + (Name[B] + (Name[A])) + " = " + distanciaBA + ""
g: c / b_1
texto3: "Tan(C)=\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b_1]) + "}=" + (LaTeX[g]) + ""
h: b_1 / c
texto4: "Cot(C)=\frac{" + (LaTeX[b_1]) + "}{" + (LaTeX[c]) + "}=" + (LaTeX[h]) + ""
i: a_1 / b_1
texto5: "Sec(C)=\frac{" + (LaTeX[a_1]) + "}{" + (LaTeX[b_1]) + "}=" + (LaTeX[i]) + ""
j: a_1 / c
texto6: "Csc(C)=\frac{" + (LaTeX[a_1]) + "}{" + (LaTeX[c]) + "}=" + (LaTeX[j]) + ""
texto10: "Sen(B)=\frac{" + (LaTeX[b_1]) + "}{" + (LaTeX[a_1]) + "}=" + (LaTeX[f]) + ""
texto8: "Tan(B)=\frac{" + (LaTeX[b_1]) + "}{" + (LaTeX[c]) + "}=" + (LaTeX[h]) + ""
texto9: "Cot(B)=\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b_1]) + "}=" + (LaTeX[g]) + ""
texto11: "Sec(B)=\frac{" + (LaTeX[a_1]) + "}{" + (LaTeX[c]) + "}=" + (LaTeX[j]) + ""
texto12: "Csc(B)=\frac{" + (LaTeX[a_1]) + "}{" + (LaTeX[b_1]) + "}=" + (LaTeX[i]) + ""
γ = Angle(A, B, C)
k = true
l = true
m: a_1 + b + c
texto13_1: "Perímetro = " + b + "+" + c + "+" + a_1 + " = " + m + ""
n = true
e: c / a_1
texto7: "Cos(B)=\frac{" + (LaTeX[c]) + "}{" + (LaTeX[a_1]) + "}=" + (LaTeX[e]) + ""
texto1: "sen(C) =\frac{" + (LaTeX[c]) + "}{" + (LaTeX[a_1]) + "}=" + (LaTeX[e]) + ""