C

\sqrt{2}

decimales

decimales

Volver

-

+

n = 5 (slider from 1 to 100, step 1)
dis = 1 (slider from 1 to 1, step 1)
irra:sqrt(2)
numeradores = Sequence(k, k, n, (n * irra))
numinf = Max(numeradores)
A:(0, 0)
B: A + (1, 0)
polígono1, a, b, c, d, C, D = Polygon(A, B, 4)
AA: A
Z: C
v: (1 / Distance[A, C] * Vector[A, C])
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)
aumentoszoom:0
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)
texto3_3: "" + (LaTeX[cotainf]) + " < " + irra + " < " + cotasup + ""
textor1: "\frac{ " + (LaTeX[numinf]) + "}{" + (LaTeX[n]) + " }<\sqrt{2}<\frac{ " + (LaTeX[numinf + 1]) + "}{" + (LaTeX[n]) + " }"
texto11_1: "Ea = " + (irra - cotainf) + "
Er (%) = " + (round(((irra - cotainf) / irra * 10000)) / 100) + "%"
texto10: "Ea = " + ((-irra) + cotasup) + "
Er (%) = " + (round((((-irra) + cotasup) / irra * 10000)) / 100) + "%"
j = Segment(A, C)
e = Segment(C, Element[Last[lista1], 1])
P = Element(Last[lista1], 1)
Q = Element(lista1, numinf)
R = Element(lista1, n)