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: [mg132564] Variable section and hollow Tubes for economic 3D printing
  • From: Narasimham <mathma18 at gmail.com>
  • Date: Sat, 12 Apr 2014 05:15:19 -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

Although the tube is not fully filled, a constant thickness prescribed on a variable cross section works. This meets a good number of solid modeling requirements.

TubeRadius = 0.2 ; TR[u_] = 0.2 + 0.15 Cos[u] ; a = 1; Plot[TR[t], {t, 0, 2 Pi}]
  
tor = ParametricPlot3D[ {(a + TR[t] Cos[ph]) Cos[t], (a + TR[t] Cos[ph]) Sin[t], .5 t + TR[t] Sin[ph]}, {ph, -Pi,Pi}, {t, 0,  Pi}];

torTHK = ParametricPlot3D[ {(a + TR[t] Cos[ph]) Cos[t], (a + TR[t] Cos[ph]) Sin[t], .5 t + TR[t] Sin[ph]}, {ph, -Pi,Pi}, {t, 0,  Pi}, PlotStyle -> Thickness[.07], Axes -> None, Boxed -> False]

HelTHK = 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}, PlotStyle -> Thickness[.04], Axes -> None, Boxed -> False]

Narasimham



  • Prev by Date: R: checking the sign of all terms in a long expression
  • Next by Date: Using FindRoot with free parameters
  • Previous by thread: Variable section and hollow Tubes for economic 3D printing
  • Next by thread: weird numbers