Re: Drawing function with 3 variables in a graph

*To*: mathgroup at smc.vnet.net*Subject*: [mg71850] Re: Drawing function with 3 variables in a graph*From*: dh <dh at metrohm.ch>*Date*: Fri, 1 Dec 2006 06:21:52 -0500 (EST)*References*: <ekmefu$8hs$1@smc.vnet.net>

Hi, simply define a function of 3 variables. E.g. g[x_] := Sin[x]; f[t_, a_, m_] := Exp[m g[a] t]; Plot[Evaluate[Table[f[t, a,m], {m, 0, 1, .25}, {a, 1, 3, 1}]], {t, 0,1}, PlotStyle -> Table[Hue[m a/4.], {m, 0, 1, .25}, {a, 1, 3, 1}]] If you have too many functions in your plot, GraphicsArray or StackGraphics may come in handy. E.g StackGraphics: << Graphics`Graphics3D` g[x_] := Sin[x]; f[t_, a_, m_] := Exp[m g[a] t]; g0 = {}; Do[AppendTo[g0, Plot[Evaluate[Table[f[t, a, m], {a, 1, 3, 1}]], {t, 0, 1}, PlotStyle -> Table[Hue[a/4.], {a, 1, 3, 1}]]] , {m, 0, 1, .25}]; Show[StackGraphics[g0]] Daniel royend at gmail.com wrote: > I want to draw a fairly complex function several times in one graph. By > using different colour I hope to present the development of my function > as the three variables changes. > > Earlier I have managed two variabels by using this: > Plot[Evaluate[ { Table[ f[t,m], {m,0,5}] } ], {t,-20,20}, > PlotStyle->etc] > > But this time I have met difficulties because one of my variables are > "hidden" inside the function f(t,m), like this: > g(a) = a/2 > f(t) = m*g(a)^t > m,a and t are variables. > > Therefore I need to control 3 variables and have tried this: > With[ {a=5}, Plot[ same as above].... > > I have read some about lists, graphics and so on but still haven't been > able to find any solution. > Do you have any tips for solving this? >