The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: ParametricLinePlot3D
Replies: 1   Last Post: Nov 6, 2013 12:19 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]

Posts: 359
Registered: 9/16/06
Posted: Oct 24, 2013 11:27 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

" Bend-Rolling circle on cylinder by gln "
ring={a Cos[R Sin[u]/a],a Sin[R Sin[u]/a],R Cos[u]} ;
Ringsweep={a Cos[R Sin[u]/a+t],a Sin[R Sin[u]/a+t],R Cos[u]};
Ringsweep1={a Cos[R Sin[u]/a]Cos[v]-Sin[v]*a Sin[R Sin[u]/a],a Cos[R Sin[u]/a]Sin[v]+Cos[v]*a Sin[R Sin[u]/a],R Cos[u]};
rng=ParametricPlot3D[ring,{u,0,2 Pi},PlotStyle->{Green,Thick}]
sw=ParametricPlot3D[Ringsweep,{u,0,2 Pi},{t,0,Pi},Mesh->{18,3},PlotStyle->{Green,Thick}]
sw1=ParametricPlot3D[Ringsweep1,{u,0,2 Pi},{v,0,Pi},Mesh->{18,3},PlotStyle->{Green,Thick},Boxed->False, Axes->None]

" I want to be able to see just 4 neat green thick parametric lines of above first plot 'rng', rotated around the vertical axis, without smearing up the patch and without using any ListPlots. Please help. "


Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.