clarification. Re: one liner for a function?

• To: mathgroup at smc.vnet.net
• Subject: [mg45983] clarification. Re: one liner for a function?
• From: sean_incali at yahoo.com (sean kim)
• Date: Sat, 31 Jan 2004 05:21:08 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Thanks Bob, for the helpful comments from past few days. I'm
constantly amazed at you guys for being so helpful.

What I was trying to do in my last post was to make a function that
uses another function to make commands that will make graphs.

i have a function called pfunc,

pfunc[name_] := Plot[Evaluate[{name[t] /. sol}, {t, 0, 250}],
PlotRange -> All, DisplayFunction -> Identity, PlotLabel -> name];

The new function has to take a list called var= {a[t], b[t], x[t],
y[t]}
and then generate two types of mathematica commands.

1. write lines that applies pfunc to each of the elements,while giving
that each name according to the variable name, ie.

pa = pfunc[a]; pb = pfunc[b]; px = pfunc[x]; py = pfunc[y];

2. take those new names for the plots, then make a show GraphicArray
commands with *two* column of plots, ie.

Show[GraphicsArray [{{pa, pb}, {px, py}}], ImageSize -> 500]

this one below doesn't work with the following errors.

Show::gtype: Symbol is not a type of graphics

In[22]:=
sol= NDSolve[{a'[t]==-0.1  a[t] x[t], b'[t]==-0.05  b[t] y[t],
x'[t]==-0.1  a[t] x[t]+0.05 b[t] y[t], y'[t]==0.1  a[t] x[t]-0.05
b[t] y[t], a[0]==1, b[0]==1, x[0]==1, y[0]==0},
{a,b,x,y},{t,0,250}][[1]];

var = {a[t], b[t], x[t], y[t]};

(* a function to make (pa = pfunc[a]; pb = pfunc[b]; px = pfunc[x]; py
= pfunc[y];)*)

plfunc[name_]:= StringJoin["p","name"]//ToExpression =
Plot[Evaluate[{name/. sol}, {t, 0, 100}], PlotRange-> All,
DisplayFunction-> Identity, PlotLabel-> name];

Apply[plfunc,Flatten[var]]

(* i can't figure out how to make a function for this one*)

Show[GraphicsArray [{{pa, pb}, {px, py}}], ImageSize-> 500]

```

• Prev by Date: Notation and Symbolize Packages
• Next by Date: Re: one liner for a function?
• Previous by thread: Notation and Symbolize Packages
• Next by thread: Re: Simplifying a second order eq. system