Re: Routines inside Epilog
- To: mathgroup at smc.vnet.net
- Subject: [mg14396] Re: [mg14367] Routines inside Epilog
- From: wself at viking.emcmt.edu (Will Self)
- Date: Sun, 18 Oct 1998 15:10:02 -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
>
German,
Plot[f[x], {x, 0, 3}, Epilog ->Table[Line[{ {i, 0}, {i, f[i]}, {i+.2,
f[i]} }],{i, .2, 2.8, .2} ]]
Will Self