# The Mathematica Programming Language

## 3D-Plotting Example Program

**Click below to go directly to a specific section:**

Description | Source Code
| Sample Run | Program Notes

## 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

*Last modified: 01:51 PM on 12/10/1999*