2D Functions
Function Plot
Parametric Plot
Multiple Parametric Plot
Filled Plot
Multiple Filled Plot
Logarithmic Plot
2D Data Plots
Data Plot
Data Error Plot
Data Logarithmic Plot
Data Labeled Plot
Contour & Density Plots
Contour Plot
Density Plot
Level Curves
3D Functions
3D Function Plot
3D Parametric Plot
3D Multiple Parametric Plot
3D Vector Field
3D Gradient Field
Shadow 3D Function
3D Data Plots
Contour 3D Data Plot
Density 3D Data Plot
Special Plots
Vector Field
Bar Charts
Pie Chart
Zonotope Show
Links
About This Site
Citation & Credits
Sci.Vis. Tutorials
web
C
omputing
Multiple Parametric Plot of 3D Functions
Function1
-function of t and u for the:
x axis: 
" >   y axis: 
" >   z axis: 
" >
Function2
-function of t and u for the:
x axis:
" > y axis:
" > z axis:
" >
Function3
-function of t and u for the:
x axis:
" > y axis:
" > z axis:
" >
Range for parameters:
" > < = t < =
" > ,
" > < = u < =
" >
with
Interactive rotation and resizing
<%Mathlet MSPBlock[{$$func1X,$$func1Y,$$func1Z,$$func2X,$$func2Y,$$func2Z,$$func3X,$$func3Y, $$func3Z,$$t0,$$t1,$$u0,$$u1,$$boxed,$$box1,$$box2,$$box3,$$lightFlag,$$h, $$xAxeValue,$$yAxeValue,$$zAxeValue,$$xAxeLabel,$$yAxeLabel,$$zAxeLabel, $$imageSize,$$plotLabel,$$xRangeBeg,$$xRangeEnd,$$yRangeBeg,$$yRangeEnd, $$zRangeBeg, $$zRangeEnd,$$aspectRatio,$$view1,$$view2,$$view3}, fc = {If[MSPValueQ[$$face1],MSPToExpression[$$face1],""], If[MSPValueQ[$$face2],MSPToExpression[$$face2],""], If[MSPValueQ[$$face3],MSPToExpression[$$face3],""], If[MSPValueQ[$$face4],MSPToExpression[$$face4],""], If[MSPValueQ[$$face5],MSPToExpression[$$face5],""], If[MSPValueQ[$$face6],MSPToExpression[$$face6],""]}; result = ParametricPlot3D[{{$$func1X, $$func1Y, $$func1Z}, {$$func2X, $$func2Y, $$func2Z}, {$$func3X, $$func3Y, $$func3Z}}, {t, $$t0, $$t1},{u, $$u0, $$u1}, AspectRatio->If[$$aspectRatioFlag === "Specified", $$aspectRatio, MSPToExpression[$$aspectRatioFlag]], Boxed->$$boxed, BoxRatios->If[$$boxRatios==="Specified",{$$box1,$$box2,$$box3},Automatic], Lighting->$$lightFlag, AmbientLight->If[NumberQ[$$h],Hue[$$h],GrayLevel[0.]], AxesEdge->{If[$$xAxeFlag === "Specified" , $$xAxeValue , MSPToExpression[$$xAxeFlag]], If[$$yAxeFlag === "Specified" , $$yAxeValue , MSPToExpression[$$yAxeFlag]], If[$$zAxeFlag === "Specified" , $$zAxeValue , MSPToExpression[$$zAxeFlag]] }, AxesLabel->{If[$$xAxeLabel === Null, "", ToString[HoldForm[$$xAxeLabel]]], If[$$yAxeLabel === Null, "", ToString[HoldForm[$$yAxeLabel]]], If[$$zAxeLabel === Null, "", ToString[HoldForm[$$zAxeLabel]]]}, PlotLabel-> If[$$plotLabel === Null, "", ToString[HoldForm[$$plotLabel]]], FaceGrids->If[$$faceGrids === "Specified", fc, MSPToExpression[$$faceGrids]], ImageSize->$$imageSize, PlotRange->{If[$$xPlotRange === "Specified",{$$xRangeBeg,$$xRangeEnd}, MSPToExpression[$$xPlotRange]], If[$$yPlotRange === "Specified",{$$yRangeBeg,$$yRangeEnd}, MSPToExpression[$$yPlotRange]], If[$$zPlotRange ==="Specified", {$$zRangeBeg,$$zRangeEnd}, MSPToExpression[$$zPlotRange]]}, ViewPoint->If[NumberQ[$$view1] && NumberQ[$$view2] && NumberQ[$$view3], {$$view1,$$view2,$$view3},{1.3,-2.4,2.}] ]; If[Head[result] === Graphics3D, If[MSPValueQ[$$btnSubmit], MSPShow[result], If[MSPValueQ[$$btnLive], MSPLive3D[result]]]] ] %>
Save as:
> GIF and animated GIF (.gif)
>JPEG (.jpeg)
>JPEG (.jpg)
> Encapsulated PostScript (.eps)
> Mathematica abbreviated PostScript (.mps)
> Adobe Acrobat portable document format (.pdf)
> Microsoft bitmap format (.bmp)
> Encapsulated PostScript with device independent preview (.epsi)
> Encapsulated PostScript with TIFF preview (.eps)
> Mathematica independent raster graphics format (.mgf)
> Portable bitmap format (.pbm)
>TIFF (.tif)
>TIFF (.tiff)
> X window system bitmap (.xbm)
With file name:
" >
with all options for the static plot
<%Mathlet MSPBlock[{$$fname, $$submitButton1}, c = If[$$fname === Null, "", ToString[$$fname]]; ftype = Switch[$$opt, "jpg", "JPEG", "tif", "TIFF", "eps", "EPSTIFF", "xbm", "XBitmap", "mps", "MPS", _ , $$opt]; If[Head[result] === Graphics3D, MSPReturn[DisplayString[result, ftype], "image/"<>ftype , c<>"."<>$$opt] ] ] %>
Plot 3D options
Plot range:
active only in static mode
(All - all points are included, Automatic - outlying points are dropped)
X:
<%Mathlet MSPSetDefault[$$xPlotRange, "Automatic"] %>
> Automatic
> All
> Specified
" > < = x < =
" >
Y:
<%Mathlet MSPSetDefault[$$yPlotRange, "Automatic"] %>
> Automatic
> All
> Specified
" > < = y < =
" >
Z:
<%Mathlet MSPSetDefault[$$zPlotRange, "Automatic"] %>
> Automatic
> All
> Specified
" > < = z < =
" >
Boxed:
<%Mathlet MSPSetDefault[$$boxed, "True"] %>
> True
> False
Box Ratios:
<%Mathlet MSPSetDefault[$$boxRatios, "Automatic"] %>
> Automatic
> Specified
" >
" >
" >
AxesEdge :
Specifies on which edges of the bounding box the axes should be drawn.
<%Mathlet MSPSetDefault[$$xAxeFlag, "Automatic"] %> <%Mathlet MSPSetDefault[$$xAxeValue, "{+1,+1}"] %> X :
> Automatic
> None
> Specified :
> +y->+z
> +y->-z
> -y->+z
> -y->-z
<%Mathlet MSPSetDefault[$$yAxeFlag, "Automatic"] %> <%Mathlet MSPSetDefault[$$yAxeValue, "{+1,+1}"] %> Y :
> Automatic
> None
> Specified :
> +x->+z
> +x->-z
> -x->+z
> -x->-z
Z : <%Mathlet MSPSetDefault[$$zAxeFlag, "Automatic"] %> <%Mathlet MSPSetDefault[$$zAxeValue, "{+1,+1}"] %>
> Automatic
> None
> Specified :
> +x->+y
> +x->-y
> -x->+y
> -x->-y
axe1->axe2
, where axe1, axe2 = x, y, z, states that the axe will be drawn between axe1 and axe2.
The sign before axe1 and axe2 specifies whether the axe will be drawn on the edge of the box
with a larger or smaller value of axe1 and axe2 respectively.
Axes label:
active only in static mode
x label:
" > y label:
" > z label:
" >
<%Mathlet MSPSetDefault[$$lightFlag, "True"] %>
Lighting :
active only in static mode
> True
> False
Plot color in Hue style:
" >
The value of Hue must be between 0 and 1
Image Size:
" >  
specifies the absolute size of an image to render
Plot label:
active only in static mode
" >
Face grids:
<%Mathlet MSPSetDefault[$$faceGrids, "None"] %>
> All
> None
> Specified
> Right YZ plane
> Left YZ plane
> Back XZ plane
> Front XZ plane
> Up XY plane
> Down XY plane
View point:
<%Mathlet MSPSetDefault[$$viewPoint, "Automatic"] %>
> Automatic
> Specified
" >
" >
" >
Aspect ratio:
active only in static mode
<%Mathlet MSPSetDefault[$$aspectRatioFlag, "Automatic"] %>
> Default
> Automatic
> Specified :
" >
Setting the AspectRatio option changes the whole shape of your plot. AspectRatio gives the ratio of height to width.
Its
default
value is the inverse of the Golden Ratio - supposedly the most pleasing shape for a rectangle.
Automatic
determines the shape of the display area from the original coordinate system.
© 2004 web
C
omputing, Scientific Visualization