Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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 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


  • Prev by Date: RE: Adding equations
  • Next by Date: RE: Recommended books for Mathematica
  • Previous by thread: Re: Routines inside Epilog
  • Next by thread: Re: Routines inside Epilog