Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'graphing several plots using the Table function' topicStudent Support Forum > General > Archives > "graphing several plots using the Table function"

Next Comment >Help | Reply To Topic
Author Comment/Response
Kelly
10/15/00 08:33am

I have been having problems in trying to graph several plots when generating the data (to be graphed) using a Table. My program is as follows:


Needs[''Graphics`Graphics`''];

\[Omega] = 7.5;
T = 5;
\[Rho] = .1;
c := Sqrt[T/\[Rho]];
k := \[Omega]/c;
a = 10.0;



olddis[-1] = 0;

rend := c time;

displacement[r_] := .5 r time;

olddis[r_] := displacement[r] + r;


Clear[data];

data := Table[olddis[r], {r, 0, rend}];

graph := PolarPlot[data, {t, 0, 2 \[Pi]}];

Do[graph, {time, 0.000000000000001, 1, .1}];


I keep getting an error of ...

From In[1]:=
ParametricPlot::''ppcom'': ''Function \!\(data\\ \(\(Cos[t]\)\)\) cannot be \
compiled; plotting will proceed with the uncompiled function.''

From In[1]:=
ParametricPlot::''ppcom'': ''Function \!\(data\\ \(\(Sin[t]\)\)\) cannot be \
compiled; plotting will proceed with the uncompiled function.''

It seems that the data is not formulating into a table that can be graphed.

Can anyone help?

URL: ,

Subject (listing for 'graphing several plots using the Table function')
Author Date Posted
graphing several plots using the Table function Kelly 10/15/00 08:33am
Re: graphing several plots using the Table func... Forum Modera... 10/15/00 11:34am
Next Comment >Help | Reply To Topic