-1
$\begingroup$

I want to see the image of a tube made from a space curve. I define the surface using Frenet-Serret frame but the software does not show me the plot. What might be wrong with my code?

Thank you.

$\endgroup$

closed as off-topic by bbgodfrey, Karsten 7., Bob Hanlon, Sjoerd C. de Vries, Michael E2 Apr 12 '15 at 16:06

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – bbgodfrey, Karsten 7., Bob Hanlon, Sjoerd C. de Vries
If this question can be reworded to fit the rules in the help center, please edit the question.

  • $\begingroup$ can you post the code for the plot please, thx $\endgroup$ – penguin77 Apr 12 '15 at 13:01
  • 1
    $\begingroup$ Welcome to Mathematica.SE! I suggest the following: 1) As you receive help, try to give it too, by answering questions in your area of expertise. 2) Read the faq! 3) When you see good questions and answers, vote them up by clicking the gray triangles, because the credibility of the system is based on the reputation gained by users sharing their knowledge. Also, please remember to accept the answer, if any, that solves your problem, by clicking the checkmark sign! $\endgroup$ – user9660 Apr 12 '15 at 13:35
  • $\begingroup$ Perhaps adding the underscores in the definition of T2 might help. $\endgroup$ – Sjoerd C. de Vries Apr 12 '15 at 14:40
  • $\begingroup$ possible duplicate of Extruding along a path $\endgroup$ – Michael E2 Apr 12 '15 at 16:06
  • $\begingroup$ It is not because I wasn't looking for the use of Tube command, I needed a mathematical expression. $\endgroup$ – thedude Apr 12 '15 at 16:09
1
$\begingroup$

You need to define c and to use the correct syntax in the definition of T2:

T2[s_, y_] := r[s] + 2*(c[s]*Sin[y] - j[s]*Cos[y])
c[s_] := s; (* for example *)
ParametricPlot3D[Evaluate@T2[s, y], {s, 0, 2*Pi}, {y, 0, 2*Pi}]

enter image description here

Update: For the updated version of the question:

ClearAll[r, s, j, v, T2, y]
r[s_] := {-(5 + 2*Cos[2*s])*Sin[3*s], (5 + 2*Cos[2*s])*Cos[3*s], 
  2*Sin[2*s]}
j[s_] := Normalize[Cross[r'[s], r''[s]]]
v[s_] := Normalize[Cross[j[s], Normalize[r'[s]]]]
T2[s_, y_] := r[s] + 1*(j[s]*Sin[y] - v[s]*Cos[y])

ParametricPlot3D[Evaluate@T2[s, y], {s, 0, 2*Pi}, {y, 0, 2*Pi}]

enter image description here

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.