Re: variable tube radius and variable surface thickness

*To*: mathgroup at smc.vnet.net*Subject*: [mg132556] Re: variable tube radius and variable surface thickness*From*: Narasimham <mathma18 at gmail.com>*Date*: Fri, 11 Apr 2014 02:10:29 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net

> Manipulate[ > TR[t_] = r2 (1 + .75 Cos[t]); > ParametricPlot3D[{ > {r Cos[t + Pi], r Sin[t + Pi], 0}, > {r Cos[t], r Sin[t], 0}}, > {t, 0, Pi}, > PlotRange -> > {{-3, 3}, {-3, 3}, {-1, 1}}, > PlotStyle -> > (Tube[TR[#]] & /@ {t, Pi/2}), > PlotPoints -> 50], > {{r, 1, "Radius of ring"}, .5, 2, .01, > Appearance -> "Labeled"}, > {{r2, .2, "Radius of tube"}, .05, .5, .01, > Appearance -> "Labeled"}] > > Bob Hanlon > On Sat, Apr 5, 2014 at 1:49 AM, Narasimham > <mathma18 at gmail.com> wrote: > > > How is changing radius toroid implemented? > > > > How is changing thickness of surface implemented? > > > > Thanks in advance for reply. > > > > Regards > > Narasimham > > > > TR[t_] = .2 + .15 Cos[ t] > > Plot[TR[t], {t, 0, 2 Pi}] > > g1 = ParametricPlot3D [{Cos[t], Sin[t], 0}, > {t,Pi,2 Pi}, > > PlotRange -> All, PlotStyle -> Tube[TR[t]]] > > TR[t_] = .2 > > g2 = ParametricPlot3D [ { Cos[t], Sin[t], 0}, > {t, 0, Pi},PlotRange -> > > All, PlotStyle -> Tube[.2] ] > > Show[g1, g2] Not exactly what I was looking for. Shall try to express this better in another thread "Variable section and hollow Tubes for economic 3D printing", which I am trying to post. Regards Narasimham