Services & Resources / Wolfram Forums
MathGroup Archive
*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: Re: kuen surface

  • To: mathgroup at
  • Subject: [mg48068] RE: [mg48055] Re: kuen surface
  • From: "Wolf, Hartmut" <Hartmut.Wolf at>
  • Date: Mon, 10 May 2004 06:51:25 -0400 (EDT)
  • Sender: owner-wri-mathgroup at
  • Thread-topic: [mg48055] Re: kuen surface

>-----Original Message-----
>From: Narasimham G.L. [mailto:mathma18 at]
To: mathgroup at
>Sent: Sunday, May 09, 2004 9:02 AM
>To: mathgroup at
>Subject: [mg48068] [mg48055] Re: kuen surface
>Jens-Peer Kuska <kuska at> wrote in 
>message news:<c77tga$2pe$1 at>...
>> Hi,
>> Regards   Jens
>> > bernazzani at 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
> 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:
>ParametricPlot3D[{x,y,z},{u,-3 Pi, Pi},{v,.2,2.9 },

Yes, a single view is not enough to look at this marvelleous thing. Perhaps you like to scan the archive for Smooth3D ( and then try

In[11]:= << Smooth3D`
Smooth3D[ParametricPlot3D[{x, y, z}, {u, -3 Pi, 0}, {v, .2, 2.9}, 
    PlotPoints -> {37, 15}], Smoothing -> 5]

In[17]:= Show[%, ViewPoint -> {1.3, 2.4, 2.}]

Smooth3D[ParametricPlot3D[{x, y, z}, {u, -3 Pi, Pi}, {v, .2, 2.9}, 
    PlotPoints -> {37, 15}], ViewPoint -> {1.3, 2.4, 2.}, Smoothing -> 5,
    ImageSize -> 800]

(* in case you forgot to pull it large *)

Another (simple) idea would be to display only parts from the surface patches:

  ParametricPlot3D[{x, y, z, EdgeForm[]}, {u, - 4.5, 4.5}, {v, .015, 3.12}, 
      PlotPoints -> 75] /. Polygon[pts_] :> Polygon[Rest[pts]]]

or show only the wires:

  Smooth3D[ParametricPlot3D[{x, y, z}, {u, - 4.5, 4.5}, {v, .015, 3.12}, 
        PlotPoints -> 75], Smoothing -> 3] /. Polygon[pts_] -> {}]

But as you see the real problem is to find a better parametrisation for calculation of the graphics.

(Possibly it is enought to draw several parts and patch them together e.g. with David Park's DrawGraphics package, see

Hartmut Wolf

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