Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I have two plots:

pt1=ParametricPlot3D[{Sin[θ], y, Cos[θ]}, {θ, 0, 2 Pi}, {y, 0, 2 Pi}, 
 PlotRange -> {{-2, 2}, {0, 2 Pi}, {-2, 2}}, 
 BoxRatios -> {1, 3/2, 1}, Boxed -> False, AxesOrigin -> {0, 0, 0}, 
 AxesLabel -> {x, y, z}, Mesh -> None, 
 AxesStyle -> Arrowheads[{0.1, 0.1, 0.2}], 
 ColorFunction -> Function[{x, y, z}, Lighter[LightGray]], 
 BoundaryStyle -> Gray];

Mathematica graphics

pt2=Show[Table[
  Graphics3D[{{Arrowheads[Small], 
     Arrow[{{0, i1  (Pi/50), 0}, {Sin[ (2 Pi/50) i1], i1 (Pi/50), 
        Cos[ (2 Pi/50) i1]}}]}}, Boxed -> False], {i1, 1, 100}]];

Mathematica graphics

I would like to see "apparently" all the arrows by combing them together. However, when I use

Show[pt1,pt2]

Mathematica graphics

I can not see any "arrows" from the output. Can anyone help me to fix this? Thanks!

share|improve this question

closed as off-topic by halirutan, Öskå, Yves Klett, Mr.Wizard Jul 29 at 11:37

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." – halirutan, Öskå, Yves Klett, Mr.Wizard
If this question can be reworded to fit the rules in the help center, please edit the question.

2 Answers 2

You just need to add Opacity to your first plot:

pt1=ParametricPlot3D[{Sin[θ], y, Cos[θ]}, {θ, 0, 2 Pi}, {y, 0, 2 Pi}, 
 PlotRange -> {{-2, 2}, {0, 2 Pi}, {-2, 2}}, 
 BoxRatios -> {1, 3/2, 1}, Boxed -> False, AxesOrigin -> {0, 0, 0}, 
 AxesLabel -> {x, y, z}, Mesh -> None, 
 AxesStyle -> Arrowheads[{0.1, 0.1, 0.2}], 
 ColorFunction -> Function[{x, y, z}, Lighter[LightGray]], 
 BoundaryStyle -> Gray, PlotStyle -> Opacity@.3];    
pt2=Show[Table[
  Graphics3D[{{Arrowheads[Small], 
     Arrow[{{0, i1  (Pi/50), 0}, {Sin[ (2 Pi/50) i1], i1 (Pi/50), 
        Cos[ (2 Pi/50) i1]}}]}}, Boxed -> False], {i1, 1, 100}]];

Show[pt1,pt2]

Mathematica graphics

share|improve this answer
    
Thanks for your quick and helpful comment! –  user9510 Jul 29 at 10:41
    
@user9510 My pleasure, I really like the output :D –  Öskå Jul 29 at 10:43

If you make your tube "gray" it doesn't mean that you can look through it! You have to use Opacity to make your tube only half-visible:

pt1 = ParametricPlot3D[{Sin[\[Theta]], y, Cos[\[Theta]]}, {\[Theta], 
    0, 2 Pi}, {y, 0, 2 Pi}, 
   PlotRange -> {{-2, 2}, {0, 2 Pi}, {-2, 2}}, 
   BoxRatios -> {1, 3/2, 1}, Boxed -> False, AxesOrigin -> {0, 0, 0}, 
   AxesLabel -> {x, y, z}, Mesh -> None, 
   AxesStyle -> Arrowheads[{0.1, 0.1, 0.2}], 
   ColorFunction -> Function[{x, y, z}, Opacity[.5, Gray]], 
   BoundaryStyle -> None];

pt2 = Show[
   Table[Graphics3D[{{Arrowheads[Small], 
       Arrow[{{0, i1 (Pi/50), 0}, {Sin[(2 Pi/50) i1], i1 (Pi/50), 
          Cos[(2 Pi/50) i1]}}]}}, Boxed -> False], {i1, 1, 100}]];

Show[pt2, pt1]

Mathematica graphics

share|improve this answer
    
It helps and thanks! –  user9510 Jul 29 at 10:43

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