MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: tubes program not working in version 9

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129042] Re: tubes program not working in version 9
  • From: Roger Bagula <roger.bagula at gmail.com>
  • Date: Sun, 9 Dec 2012 23:30:53 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <k9s2rq$mp9$1@smc.vnet.net> <k9umn6$sio$1@smc.vnet.net>

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 UTC-8, Nasser M. Abbasi wrote:
 
> p0=1; q0=1; and fixed the above issue with var vs. t,
> 
> then it worked.
> 
> 
> 
> 
> 
> --Nasser




  • Prev by Date: Re: M8 parallel to M9 installation
  • Next by Date: Re: Displaying the solution step by step in Wolfram
  • Previous by thread: Re: tubes program not working in version 9
  • Next by thread: when is y=x+a not a straight line?