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

Variable section and hollow Tubes for economic 3D printing

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!border3.nntp.dca.giganews.com!backlog3.nntp.dca3.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nac.net!newspump.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail
From	Narasimham <mathma18@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Variable section and hollow Tubes for economic 3D printing
Date	Fri, 11 Apr 2014 06:10:58 +0000 (UTC)
Sender	steve@smc.vnet.net
Approved	Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID	<li811i$adf$1@smc.vnet.net> (permalink)
Lines	20
Organization	Time-Warner Telecom
NNTP-Posting-Date	11 Apr 2014 06:16:57 GMT
NNTP-Posting-Host	75ca9f1c.news.twtelecom.net
X-Trace	DXC=Ulh@R[jA@0FVS1USibAf`FC_A=>8kQj6M;[h;PUXBgbDW:Sk\@?4VCFEFiONJ7[GoFLc\GMIWkASD
X-Complaints-To	abuse@twtelecom.net
X-Original-Bytes	2349
Xref	csiph.com comp.soft-sys.math.mathematica:16773

Show key headers only | View raw

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 "

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

Thread

Variable section and hollow Tubes for economic 3D printing Narasimham <mathma18@gmail.com> - 2014-04-11 06:10 +0000

csiph-web