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

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

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]

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

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

Thread

Re: variable tube radius and variable surface thickness Narasimham <mathma18@gmail.com> - 2014-04-11 06:10 +0000

csiph-web