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>