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 >