Re: Plot problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg37205] Re: Plot problem*From*: "Borut L" <gollum at email.si>*Date*: Wed, 16 Oct 2002 14:26:36 -0400 (EDT)*References*: <akkbts$7o2$1@smc.vnet.net> <aogj94$1p7$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Try something less clumsy, eg : Plot[#1,{#2,-5,5}]&@@@Transpose[{FuncList,VarList}] or why not have a particular symbol for the independent variable - then just map the plot command over the FuncList : Plot[#,{t,-5,5}]&/@{Exp[t],Sin[t],t^3} bye, Borut "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]}]] | | Thanks in advance | Frank Brand | | |