Re: Plot problem

• To: mathgroup at smc.vnet.net
• Subject: [mg37194] Re: [mg37179] Plot problem
• From: "German BUITRAGO A." <gerbual at col2.telecom.com.co>
• Date: Wed, 16 Oct 2002 14:25:34 -0400 (EDT)
• References: <akkbts\$7o2\$1@smc.vnet.net> <200210150817.EAA01784@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hello Frank,
The solution is using Evaluate.

In[1]:=
FuncList = {Exp[x], Sin[y], z^3};

In[2]:=
VarList = {x, y, z};

In[3]:=
Do[Plot[Evaluate[FuncList[[i]], {VarList[[i]], -5, 5}]], {i, 1,
Length[VarList]}]

Greetings,

Germán Buitrago A.

----- Original Message -----
From: "Frank Brand" <frank.brand at t-online.de>
To: mathgroup at smc.vnet.net
Subject: [mg37194] [mg37179] Plot problem

> 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]}]]
>