Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: 3d artifacts
Replies: 3   Last Post: Jul 22, 2012 4:29 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Roger Bagula

Posts: 101
Registered: 7/12/09
Re: 3d artifacts
Posted: Jul 20, 2012 3:51 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Bob Hanlon
You and Park both thought exceptions would work.
Once add an tube function Parametric3D
no longer performs the Exceptions it appears.
I tried a tube program that usually works
and then my triaxial tubes topological product method:
Clear[ww, x, t, p, f, g]
(* patched manifold function for Whitehead link*)
ww[t_, p_] :=
If[t >= 0 &&
t < 2*Pi, {(10 + Cos[p])*Cos[t], (10 + Cos[p + 2*Pi/3])*
Sin[t], (10 + Cos[p - 2*Pi/3])*Sin[2*t]},
If[t >= 2*Pi &&
t <= 4*Pi, {(10 + Cos[p])*
Sin[2*t], (10 + Cos[p + 2*Pi/3])*15/
10 Cos[t]/(1 + Sin[t]^2), (10 + Cos[p - 2*Pi/3])*
Sin[t]/(1 + Sin[t]^2)}, {(10 + Cos[p])*
Cos[t], (10 + Cos[p + 2*Pi/3])*Sin[t], (10 + Cos[p - 2*Pi/3])*
Sin[2*t]}]];
ParametricPlot3D[ww[t, p], {t, 0, 4*Pi + 0.01}, {p, 0, 2*Pi},
Exclusions -> {2 Pi, 4 Pi}, Boxed -> False, Axes -> False,
ColorFunction -> "GreenBrownTerrain", MeshFunctions -> {#3 &},
PlotPoints -> {35, 100}]
ParametricPlot3D[ww[t, p], {t, 0, 4*Pi + 0.01}, {p, 0, 2*Pi},
Exclusions -> Range[0, 4 \[Pi], \[Pi]/4], Boxed -> False,
Axes -> False, ColorFunction -> "GreenBrownTerrain",
MeshFunctions -> {#3 &}, PlotPoints -> {35, 100}]
(* bicuspoid manifold definition*)
f[t_] = If [
t >= -Pi/2 && t <= Pi/2, (1 - Cos[2*t])/2, (-1 + Cos[2*t])/2];
g[t_] = -Pi/2 + Mod[t, Pi];
ParametricPlot3D[{(10 + Cos[p])*f[t]*g[t], (10 + Cos[p + 2*Pi/3])*
g[t]*g[t], (10 + Cos[p - 2*Pi/3])*f[t]}, {t, -Pi, Pi}, {p, 0,
2*Pi}, Exclusions -> Range[-\[Pi], \[Pi], \[Pi]/4], Boxed -> False,
Axes -> False, ColorFunction -> "GreenBrownTerrain",
MeshFunctions -> {#3 &}, PlotPoints -> {35, 100}]
ParametricPlot3D[{(10 + Cos[p])*f[t]*g[t], (10 + Cos[p + 2*Pi/3])*
g[t]*g[t], (10 + Cos[p - 2*Pi/3])*f[t]}, {t, -Pi, Pi}, {p, 0,
2*Pi}, Exclusions -> {-Pi/2, Pi/2}, Boxed -> False, Axes -> False,
ColorFunction -> "GreenBrownTerrain", MeshFunctions -> {#3 &},
PlotPoints -> {35, 100}]

On Monday, July 9, 2012 2:24:24 AM UTC-7, Bob Hanlon wrote:
> Resent since this hasn&#39;t shown up.






Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.