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

Description

TubePlotFrenet[curve_List, {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[q0*t] + 2;
x = r* Cos[p0*t];
y = r *Sin[p0*t];
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[q0*t] + 2;
x = r* Cos[p0*t];
y = r *Sin[p0*t];
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]

Recent Comments

view all
What software did you use to generate this?

More from Math Art

view more

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
What software did you use to generate this?
Top