The Math Forum

Search All of the Math Forum:

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

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

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: 3d artifacts
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Roger Bagula

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

In the two part defintion:

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[{f[t]*g[t], g[t]*g[t], f[t]}, {t, -Pi, Pi}]

A "handle" appears between the two parts of the curve.
I got the same effect when I tried to get a
patched manifold for the Whitehead Link:

x = Cos[t];
z = Sin[t];
y = 2*Cos[t]*Sin[t];
w = {x, y, z};
{z1, y1} = 1/(1 + Sin[t]^2) {15/10 Cos[t], Sin[t] };
x1 = 2*Cos[t]*Sin[t];
w1 = {x1, y1, z1};
(* patched manifold function for Whitehead link*)
ww[t_] :=
If[t >= 0 && t < 2*Pi, {Cos[t], Sin[t], Sin[2*t]},
If[t >= 2*Pi && t <= 4*Pi, {Sin[2*t], 15/10 Cos[t]/(1 + Sin[t]^2),
Sin[t]/(1 + Sin[t]^2)}, {Cos[t], Sin[t], Sin[2*t]}]];
ParametricPlot3D[ww[t], {t, 0, 4*Pi + 0.01}]

I'd like to remove that artifact handle
by some simple method.

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

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.