Conic sections
- To: mathgroup at smc.vnet.net
- Subject: [mg43448] Conic sections
- From: mathma18 at hotmail.com (Narasimham G.L.)
- Date: Wed, 17 Sep 2003 07:59:06 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In an (unsuccessful) attempt to depict each frame as part of an
animation of cone/plane intersections (circle, ellipse, parabola,
hyperbola), instead of Showing [( gr1,gr2)n] ( n frames) , the
following program Shows [gr1,(gr2)n] (single frame) :
Needs["Graphics`ParametricPlot3D`"];
gr1=CylindricalPlot3D[r, {r, -1, 1},{theta, 0,2 Pi}] ;
gr2=Table[
ParametricPlot3D[{-x,y, Tan[al] (x-1)+.5 },
{x, -1, 1},{y,-1,1}],{al,-1.5,1.5,.5}];
Show[gr1,gr2];
This has the undesirable effect of the required cone section being
obscured by the next succeeding intersection plane. How is it done in
separate frames in a DO loop or Table? TIA G.L.Narasimham