       Re: variable tube radius and variable surface thickness

• To: mathgroup at smc.vnet.net
• Subject: [mg132529] Re: variable tube radius and variable surface thickness
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Tue, 8 Apr 2014 03:37:45 -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
• References: <20140405054914.60D886A5A@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?
>
>
> 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]
>
>

```

• Prev by Date: Re: question
• Next by Date: Re: Efficient function to accumulate a list of