a = 4.709351710987924 (slider from 1.0E-4 to 100, step 0.1)
B: (a, 0)
B_1 = Point(yAxis)
b = Line(B, B_1)
C_1 = (4, 0)
c = Line(C_1, b)
D = Intersect(c, yAxis)
d = OrthogonalLine(B, xAxis)
e = OrthogonalLine(D, yAxis)
C = Intersect(d, e)
A = Intersect(xAxis, yAxis)
Area, f_1, a_1, e_1, d_1 = Polygon(A, B, C, D)
p = Perimeter(Area)
texto1 = LaTeX(Area, true, true)
TextoArea: "Perímetro " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + (LaTeX[p]) + ""
P: (x(B), p)