| 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: , |
|
