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: tubes program not working in version 9
Replies: 3   Last Post: Dec 9, 2012 11:32 PM

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
tubes program not working in version 9
Posted: Dec 7, 2012 1:37 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

The problem seems to be sometimes it works but mostly it doesn't.
The tubes program was written for an earlier version
( works in version 5 I think) by Mark McClure
and has worked fine for literally years.
I haven't got a clue what has gone wrong.
( technically these are called channel surfaces or the like).

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];
curve + radius Cos[s] unitNormal + radius Sin[s] biNormal //
Evaluate, {var, min, max}, {s, 0, 2 \[Pi]}, opts]]

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]}, 1, Axes -> None,
Boxed -> False, PlotPoints -> {64, 16},
ColorFunction -> "CandyColors", MeshFunctions -> {#3 &}]

My other tubes program which came from an answer in this group
still works.

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.