x(A)

A = (3, 0)
ex = Segment((Corner[2, 1] + Corner[2, 4]) / 2, (Corner[2, 2] + Corner[2, 3]) / 2)
paso: 10^(floor(log(10, ex))) / 2
f(x) = (4 * sin(x) / x^(2))
radio: (0.85 * Min[x(Corner[2, 2]) - x(Corner[2, 1]), y(Corner[2, 4]) - y(Corner[2, 1])] / 2)
c = Circle((Corner[2, 1] + Corner[2, 3]) / 2, radio)
ey = Segment((Corner[2, 1] + Corner[2, 2]) / 2, (Corner[2, 4] + Corner[2, 3]) / 2)
eo = Midpoint(ex)
Exd: (Corner[2, 2] + Corner[2, 3]) / 2
Exi: (Corner[2, 1] + Corner[2, 4]) / 2
lista1 = Sequence(A + ((paso * j), 0), j, -4, 4)
Eys: (Corner[2, 3] + Corner[2, 4]) / 2
Eyi: (Corner[2, 1] + Corner[2, 2]) / 2
lista2 = Sequence(A + (0, (paso * j)), j, -4, 4)
texto2: "" + (x(Element[lista1, 6])) + ""
texto3: "" + (x(Element[lista1, 7])) + ""
texto4: "" + (x(Element[lista1, 8])) + ""
texto5: "" + (x(Element[lista1, 4])) + ""
texto6: "" + (x(Element[lista1, 3])) + ""
texto7: "" + (x(Element[lista1, 2])) + ""
texto8: "" + (y(Element[lista2, 4])) + ""
texto9: "" + (y(Element[lista2, 3])) + ""
texto10: "" + (y(Element[lista2, 2])) + ""
texto11: "" + (y(Element[lista2, 6])) + ""
texto12: "" + (y(Element[lista2, 7])) + ""
texto13: "" + (y(Element[lista2, 8])) + ""
B, C = Intersect(c, b)
D, E = Intersect(c, a)
d = Segment(B, C)
e = Segment(D, E)
texto1: "" + A + ""
factor = 1