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

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

Search the Archive

Re: Plot problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg37188] Re: [mg37179] Plot problem
  • From: Andrzej Kozlowski <andrzej at platon.c.u-tokyo.ac.jp>
  • Date: Wed, 16 Oct 2002 14:25:10 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

All you need is Evaluate in your code:

Do[Plot[Evaluate[FuncList[[i]], {VarList[[i]], -5, 5}]], {i, 1, 
Length[VarList]}]

or you might prefer:

Plot[#1, {#2, -5, 5}] & @@@ Transpose[{FuncList, VarList}]

Andrzej Kozlowski
Yokohama, Japan
http://www.mimuw.edu.pl/~akoz/
http://platon.c.u-tokyo.ac.jp/andrzej/


On Tuesday, October 15, 2002, at 05:17 PM, Frank Brand wrote:

> Dear colleagues,
>
> how can I solve the following problem: The task is to successively plot
> the functions given in FuncList with the accociated variable
>
>
> FuncList = {Exp[x], Sin[y], z^3};
>
> VarList = {x, y, z};
>
> Do[Plot[FuncList\[LeftDoubleBracket]
>        i\[RightDoubleBracket], {VarList\[LeftDoubleBracket]
>          i\[RightDoubleBracket], -5, 5}], {i, 1, Length[VarList]}]]
>
> Thanks in advance
> Frank Brand
>
>
>
>
>



  • Prev by Date: List processing
  • Next by Date: Re: Plot problem
  • Previous by thread: Re: Plot problem
  • Next by thread: Re: Plot problem