Loading
Hey! This thing is still a Work in Progress. Files, instructions, and other stuff might change!

52 to 25 torus knot bridge surface

by rlbagulatftn, published

52 to 25 torus knot bridge surface by rlbagulatftn Oct 24, 2012
Tip Designer Report Thing

Thing Info

5277Views 532Downloads Found in Math Art

Summary

TubePlotFrenet[curveList, {var, min, max}, radius_, opts___] :=
Module[{tangent, unitTangent, normal, unitNormal, biNormal},
tangent = D[curve, t];
unitTangent = tangent/Sqrt[tangent.tangent];
normal = D[unitTangent, t];
unitNormal = normal/Sqrt[normal.normal];
biNormal = Cross[unitTangent, unitNormal];
ParametricPlot3D[
curve + radius Cos[s] unitNormal + radius Sin[s] biNormal //
Evaluate, {var, min, max}, {s, 0, 2 [Pi]}, opts]]
{p0, q0} = {5, 2};

r = Cos[q0t] + 2;
x = r
Cos[p0t];
y = r
Sin[p0t];
z = Sin[q0
t];
w0 = 8*{x, y, z}
h = TubePlotFrenet[w0, {t, 0, 2 [Pi]}, 2, Axes -> None,
Boxed -> False, PlotPoints -> {64, 16},
ColorFunction -> "CandyColors", MeshFunctions -> {#3 &}]
{p0, q0} = {2, 5};

r = Cos[q0t] + 2;
x = r
Cos[p0t];
y = r
Sin[p0t];
z = Sin[q0
t];
w = 8{x, y, z}
h1 = TubePlotFrenet[w, {t, 0, 2 [Pi]}, 2, Axes -> None,
Boxed -> False, PlotPoints -> {64, 16},
ColorFunction -> "BeachColors", MeshFunctions -> {#3 &}]
Show[{h, h1}, PlotRange -> All, ViewPoint -> {0, 0, 5}]
ga = ParametricPlot3D[p
w + (1 - p)w0, {t, -Pi, Pi}, {p, 0, 1},
Axes -> False, Boxed -> False, PlotRange -> All,
PlotPoints -> {60, 60}, ColorFunction -> "Pastel",
MeshStyle -> {Tube[0.25
5/4]}, PlotStyle -> {Opacity[0.0]},
ViewPoint -> {0, 0, 5}, ImageSize -> {674, 501}, Mesh -> 16]
gw = Show[{h, h1, ga}, PlotRange -> All, ViewPoint -> {0, 0, 5},
ImageSize -> 1000]

More from Math Art

view more
Tip Designer Report Thing

Thing Info

5277Views 532Downloads Found in Math Art

Liked By

View All

Give a Shout Out

If you print this Thing and display it in public proudly give attribution by printing and displaying this tag. Print Thing Tag

All Apps

No results.

What software did you use to generate this?

Top