Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*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 2001

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

Search the Archive

RE: remicing the mesh in ParamtericPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg32111] RE: [mg32102] remicing the mesh in ParamtericPlot3D
  • From: "David Park" <djmp at earthlink.net>
  • Date: Thu, 27 Dec 2001 03:34:13 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Eric,

Yes, you can remove the mesh. But the regular Mathematica method is, to my
mind, a little ackward.

Here is a parametrization of a sphere and a plot using ParametricPlot3D.

sphere[p_, t_] := {Cos[t]Cos[p], Sin[t]Cos[p], Sin[p]}
ParametricPlot3D[Evaluate[sphere[p, t]], {p, -Pi/2, Pi/2}, {t, 0, 2Pi}];

To get with of the so-called "mesh" you really have to use EdgeForm[] and
put it in the fourth argument of the parametrization. In other words, you
have to reparametrize.

sphere2[p_, t_] := {Cos[t]Cos[p], Sin[t]Cos[p], Sin[p], EdgeForm[]}
ParametricPlot3D[Evaluate[sphere2[p, t]], {p, -Pi/2, Pi/2}, {t, 0, 2Pi}];

It is much easier using my DrawGraphics package (at my web site). You just
put any graphics directives before the ParametricDraw3D command.

Needs["DrawGraphics`DrawingMaster`"]

Draw3DItems[
    {EdgeForm[],
      ParametricDraw3D[
        Evaluate[sphere[p, t]], {p, -Pi/2, Pi/2}, {t, 0, 2Pi}]},
    Axes -> True];

DrawGraphics also has routines that allow you to smoothly fit together a
number of surfaces at curved edges.

If you need many plot points to obtain a smooth surface but want a courser
"mesh" then there is a very nice package called Smooth3D done by Allan Hayes
and Hartmut Wolf. The package can be obtained from the MathGroup archives:

http://library.wolfram.com/mathgroup/archive/2001/May/msg00292.html

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/



> From: Erich Neuwirth [mailto:erich.neuwirth at univie.ac.at]
To: mathgroup at smc.vnet.net
>
> can the mesh in a ParametricPlot3D be removed?
> The returned value is not a Surface object, bt a Graphics3D object.
>
> --
> Erich Neuwirth, Computer Supported Didactics Working Group
> Visit our SunSITE at http://sunsite.univie.ac.at
> Phone: +43-1-4277-38624 Fax: +43-1-4277-9386
>



  • Prev by Date: Re: Re: Find many Roots
  • Next by Date: RE: size of graphics for animation
  • Previous by thread: Re: remicing the mesh in ParamtericPlot3D
  • Next by thread: Re Solve for Equations