
Re: tubes program not working in version 9
Posted:
Dec 9, 2012 11:32 PM


I'm also having trouble with merge cells which erased the {p0,q0} on pasting: This solution is due to an email from an old friend who is very modest: TubePlotFrenet2[curve_List, {var_, min_, max_}, radius_, opts___] := Module[{tangent, unitTangent, normal, unitNormal, biNormal}, tangent = D[curve, t] // Simplify; unitTangent = tangent/Sqrt[tangent.tangent] // Simplify; normal = D[unitTangent, t] // Simplify; unitNormal = normal/Sqrt[normal.normal] // Simplify; biNormal = Cross[unitTangent, unitNormal] // Simplify; ParametricPlot3D[ curve + radius Cos[s] unitNormal + radius Sin[s] biNormal // Evaluate, {var, min, max}, {s, 0, 2 \[Pi]}, opts]]
h = TubePlotFrenet2[{Cos[2 t] (2 + Cos[5 t] Sin[5 t]), Sin[2 t] (2 + Cos[5 t] Sin[5 t]), Sin[5 t]}, {t, 0, 2 \[Pi]}, 1/5, Axes > None, Boxed > False, PlotPoints > {64, 16}, ColorFunction > "CandyColors", MeshFunctions > {#3 &}]
I haven't tried the ver for t solution yet: this one is much slower. On Friday, December 7, 2012 10:28:54 PM UTC8, Nasser M. Abbasi wrote: > p0=1; q0=1; and fixed the above issue with var vs. t, > > then it worked. > > > > > > Nasser

