Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Torus radii & Meshes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95511] Re: Torus radii & Meshes
  • From: dh <dh at metrohm.com>
  • Date: Tue, 20 Jan 2009 05:48:45 -0500 (EST)
  • References: <gkpppm$dmb$1@smc.vnet.net>


Hi Franco,

you may add sections by more mesh functions:

ParametricPlot3D[{{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],

    4 + Sin[v]}}, {u, 0, 2 Pi}, {v, 0, 2 Pi},

  MeshFunctions -> {#4 &, #4 + 1 &, #5 &, #5 + 1 &},

  Mesh -> {{{3 Pi/4, Directive[Red, Thick]}}},

  PlotStyle -> {Green, Opacity[0.5]}]

However, it may be easier to use Mesh->True:

ParametricPlot3D[{{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],

    4 + Sin[v]}}, {u, 0, 2 Pi}, {v, 0, 2 Pi}, Mesh -> True,

  PlotStyle -> {Green, Opacity[0.5]}]

hope this helps, Daniel





Franco Milicchio wrote:

> Hi everybody!

> 

> I am trying to make a 3D plot of a torus highlighting its circular  

> sections. Now, I am not that trained with Mathematica, and all I've  

> succeeded in doing is to get the "vertical" section. I still miss the  

> horizontal one:

> 

> ParametricPlot3D[

>   {

>    {(3 + Cos[v]) Sin[u],

>     (3 + Cos[v]) Cos[u],

>     4 + Sin[v]}

>    },

>   {u, 0, 2 Pi},

>   {v, 0, 2 Pi},

>   MeshFunctions -> {#4 &}, Mesh -> {{{3 Pi/4, Directive[Red, Thick]}}},

>   PlotStyle -> {Green, Opacity[0.5]}]

> 

> 

> Another question. Is mathematica able to manipulate meshes? I mean, I  

> know I can import and plot 3D models (STL, Maya, and so on), but what  

> if I want to manipulate that data, getting adjacency matrices and  

> other information? Is there a tutorial on this issue?

> 

> Thanks!

> 	Franco

> 




  • Prev by Date: Re: ntdvmm error
  • Next by Date: Re: Constrain independent variable in FindFit?
  • Previous by thread: Re: ntdvmm error
  • Next by thread: Formatting in text cells ...