Graph3DCylindrical1

Interactive Graphs of Functions in Cylindrical Coordinates

Click to enlarge

This PG code shows how to make an interactive graph of a function in cylindrical coordinates that is displayed using the LiveGraphics3D Java applet.

• Download file: File:Graph3DCylindrical1.txt (change the file extension from txt to pg when you save it)
• File location in NPL: FortLewis/Authoring/Templates/DiffCalcMV/Grpah3DCylindrical.pg

Templates by Subject Area

PG problem file	Explanation
Problem tagging data	Problem tagging:
DOCUMENT(); loadMacros( "PGstandard.pl", "MathObjects.pl", "parserVectorUtils.pl", "PGcourse.pl", "LiveGraphicsCylindricalPlot3D.pl", ); TEXT(beginproblem());	Initialization: We need to include the macros file LiveGraphicsCylindricalPlot3D.pl.
Context("Numeric"); Context()->variables->are(x=>"Real",y=>"Real",r=>"Real",t=>"Real"); $a = random(2,4,1); $plot = CylindricalPlot3D( function => Formula("$a*cos((r^2)/4)"), rvar => "r", tvar => "t", rmin => 0, rmax => 6, tmin => 0, tmax => 2*pi, rsamples => 20, tsamples => 15, axesframed => 1, xaxislabel => "X", yaxislabel => "Y", zaxislabel => "Z", outputtype => 4, );	Setup: We generate a string of plot data using CylindricalPlot3D(). Setting outputtype to something other than 4 will require you to read the source code of LiveGraphicsCylindricalPlot3D.pl and familiarize yourself with the details of the LiveGraphics3D java applet. For more information on how to work with the string of plot data, see Martin Kraus's LiveGraphics3D homepage, and the excellent article by Jonathan Rogness and Martin Kraus Constructing Mathlets Quickly Using LiveGraphics3D.
Context()->texStrings; BEGIN_TEXT \{ Live3Ddata( $plot, image => "wavy-surface.png", size => [400,400], tex_size => 600, tex_center => 1, scale => 1.1, ); \} END_TEXT Context()->normalStrings;	Main Text: To display the string of plot data $plot, we use the Live3Ddata() routine provided by the macro LiveGraphics3D.pl, which is loaded automatically. After you construct the graph you like, don't forget to take a screen shot of it and make an image file such as wavy-surface.png that will be used in the pdf hardcopy.
$showPartialCorrectAnswers = 1;	Answer Evaluation:
Context()->texStrings; BEGIN_SOLUTION ${PAR}SOLUTION:${PAR} Solution explanation goes here. END_SOLUTION Context()->normalStrings; COMMENT('MathObject version.'); ENDDOCUMENT();	Solution:

Templates by Subject Area