\sqrt{2}

\sqrt{3}

\sqrt{4}

\sqrt{5}

\sqrt{6}

\sqrt{7}

\sqrt{8}

\sqrt{9}

\sqrt{10}

\sqrt{11}

\sqrt{12}

\sqrt{13}

\sqrt{14}

\sqrt{15}

\sqrt{16}

\sqrt{17}

\sqrt{18}

\sqrt{19}

\sqrt{20}

\sqrt{21}

\sqrt{22}

\sqrt{23}

\sqrt{24}

\sqrt{25}

\sqrt{26}

\sqrt{27}

\sqrt{28}

\sqrt{29}

\sqrt{30}

\sqrt{31}

\sqrt{32}

\sqrt{33}

\sqrt{33}

\sqrt{34}

\sqrt{35}

\sqrt{36}

\sqrt{37}

\sqrt{38}

\sqrt{39}

\sqrt{40}

\sqrt{41}

\sqrt{42}

\sqrt{43}

\sqrt{44}

\sqrt{45}

\sqrt{49}

\sqrt{46}

\sqrt{47}

\sqrt{48}

\sqrt{50}

x² = 1² +1²\
x² = 2\
x = \sqrt{2}

ν = 0 (slider from 0 to 50, step 1)
a: atan(1 / sqrt(ν))
b: atan(1 / sqrt(ν))
c: sqrt(ν)
λίστα1 = Sequence(ι, ι, 1, ν, 1)
d = Sum(λίστα1, ν - 2)
λίστα2 = Sequence(atan(1 / sqrt(i)), i, 1, ν, 1)
λίστα3 = Sequence(((sqrt(ι + 1) * cos(Sum[λίστα2, ι])), (sqrt(ι + 1) * sin(Sum[λίστα2, ι]))), ι, 1, ν, 1)
Α = Intersect(xAxis, yAxis)
e: sqrt(ν)
λίστα4 = Sequence(Polygon[Α, Element[λίστα3, ι], Element[λίστα3, ι + 1]], ι, 1, ν - 1, 1)
λίστα6 = Sequence(Midpoint[Element[λίστα3, ι], Element[λίστα3, ι + 1]], ι, 1, ν - 1, 1)
λίστα7 = Sequence(Midpoint[Α, Element[λίστα3, ι]], ι, 1, ν, 1)
ι = Element(λίστα1, ν)
Β = (1, 0)
Γ = Point(λίστα3)
πολύγ1, γ, α, β = Polygon(Α, Β, Γ)
f: ν + 1
κείμενο52: "x²=(\sqrt{" + (LaTeX[ν]) + "})² + 1²\\
x²= " + (LaTeX[ν]) + "+1\\
x²=" + (LaTeX[f]) + "\\
x=\sqrt{" + (LaTeX[f]) + "}"
Δ = (3.808273576588637, 4.763652543554714)
g: sqrt(f)
h = Circle(Α, g)
Ε, Ζ = Intersect(h, xAxis)
κείμενο53: "\sqrt{" + (LaTeX[f]) + "}"
λίστα5 = Sequence(Text["" + (ι^(0)), Element[λίστα6, ι]], ι, 1, ν - 1, 1)
κείμενο54: "-\sqrt{" + (LaTeX[f]) + "}"
κείμενο55: "Χρησιμοποιώντας \;  το \;  δρομέα  \; ν, \\ μπορείτε  \; να \;  δείτε \;  την \;  κατασκευή \;  του \;  \sqrt{" + (LaTeX[ν + 1]) + "}"