Services & ResourcesWolfram ForumsMathGroup Archive

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

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?
>
> 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]
>
>

• References:
  • variable tube radius and variable surface thickness
    • From: Narasimham <mathma18@gmail.com>