Date: 6 Junio 2013

Suma Superior

Suma Inferior

Suma al medio

Sumas de Riemann

En pantalla se muestra la gráfica de la
función f(x) = x^2, la cual es modificable 
en la casilla de entrada,tecleando
f(x) = <Expresión>.

También se muestra, gráfica y numé-
ricamente la suma de su elección en
la parte superior izquierda.

Puede modificar el valr de <n>, con el
deslizador de la parte inferior o bien
tecleando su valor y oprimiendo <Entrar>
en la corrspondiente casilla de texto.

Descripción del archivo

n =

n = 7 (slider from 1 to 1000, step 1)
A = Point(xAxis)
B = Point(xAxis)
f(x) = x^(2)
C = (-3.06, -0.42)
a = OrthogonalLine(B, xAxis)
lista1 = Sequence(Segment[(x(A) + ((k - 1) * (x(B) - x(A)) / n), f(x(A) + (((2 * k) - 1) * (x(B) - x(A)) / ((2 * n))))), (x(A) + ((k * (x(B) - x(A)))) / n, f(x(A) + (((2 * k) - 1) * (x(B) - x(A)) / ((2 * n)))))], k, 1, n)
lista2 = Sequence(Segment[(x(A) + (k * (x(B) - x(A)) / n), 0), (x(A) + ((k * (x(B) - x(A)))) / n, f(x(A) + (((2 * k) - 1) * (x(B) - x(A)) / ((2 * n)))))], k, 1, n)
lista3 = Sequence(Segment[(x(A) + ((k - 1) * (x(B) - x(A)) / n), 0), (x(A) + ((k - 1) * (x(B) - x(A)) / n), f(x(A) + (((2 * k) - 1) * (x(B) - x(A)) / ((2 * n)))))], k, 1, n)
d: (x(B) - x(A)) / n
Medio = Sum(Sequence[(f(x(A) + ((0.5 * ((2 * k) - 1)) * d)) * d), k, 1, n])
texto1 = LaTeX(Medio, true, true)
Superior = UpperSum(f, x(A), x(B), n)
texto2 = LaTeX(Superior, true, true)
Inferior = LowerSum(f, x(A), x(B), n)
texto3 = LaTeX(Inferior, true, true)
b = false
c = true
e = false
g = true
campoDeTexto1 = Textfield(n)