Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #16746

Re: variable tube radius and variable surface thickness

Show all headers | View raw

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

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar

Thread

Re: variable tube radius and variable surface thickness Bob Hanlon <hanlonr357@gmail.com> - 2014-04-08 07:36 +0000

csiph-web