Re: Art Graphics in Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg35260] Re: Art Graphics in Mathematica*From*: "Daniel" <nospam at nospam.com>*Date*: Fri, 5 Jul 2002 02:19:22 -0400 (EDT)*References*: <afugqn$rs0$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

"Thiery Balser" <strichpunkt2 at gmx.net> wrote in message news:afugqn$rs0$1 at smc.vnet.net... > Hi, > > > I've just found an amazing site with really astonishing picutres apparently > generated by mathematica.. > > There are even the formulas on this site (please see below), but I have no > clue, what sort of Plot this formula requires. > > http://silver.szote.u-szeged.hu/math/Gallery/Creatures/crea.html For this kind of plot you should use ParametricPlot3D from the Graphics`ParametricPlot3D` package. For example: << Graphics`ParametricPlot3D`; ParametricPlot3D[{Sin[u]*Cos[v],Cos[u]*Cos[v], Cos[u]^2*BesselJ[1,7*v]},{u,0,2Pi, Pi/20}, {v,0,Pi,Pi/10}]; To get your picture to look like those on http://silver.szote.u-szeged.hu/math/Gallery/Creatures/crea.html you will have to play with the options of ParametricPlot3D. You can see all the options like this: Options[ParametricPlot3D] With kind regards, Daniel.