Re: Plot problem

• To: mathgroup at smc.vnet.net
• Subject: [mg37187] Re: Plot problem
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Wed, 16 Oct 2002 14:25:08 -0400 (EDT)
• References: <akkbts\$7o2\$1@smc.vnet.net> <aogj94\$1p7\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Frank,

FuncList = {Exp[x], Sin[y], z^3};
VarList = {x, y, z};

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

--
Allan

---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"Frank Brand" <frank.brand at t-online.de> wrote in message
news:aogj94\$1p7\$1 at smc.vnet.net...
> 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]}]]
>