¿Otra forma de hacer las integrales?
N(integral(abs(x^(2)-(2*x)-8),(x,1,6)))
Sumas de Riemann
Una aproximación para calcular el área bajo la curva es a través de la suma de Riemann:

Un ejemplo de calcular en Sage la suma de Riemann:
f= lambda x:x^2+1
a=0
b=2
n=4
Dx=(b-a)/n
rsum=sum([f(a+i*Dx)*Dx for i in range(n)])
print float(rsum)
Donde los comandos:
f=Función a integrar
a=Límite inferior
b=Límite superior
n=Número de rectángulos
Por la izquierda:
f(a+i*Dx)*Dx
Por el centro:
f(a+(i+.05)*Dx)*Dx
Por la derecha:
f(a+(i+1)*Dx)*Dx
Definen el mejor ajuste para el cálculo de la área en base a los rectángulos definidos previamente para la solución del problema
Ejercicio 2: Sumas de Riemann
Tiempo: 30 minutos
Bomba del Tiempo
De acuerdo al ejemplo anterior contesta las siguientes preguntas:
a) ¿Cuál es el resultado de la integral al hacerla manualmente?
b) ¿Cuál aproximación da mejores resultados? (Izq, Der, Centro)
c) ¿Cuántos Rectángulos dan la mejor aproximación?
# a)RESULTADO MANUAL : 14/3
# b) MEJOR RESULTADO DA EN: 8
# c) se acerca con en el del medio pero se pasa pokito !!!! pokito !! ^_^ :P
Ejercicio 3: Encuentra las áreas bajo la curva de las siguientes ecuaciones.
Tiempo: 40 minutos
a) y=x², -1,1
b) y=x³ - 5x² + 1, 0,2
c) y=x² - 1, 0,2
d) y=-x³ + 3x - 1, -1,2
a=-1; b=1
f= lambda x:x^2
Lb=[[b,f(b)],[b,0],[a,0],[a,f(a)]]
Lf=[[i/10,f(i/10)]for i in xrange(10*a,10*b)]
P=polygon(Lb+Lf, rgbcolor=('purple'))
Q=plot(f(x),x,a-0.5,b+0.5)
show(P+Q)
# INTEGRAL 1
N(integral((x^2),(x,-1,1)))
a=0; b=2
f= lambda x:x^3-5*x^2+1
Lb=[[b,f(b)],[b,0],[a,0],[a,f(a)]]
Lf=[[i/10,f(i/10)]for i in xrange(10*a,10*b)]
P=polygon(Lb+Lf, rgbcolor=('blue'))
Q=plot(f(x),x,a-0.5,b+0.5)
show(P+Q)
# INTEGRAL 2
N(integral((x^3-5*x^2+1),(x,0,2)))
a=0; b=2
f= lambda x:x^2-1
Lb=[[b,f(b)],[b,0],[a,0],[a,f(a)]]
Lf=[[i/10,f(i/10)]for i in xrange(10*a,10*b)]
P=polygon(Lb+Lf, rgbcolor=('silver'))
Q=plot(f(x),x,a-0.5,b+0.5)
show(P+Q)
# INTEGRAL 3
N(integral((x^2-1),(x,0,2)))
a=-1; b=2
f= lambda x:-x^3+3*x-1
Lb=[[b,f(b)],[b,0],[a,0],[a,f(a)]]
Lf=[[i/10,f(i/10)]for i in xrange(10*a,10*b)]
P=polygon(Lb+Lf, rgbcolor=('gold'))
Q=plot(f(x),x,a-0.5,b+0.5)
show(P+Q)
# INTEGRAL 1
N(integral((-x^3+3*x-1),(x,-1,2)))
Aplicaciones en Economía: Área bajo la curva
Cálculo de los excedentes del consumidor y productor
Presentación
Ejercicio 4: Aplicaciones en Economía
Tiempo: 50 minutos
Bomba del Tiempo
La curva de demanda que se generó por un estudio entre los clientes de una panaderia está definida por la siguiente ecuación:
D(x)=(x-5)²
Mientras que la curva de la oferta está definida por la siguiente ecuación:
S(x)=x² + x + 3
Encuentra:
a) El punto de equilibrio
b) Excedente del consumidor @ punto de equilibrio
c) Excedente del productor @ punto de equilibrio