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

Contents

Use This Project

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

Thing Statistics

5289Views 554Downloads 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

All Apps

No results.

What software did you use to generate this?

Top