The Mathematica Programming Language

3D-Plotting Example Program

Description

This program loads the package "SurfaceOfRevolution" and uses that package to plot Cos[t]/2+1 and Sin[t]/2 as a surface of revolution.

Source Code

Needs["Graphics`SurfaceOfRevolution`"]

SurfaceOfRevolution[{Cos[t]/2+1,Sin[t]/2},{t,0,2Pi},{x,0,2Pi}];
   

Sample Run

Program Notes

This program was tested and executed using Mathematica 3.0