\sqrt{2} \space \space \space \space \space \space \space \space \phi \space \space \space \space \space \space \space\space \pi

\sqrt{2}

ϕ

0

1

2

3

 π 

decimales

decimales

\sqrt{2}

\sqrt{2}

\phi

\phi

\pi

\pi

n = 4 (slider from 1 to 100, step 1)
fi = 1.618033988749895
dis = 1 (slider from 1 to 3, step 1)
irra = If(dis ≟ 1, 1.41421, dis ≟ 2, fi, 3.141592653589793)
numeradores = Sequence(k, k, n, (n * irra))
numinf = Max(numeradores)
A = (0.008883680260132374, 0.0014387912954868243)
B: A + (1, 0)
polígono2, e, f, g, h, i, E, F, G = Polygon(A, B, 5)
polígono1, a, b, c, d, C, D = Polygon(A, B, 4)
H = Midpoint(a)
AA = If(dis  <  3, A, H)
L: H + (π, 0)
Z = If(dis ≟ 1, C, dis ≟ 2, E, L)
v: (1 / Distance[A, Z] * Vector[A, Z])
I = Midpoint(A, C)
k = Circle(I, H)
cotainf: numinf / n
lista1 = Sequence(AA + (k / n * v), k, 1, numinf + 1)
cotasup: (numinf + 1) / n
lista2 = Sequence((k / n * A) + ((n - k) / n * B), k, 1, n - 1)
p = CircleArc(A, B, Z)
l = Segment(Z, Element[Last[lista1], 1])
m = Segment(I, I + (π, 0))
J = Point(m)
u = Vector(I, J)
k' = Translate(k, u)
K: (x(J), y(A))
q = Segment(H, K)
K' = Rotate(K, (-2 * q), J)
r = CircleArc(J, K, K')
s = Segment(H, H + (3.5, 0))
M: H + (1, 0)
j = Segment(AA, Z)
t = Segment(J, K')
N: H + (1, 0)
O: H + (2, 0)
P: H + (3, 0)
aumentoszoom = -1
ir: (i * r)
A2 = 1
A3 = 2
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A1 = 0
B1: cotainf
B2: (B1 * 10)
B3: (B2 * 10)
B4: (B3 * 10)
B5: (B4 * 10)
C1 = If(floor(B1) ≟ B1, 1, 0)
C2 = If(floor(B2) ≟ B2, 1, 0)
C3 = If(floor(B3) ≟ B3, 1, 0)
C4 = If(floor(B4) ≟ B4, 1, 0)
C5 = If(floor(B5) ≟ B5, 1, 0)
C6 = CountIf(x ≟ 0, C1:C6)
A9 = 1
A10 = 2
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A8 = 0
B8: cotasup
B9: (B8 * 10)
B10: (B9 * 10)
B11: (B10 * 10)
B12: (B11 * 10)
C8 = If(floor(B8) ≟ B8, 1, 0)
C9 = If(floor(B9) ≟ B9, 1, 0)
C10 = If(floor(B10) ≟ B10, 1, 0)
C11 = If(floor(B11) ≟ B11, 1, 0)
C12 = If(floor(B12) ≟ B12, 1, 0)
o = CountIf(x ≟ 0, C8:C13)
C13 = CountIf(x ≟ 0, C8:C12)
textor1_3: "\frac{" + (LaTeX[numinf]) + "}{" + LaTeX[n] + "}<"
textor1_1: "<\frac{" + (LaTeX[numinf + 1]) + "}{" + LaTeX[n] + "}"
texto3: "" + (LaTeX[cotainf]) + " <"
texto3_2: " <" + (LaTeX[cotasup]) + ""
Q = (1.4868148148148157, -0.9539753086419758)
QQ: Q - (0.3 + C6 / 10, 0)
QQQ: QQ - (0.2, 0.4)
texto3_3: "" + (LaTeX[cotainf]) + " < " + irra + " < " + cotasup + ""
textor1: "\frac{ " + (LaTeX[numinf]) + "}{" + LaTeX[n] + " }<\sqrt{2}<\frac{ " + LaTeX[numinf + 1] + "}{" + LaTeX[n] + " }"
textofi2: "\frac{" + (LaTeX[numinf]) + " }{" + LaTeX[n] + " }<\phi<\frac{ " + LaTeX[numinf + 1] + "}{" + LaTeX[n] + " }"
textopi3: "\frac{" + (LaTeX[numinf]) + " }{" + LaTeX[n] + " }<\pi<\frac{" + LaTeX[numinf + 1] + " }{ " + LaTeX[n] + "}"
texto3_1: "" + (LaTeX[cotainf]) + " < 3.14159 < " + LaTeX[cotasup] + ""
texto11_1: "Ea = " + (irra - cotainf) + "
Er (%) = " + round(((irra - cotainf) / irra * 10000)) / 100 + "%"
texto10: "Ea = " + ((-irra) + cotasup) + "
Er (%) = " + round((((-irra) + cotasup) / irra * 10000)) / 100 + "%"