tarkka-arvo

T453

f(x) = If[1 ≤ x ≤ 5, log(x)^(x)]
teksti1 = LaTeX(f, true, true)
p = 14 (slider from 1 to 250, step 1)
l3 = Sequence((f(1 + 4 / ((2 * p)) + (4 / p * n)) * 4 / p), n, 0, p - 1, 1)
I3 = NaN
keskipistesääntö = Sum(l3)
tarkka = Integral(f, 1, 5)
teksti2 = LaTeX(keskipistesääntö, true, true)
puolisuunnikas = TrapezoidalSum(f, 1, 5, p)
teksti3 = LaTeX(puolisuunnikas, true, true)
tarkka_1 = LaTeX(tarkka, true, true)
l4 = Sequence((1 + (4 / p * n), f(1 + (4 / p * n))), n, 0, p, 1)
l6 = Sequence(Integral[FitPoly[Take[l4, k, k + 2], 2], 1 + (4 * (k - 1) / p), 1 + (4 * (k + 1) / p)], k, 1, p, 2)
Simpson = Sum(l6)
teksti4 = LaTeX(Simpson, true, true)
l7 = Sequence(FitPoly[Take[l4, k, k + 2], 2], k, 1, p, 2)
b = NIntegral(f, 1, 5)
l1 = Sequence(1 + 4 / ((2 * p)) + (4 / p * n), n, 0, p - 1, 1)
l2 = Sequence(f(1 + 4 / ((2 * p)) + (4 / p * n)), n, 0, p - 1, 1)
l5 = Sequence(If[1 + (4 * (k - 1) / p) ≤ x ≤ 1 + (4 * (k + 1) / p), FitPoly[Take[l4, k, k + 2], 2]], k, 1, p, 2)