Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2014

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

Search the Archive

Variable section and hollow Tubes for economic 3D printing

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132557] Variable section and hollow Tubes for economic 3D printing
  • From: Narasimham <mathma18 at gmail.com>
  • Date: Fri, 11 Apr 2014 02:10:49 -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

TubeRadius = 0.2 ; X[u_] = {Cos[u] , Sin[u], 0 };
CentrCirc = 
  ParametricPlot3D[X[u], {u, 0, 2 Pi}, PlotStyle -> {Red, Thick}];
Solid = ParametricPlot3D[ X[t], {t, 0,  Pi},PlotStyle -> Tube[TubeRadius], PlotRange -> All];
Show[{CentrCirc, Solid}, PlotRange -> All]
" The above is a solid torus by inclusive consideration of all TR values between 0 to 0.2, or, so to say < solidifies > the Surface given below that is valid for outer radius TR = 0.2 only. "
Surface = ParametricPlot3D[ {(a + TubeRadius Cos[ph]) Cos[t], (a + TubeRadius Cos[ph]) Sin[t],TubeRadius Sin[ph]}, {ph, -Pi, Pi}, {t, 0,  Pi}];
Show[{Surface, CentrCirc}, PlotRange -> All]
" However, if TubeRadius is made function of t or ph how to use Tube[TubeRadius], between limits TR = 0 and TR = 0.2, or even between limits TR = 0.1 and TR = 0.2 hollow, in order to <solidify> the surface ? "
TR[u_] = 0.2 + 0.15 Cos[u] ;
a = 1; Plot[TR[t], {t, 0, 2 Pi}] 
ParametricPlot3D[ {(a + TR[t] Cos[ph]) Cos[t], (a + TR[t] Cos[ph]) Sin[t], 0 t + TR[t] Sin[ph]}, {ph, -Pi, Pi}, {t, 0,  Pi}]
ParametricPlot3D[ {(a + TR[t] Cos[ph]) Cos[t], (a + TR[t] Cos[ph]) Sin[t], .8 t + TR[t] Sin[ph]}, {ph, -Pi,Pi}, {t, 0,  Pi}]
ParametricPlot3D[ {(a + TR[2 ph] Cos[ph]) Cos[t], (a + TR[2 ph] Cos[ph]) Sin[t], .8 t + TR[2 ph] Sin[ph]}, {ph, -Pi, Pi}, {t, 0, Pi}]

After all, a solid is formed by surface growth along its normal. It is believed such a generalization command in Mathematica for all surfaces would be of help in 3D printing of plastic mathematical models that are presently fast catching on.

 Best Regards
 Narasimham GL "



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