Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Routines inside Epilog

  • To: mathgroup at
  • Subject: [mg14398] Re: [mg14367] Routines inside Epilog
  • From: Jurgen Tischer <jtischer at>
  • Date: Sun, 18 Oct 1998 15:10:03 -0400
  • Organization: Universidad del Valle
  • References: <>
  • Sender: owner-wri-mathgroup at

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

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.


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

  • 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