Inicialización
In[25]:=
In[26]:=
![Off[General :: "spell1"]](../HTMLFiles/aplicaciones_integral_2.gif){kind=small}
In[27]:=
In[28]:=
In[29]:=
In[30]:=
In[31]:=
In[32]:=
In[33]:=
In[34]:=
In[35]:=
In[39]:=
In[40]:=
In[41]:=
In[42]:=
![stepfunc[func_, {var_, xmin_, xmax_}, n_] := Apply[Plus, Table[(-UnitStep[x - (k + N[(xmax - xmin)/n])] + UnitStep[x - k]) (func/.var→k), {k, xmin, xmax, N[(xmax - xmin)/n]}]]](../HTMLFiles/aplicaciones_integral_18.gif)
In[43]:=
In[44]:=
In[45]:=
![On[General :: "spell1"]](../HTMLFiles/aplicaciones_integral_21.gif){kind=small}
| Created by Mathematica (September 20, 2008) |  |