Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: kuen surface

  • To: mathgroup at smc.vnet.net
  • Subject: [mg48055] Re: kuen surface
  • From: mathma18 at hotmail.com (Narasimham G.L.)
  • Date: Sun, 9 May 2004 03:02:29 -0400 (EDT)
  • References: <c77982$hj3$1@smc.vnet.net> <c77tga$2pe$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Jens-Peer Kuska <kuska at informatik.uni-leipzig.de> wrote in message news:<c77tga$2pe$1 at smc.vnet.net>...
> Hi,
> http://mathworld.wolfram.com/KuenSurface.html
> Regards   Jens

> > bernazzani at mi.camcom.it wrote:
> > kindly I would want to know as the same graphics(kuen surface) is
> > constructed with Mathematica.

Some portions of Kuen surface in above Wolfram site do not show well.
Portions that ought to be negatively curved look conical, may be
improper limits of u,v parameters and/or too few PlotPoints chosen. In
http://www.zib.de/polthier/Calendar/Kalender88/February88_med.gif this
area is better depicted.
It appears even the 'classical' limits do not show the Kuen details
well enough .See detail due to extended u parameter curling it up
inside my plot:

x=2*(Cos[u]+u*Sin[u])*Sin[v]/(1+u*u*Sin[v]*Sin[v])
y=2*(Sin[u]-u*Cos[u])*Sin[v]/(1+u*u*Sin[v]*Sin[v])
z=Log[Tan[v/2]]+2*Cos[v]/(1+u*u*Sin[v]*Sin[v]) 
ParametricPlot3D[{x,y,z},{u,-3 Pi, Pi},{v,.2,2.9 },
PlotPoints->{37,15}]


  • Prev by Date: Finding errors in my code?
  • Next by Date: Re: how to save a mathematica-made imagebox.image as jpg, gif, bmp in c#/.netlink?
  • Previous by thread: Re: kuen surface
  • Next by thread: RE: Re: kuen surface