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