Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: nestled plotting

  • To: mathgroup at smc.vnet.net
  • Subject: [mg72361] Re: nestled plotting
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Tue, 26 Dec 2006 08:19:15 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <emdors$jvh$1@smc.vnet.net>

junk at apspektakel.com wrote:
> Hi
>  I'm having this problem. I want to plot a number of maclaurin
> polynomials and I want to do it like this:
> Plot[Table[Normal[Series[Sin[x], {x, 0, i}]], {i, 5}], {x, -15, 15}]
> This gives me a bunch of error messages. However, if I first print the
> table:
> Table[Normal[Series[Sin[x], {x, 0, i}]], {i, 5}]
> and cut and pase this into the plot command, everything works just as I
> want it. How do I get past the cut and paste step?
> 
> /Hadoque
> 

Wrap the Table expression within an Evaluate [1] function as in

Plot[Evaluate[Table[Normal[Series[Sin[x], {x, 0, i}]], {i, 5}]],
{x, -15, 15}];

Regards,
Jean-Marc

1. http://documents.wolfram.com/mathematica/functions/Evaluate


  • Prev by Date: terminate the NestWhile
  • Next by Date: Re: Any simple way to flatten all but the bottom level?
  • Previous by thread: nestled plotting
  • Next by thread: Re: nestled plotting