       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
• 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

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

```

• Prev by Date: Re: Adding equations
• Next by Date: Re: Two programming challenges
• Previous by thread: Routines inside Epilog
• Next by thread: Re: Routines inside Epilog