E

x

x-E

x+E

f(x-E)

f(x+E)

A_1 = Intersect(xAxis, yAxis)
B_1 = Point(xAxis)
a = Segment(A_1, B_1)
B = Point(a)
c = Circle(B, B_1)
b = OrthogonalLine(B, a)
C = Intersect(c, b, 2)
d = OrthogonalLine(C, b)
D = Intersect(yAxis, d)
p, a_1, c_1, d_1, e = Polygon(A_1, B, C, D)
P: (x(B), p)
f = OrthogonalLine(P, b)
distanciaAB = Distance(A_1, B)
distanciaBC = Distance(B, C)
perímetrop = Perimeter(p)
texto1: "Perímetro de  " + (Name[A_1]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + perímetrop + ""
Textop: "Área de  " + (Name[A_1]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + p + ""
TextoBC: "\overline{" + (Name[B]) + "" + (Name[C]) + "} \, = \, " + (LaTeX[distanciaBC]) + ""
TextoAB: "\overline{" + (Name[A_1]) + "" + (Name[B]) + "} \, = \, " + (LaTeX[distanciaAB]) + ""
g(x) = (x * (7 - x))
h = 1 (slider from 0.01 to 1, step 0.01)
A: (3.5, 0)
k = Circle(A, h)
F = Intersect(a, xAxis)
G = Intersect(a, xAxis)
E, E_1 = Intersect(k, xAxis)
i = OrthogonalLine(E, xAxis)
j = OrthogonalLine(E_1, xAxis)
H = Intersect(g, i)
I = Intersect(g, j)
l = Line(H, I)
m = Segment(E, H)
n = Segment(E_1, I)
q = Segment(H, I)