I have recently been working in Mathematica 6.0 trying to graph various curves using ParametricPlot3D. I have specifically defined:(adsbygoogle = window.adsbygoogle || []).push({});

a1[p_]={(sqrt(25-p^2))*Sin[10*p],(Sqrt(25-p^2))*Cos[10*p],(p)^2};

Graphing this is no problem.

The problem is I am trying to turn this into a Fernet type curve using the standard INT normalized basis vectors one studies in Cal3. ( take the tangent vector, then the normal vector, then the cross product). When I finally end up using the PramametricPlot3D the result although looking correct is pretty rough (very choppy, not clean at all) .

Any thoughts on how to improving the appearance and hopefully calculation speed as I want to ultimately use this in a much larger Mathematica programming context.

I have tried other simplifier Fernet curves and they look ok, examples like a standard doughnut or corkscrew, {Sin, Cos, u }

I assume I probably need to carry greater immediate precision in the various calculations and also need to somehow speed up the calculations. I’ve tried some increased precision commands, but they did not help the graph.

Any thought would be helpful.

Thanks

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Choppy graphs in mathematica

**Physics Forums | Science Articles, Homework Help, Discussion**