Xref: utzoo comp.graphics:12707 sci.math:11886
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!sol.ctr.columbia.edu!cica!iuvax!maytag!aftermath!rafridri
From: rafridri@aftermath.waterloo.edu (Robert A. Fridrich)
Newsgroups: comp.graphics,sci.math
Subject: Graph art
Message-ID: <1990Aug3.191549.10165@aftermath.waterloo.edu>
Date: 3 Aug 90 19:15:49 GMT
Sender: rafridri@aftermath.waterloo.edu (Robert Fridrich)
Organization: University of Waterloo
Lines: 21

I am compiling a list of 3 dimentional equations which produce
interesting surfaces when plotted.  Just send me your favorite graph
and I'll post the list in about two weeks.

To get things rolling, this is one of the better ones (it produces
three cylinders that intertwine):
c1:= [cos(x)-2*cos(0.4*y),sin(x)-2*sin(0.4*y),y];
c2:= [cos(x)+2*cos(0.4*y),sin(x)+2*sin(0.4*y),y];
c3:= [cos(x)+2*sin(0.4*y),sin(x)-2*cos(0.4*y),y];
c4:= [cos(x)-2*sin(0.4*y),sin(x)+2*cos(0.4*y),y];
plot3d({c1,c2,c3,c4},x=0..2*Pi,y=0..10,grid=[25,15],style=HIDDEN);

Of course this is the MAPLE format, but it can be easily converted.

Thanks in advance,
Robert Fridrich
-- 

Robert Fridrich            	"E' molto pericoloso, signorina."
Hardware Design Lab 	   	"Oh speak it, SPEAK IT!!"
University of Waterloo