Re: Routines inside Epilog

*To*: mathgroup at smc.vnet.net*Subject*: [mg14398] Re: [mg14367] Routines inside Epilog*From*: Jurgen Tischer <jtischer at col2.telecom.com.co>*Date*: Sun, 18 Oct 1998 15:10:03 -0400*Organization*: Universidad del Valle*References*: <199810150429.AAA18324@smc.vnet.net.>*Sender*: owner-wri-mathgroup at wolfram.com

Hola German, first of all you should use Table instead of Do. Next, this wouldn't work. Your stripes won't stay below the function (I think what you would like to have is a graphic of an approximation from below) and the last one will overshoot. As a first approximation I suggest you have a look at http://www.mathsource.com/Content/Applications/Education/Calculus/0204-376 There is a function PlotRiemann, but as far as I can see it will not plot "undersums". I'm shure there is more of that stuff out there, looks like most calculus teacher are fascinated they now can make movies about limits. Jurgen GERMAN BUITRAGO wrote: > > Hi, > > I need to plot many lines between a curve and the x-axis for to show an > approximation of the area under the curve. > > Example: > f[x_] := 36 - 4*(x - 3)^2 > > Plot[f[x], {x, 0, 3}] > > Plot[f[x], {x, 0, 3}, Epilog -> {Line[{ {0.2, 0}, {0.2, f[0.2]}, {0.4, > f[0.2]} }], Line[{ {0.4, 0},{0.4, f[0.4]},{0.6, f[0.4]}}]] > > All the above-mentioned works correctly. However, I am not able to > create a routine for several similar lines, as: > > Plot[f[x], {x, 0, 3}, Epilog -> Do[Line[{ {i, 0}, {i, f[i]}, {i+.2, > f[i]} }],{i,15} ]] > > Where is my error? > > Thank you very much. > > GERMAN BUITRAGO

**References**:**Routines inside Epilog***From:*"GERMAN BUITRAGO" <gerbual@col2.telecom.com.co>