This shows an interactive graph in 3D in cylindrical coordinates.
DOCUMENT();
loadMacros('PGstandard.pl', 'PGML.pl', 'plotly3D.pl', 'PGcourse.pl');
Preamble
The dynamic graph is generated with plotly3D.pl, so this is needed.
$a = random(2,5);
$gr1 = Graph3D();
$gr1->addSurface(
['u*cos(v)', 'u*sin(v)', "$a*cos(u^2/4)"],
[0, 6, 30],
[0, 2*pi, 30]
);
$gr2 = Graph3D();
$gr2->addSurface(
['r*cos(t)', 'r*sin(t)', 'r*sin(t)^2'],
[0, 6, 30],
[0, 2*pi, 30],
variables => ['r','t']
);
Setup
We generate the plot parametrically for the radial functions z=cos(r^2/4) and z=r*sin^2(t).
This occurs with x=u*cos(v) and y=u*sin(v), where u and v are used as the radial and angular variables respectively. These are the default variables used.
The second plot changes the variables to r and t and shows a function with a non-rotational symmetric plot.
The addSurface is very flexible, but if you are plotting a function in cylindrical coordinates, then the first two functions should remain the same.
See plotly3D.pl for more information on options.
BEGIN_PGML [@ $gr1->Print @]* [@ $gr2->Print @]* END_PGML
Statement
This shows how to add a plot to the problem.
BEGIN_PGML_SOLUTION Solution explanation goes here. END_PGML_SOLUTION ENDDOCUMENT();
Solution
A solution should be provided here.