MathGroup Archive 2014

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

Search the Archive

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



  • Prev by Date: checking the sign of all terms in a long expression
  • Next by Date: Variable section and hollow Tubes for economic 3D printing
  • Previous by thread: Re: variable tube radius and variable surface thickness
  • Next by thread: Solid Modeling package