Acrospin Example

Implementation

SetDirectory["/LocalLibrary/Mathematica/EDUCOM"]

Needs["SURFS`"]

Needs["ACRO`"]

?WriteAcroLines

WriteAcroLines[{6,14},"eightsur.acd",
eightsurface[u,v],
{u,0,2Pi},{v,0,2Pi},
PlotPoints->{20,40}]