Sesión # 6 Cálculo Integral Sumas de Riemann
Sesión # 6 Cálculo Integral Sumas de Riemann
Sesión # 6 Cálculo Integral Sumas de Riemann
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
><br />
><br />
><br />
><br />
><br />
><br />
w55:= 2.75:<br />
w66:= 0:<br />
#PARA 4<br />
PARTICIONES#############################################<br />
SumaDe<strong>Riemann</strong>4p:= proc(x0,x1,x2,x3,x4,x5,x6, w1,w2,w3,w4,w5,w6,<br />
funcion1)<br />
<strong>de</strong>scription "Suma <strong>de</strong> <strong>Riemann</strong> para 4<br />
particiones";<br />
eval(funcion1,x=w1)*(x1-x0) + eval(funcion1,x=<br />
w2)*(x2-x1) + eval(funcion1,x=w3)*(x3-x2) + eval(funcion1,x=w4)<br />
* (x4-x3)<br />
end proc;<br />
#PARA 5<br />
PARTICIONES#############################################<br />
SumaDe<strong>Riemann</strong>5p:= proc(x0,x1,x2,x3,x4,x5,x6, w1,w2,w3,w4,w5,w6,<br />
funcion1)<br />
<strong>de</strong>scription "Suma <strong>de</strong> <strong>Riemann</strong> para 5<br />
particiones";<br />
eval(funcion1,x=w1)*(x1-x0) + eval(funcion1,x=<br />
w2)*(x2-x1) + eval(funcion1,x=w3)*(x3-x2) + eval(funcion1,x=w4)<br />
* (x4-x3) + eval(funcion1,x=w5)*(x5-x4)<br />
end proc;<br />
#PARA 6<br />
PARTICIONES#############################################<br />
SumaDe<strong>Riemann</strong>6p:= proc(x0,x1,x2,x3,x4,x5,x6, w1,w2,w3,w4,w5,w6,<br />
funcion1)<br />
<strong>de</strong>scription "Suma <strong>de</strong> <strong>Riemann</strong> para 6<br />
particiones";<br />
eval(funcion1,x=w1)*(x1-x0) + eval(funcion1,x=<br />
w2)*(x2-x1) + eval(funcion1,x=w3)*(x3-x2) + eval(funcion1,x=w4)<br />
* (x4-x3) + eval(funcion1,x=w5)*(x5-x4) + eval<br />
(funcion1,x=w6)*(x6-x5)<br />
end proc;<br />
(1.4)<br />
(1.5)<br />
(1.6)