• 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 ...