Routines inside Epilog
- To: mathgroup at smc.vnet.net
- Subject: [mg14367] Routines inside Epilog
- From: "GERMAN BUITRAGO" <gerbual at col2.telecom.com.co>
- Date: Thu, 15 Oct 1998 00:29:06 -0400
- Sender: owner-wri-mathgroup at wolfram.com
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
- Follow-Ups:
- Re: Routines inside Epilog
- From: Jurgen Tischer <jtischer@col2.telecom.com.co>
- Re: Routines inside Epilog