Točka A

Prva koordinata točke A je

d je polovica dolžine kvadrata s središčem v točki A, v katerem izbiramo slučajne točke. 

Pomen d

ε  pomeni debelino iskane množice: koliko daleč od prave vrednosti bomo točke še označili. 

Pomen ε

Če v a vključimo animacijo, bomo generirali nove slučajne točke B v kvadratu okrog A

Pomen a

a = 1.3 (slider from -5 to 5, step 0.1)
P = (3.803180247347196, 11.419551289491015)
b: x(P)
tekst1 = Textfield(P)
tekst2 = Textfield(b)
d = 0.26 (slider from 0 to 1, step 0.01)
c = RandomUniform(x(P) - d + (0 * a), x(P) + d)
e = RandomUniform(y(P) - d + (0 * a), y(P) + d)
T: (c, e)
ε = 0.04 (slider from 0 to 0.2, step 0.01)
f = false
g = false
h = false
B = (-5.514540400000001, 0.023150200000012965)
C = Point(Circle[B, 17.46])
i = Segment(B, C)
k = Circle(B, 5.48)
p = Circle(C, 15.93)
A = Intersect(k, p, 1)
j = Segment(C, A)
l = Segment(A, B)
D = Midpoint(i)
E = Midpoint(j)
F = Midpoint(l)
m = Segment(T, A)
n = Segment(T, B)
q = Segment(T, C)
G = Midpoint(n)
H = Midpoint(m)
I = Midpoint(q)
r = Segment(D, T)
s = Segment(T, F)
t = Segment(T, E)
a_1 = Segment(I, A)
b_1 = Segment(B, I)
c_1 = Segment(G, A)
J = Intersect(s, c_1)
K = Intersect(t, a_1)
L = Intersect(r, b_1)
d_1 = Circle(B, C, T)
M = Center(d_1)
e_1 = Line(M, L)
f_1 = Circle(A, T, C)
N = Center(f_1)
g_1 = Line(N, K)
h_1 = Circle(B, T, A)
O = Center(h_1)
i_1 = Line(O, J)
j_1 = OrthogonalLine(T, i)
P_1 = Point(g_1)
Q = Intersect(g_1, i_1)
R = Intersect(e_1, i_1)
S_1 = Intersect(g_1, e_1)
S, s_1, q_1, r_1 = Polygon(Q, R, S_1)
niz4: "Activate the animation of the slider a. 
Then move the point P in order to find points T
for which the triangle, formed by the three Euler lines, 
has area less than ε. 

At the moment the area equals " + (LaTeX[S]) + "."