Cylindric Section

Author

Eric W. Weisstein
March 20, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SolidGeometry/CylindricSection.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/CylindricSection.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Equations

Solve[{x^2+y^2==r^2,a x+b y +c z+d==0},{y,z}]

<<Graphics`Colors`

CylindricalSection[{a_,b_,c_,d_},r_,opts___]:=ParametricPlot3D[Evaluate[{x,#(Sqrt[(r^2)-(x^2)]),((-d-a x-b (Sqrt[(r^2)-(x^2)]))/c),{Thickness[.015],Red}}&/@{-1,1}],{x,-r,r},opts,DisplayFunction->Identity][[1]]

<<Graphics`Shapes`

Show[Graphics3D[{
{GrayLevel[.5],Wireframe[Cylinder[1,2]]},
CylindricalSection[#,1]&/@{
{0,0,1,2},
{1,0,1,0},
{1,0,2,-2}
}}
],Axes->False]

Show[Graphics[{
HiddenWireframe[
{Cylinder[1,2],
CylindricalSection[#,1]&/@{
{0,0,1,2},
{1,0,1,0},
{1,0,2,-2}
}}]}
],Axes->False]

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["cylsec.m",cylseg]

WriteLiveForm["cylsecc.m",
Show[Graphics3D[{
{Thickness[.02],CylindricalSection[{1,1.5,3,-3},1]}
}]]]