[Date Index] [Thread Index] [Author Index]

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>