About the graph

This graph was generated by Alex Colón using Mathematica during last year's Adelante project. Below is the actual Mathematica code that can be used to generate the graph.

Needs["Graphics`SurfaceOfRevolution`"]
SurfaceOfRevolution[Sin[x],{x,0,12 Pi},
	RevolutionAxis->{9,1}];

Go back to Adelante y Más 1995.

falarcon@grove.iup.edu