Calculus II
Lesson 24: Conic Sections
Geometric Definition of Conic Sections
We start with the geometric definition of conic sections. Later in this lesson, we'll plot conic sections in the plane using their analytic representations.
For each picture below, the conic section is the intersection of the cone with the plane. Grab the picture with the mouse and rotate it to see the intersection from many points of view.
> restart: with(student):with(plottools): with(plots):
Warning, the name changecoords has been redefined
Circle
>
up := cone([.3,0,-1],1,2,color=blue):
down := cone([.3,0,-1],1,-2,color=blue):
circlePlane := plot3d(0, x=-3..1.5, y=-1..1, color=green, style=patchnogrid):
display([circlePlane,up,down], scaling=constrained, orientation=[140,70], style=wireframe);
Ellipse
>
ellipsePlane := plot3d(.75*x, x=-3..1.5, y=-1..1, color=green, style=patchnogrid):
display([ellipsePlane, up,down], scaling=constrained, orientation=[140,70], style=wireframe);
Parabola
>
parabolaPlane := plot3d(4*x, x=-.75..(.25), y=-1..1, color=green, style=patchnogrid):
display([parabolaPlane, up,down], scaling=constrained, orientation=[140,70], style=wireframe);
Hyperbola
>
HyperbolaPlane := implicitplot3d(x=0, x=-.6..(.2), y=-1..1, z=-3..1,color=green, style=patchnogrid):
display([HyperbolaPlane, up,down], scaling=constrained, orientation=[140,70], style=wireframe);
Analytic Representation of Conic Sections
Example 1
Consider the following conics. First try to identify them. Then confirm your guess by plotting.
a)
b)
c)
d)
e)
f)
g)
h)
In each case, state the conic obtained along with 'specifics'.
Circle specifics = center and radius
Ellsipse specifics = center, foci, vertices
Parabola specifics = vertex, directirx, focus
Hyperbola specifics = center, vertices, foci, asymptotes
a) Graph is a circle.
Center is at (0,0).
Radius = 3.
> implicitplot( x^2 + y^2 = 9, x = -10..10, y = -10..10, scaling=constrained, grid=[40,40]);
b) Graph is a rotated hyperbola.
> implicitplot(x*y = -4, x = -10..10, y = -10..10, grid=[40,40]);
c) Graph is an ellsipse.
Center (0,0)
Foci: (0, +-
)
major axis vertices: (0,+- 4)
minor axis vertices: (+-2, 0)
> implicitplot(4* x^2 + y^2 = 16, x = -10..10, y = -10..10, grid=[50,50]);
d) Graph is a hyperbola.
Center(0,0)
Vertices: (+- 6, 0)
Foci( +-
, 0)
asymptotes: y = +-
> implicitplot(x^2 - 4* y^2 = 36, x= -10..10, y = -10..10, grid=[40,40]);
e) Graph is a parabola.
Vertex: (0,0)
Focus: (1,0)
Directrix: x = -1
> implicitplot(y^2 = 4*x, x = -10..10, y = -10..10, grid=[40,40]);
f) The graph is an ellispe.
Center: (0,0)
Foci: ( +-
, 0)
Major axis vertices: (+- 1,0)
Minor axis vertices: (0, +-
> implicitplot(x^2 + 3* y^2 - 1 = 0, x = -1..1, y = -1..1, grid=[40,40]);
g) Graph is a rotated hyperbola.
> implicitplot(x^2 + 3*x * y + y^2 = 16, x = -10..10, y = -10..10, grid=[40,40]);
h) Graph is a parabola
Vertex: (0,1)
Focus: (0,0)
Directrix: y = 2
> implicitplot(x^2 + 4*y = 4, x = -3..3, y = -3..3, grid=[40,40]);
> completesquare(x^2 + y^2 - 2*x + 2*y + 2 = 0,x);
> completesquare(%,y);
Solution is one point: (1,-1).
>
Equations of Conics in Standard Form
Example 2
Write the equation of the circle that goes through (0,0), (-4,0), and (0,6).
Determine the center and radius of the circle.
> solve({f=0, 16 - 4*d + f =0, 36 + 6*e + f = 0},{d,e,f});
> completesquare(x^2 + y^2 + 4*x - 6*y = 0, x);
Thus, center is: (-2,3) and radius is
.
> completesquare(2*x^2 + 2*y^2 - 5*x -9*y + 11 = 0,x);
Standard form:
.
center:
radius:
.
a) we use:
.
p = |3 - (-5)| = 8.
h = 3, k = -2.
Equation is:
.
vertex is (3,-2).
directrix is: x = -5.
focus is: (11,-2).
> A:= implicitplot(y^2 = 20 * x, x = -10..10, y = -10..10):
> C:= textplot([-7,7,'directrix'], color = blue):
> E:= textplot([5.5,-2,'focus'], color = blue):
> B:= plot([-5,t, t = -10..10], color = blue):
> DD:= pointplot([11,-2]):
> display({A,B,C,E,DD});
> completesquare(%,y);
Example 3
Write the equation of the ellipse in standard form and determine its center, vertices, foci, and covertices.
Plot the ellipse with Foci.
> completesquare(%,x);
Standard form:
.
Center: (3,1)
and
. Use
to get:
Vertices: (3 +-
,1)
Covertices: (3, 1 +-
)
Foci: ( 3 +-
,1).
> A:= implicitplot(4 * x^2 + 5*y^2 - 24*x - 10*y + 17 = 0, x =-1..6 ,y = -3..4):
> C:= pointplot([3 -1.095445115, 1]):
Example 4
Write the equation of the hyperbola in standard form and determine its center, vertices, and foci.
Plot the graph, state and plot the asymtotes and Foci.
> completesquare(%,x);
Standard form:
and
give
.
Vertices: (3 +-2,5)
Foci: (3 +- 4,5)
Center: (3,5)
asymptotes: y = +-
.
> f:= x -> 5 + 1.732050808 * (x-3) ;
>
A:= implicitplot((x-3)^2/4-(y-5)^2/12 = 1, x = -10..12, y = -20..20):
B:= pointplot([7,5]):
> E:= plot(f(x), x = -10..10, color= blue):
> display({A,B,C,E,F});
Example 5
Using the points (0,0), (-4,0), (0,6) and the general equation
we obtain:
F = 0
16 - 4D + F = 0
36 + 6E + F = 0.
Equation of circle is:
.
> completesquare(%,y);
Example 6
Write the equation of the parabola that has the given characteristics.
Plot Each parabola with Focus and directrix. Label the focus and directirx on the graph.
a) vertex (3,-2) and directrix x = -5
b) passes through (5,10), vertex is at the origin, and the axis is the x-axis.
> A:= implicitplot((y+2)^2 = 32*(x-3), x = -10..12, y = -20..20):
> C:= textplot([-7,7,'directrix'], color = blue):
> E:= textplot([11.5,-5,'focus'], color = blue):
c) We use:
. Vertex is (0,0) implies that h = 0 and k = 0.
Since (5,10) is on the graph we have:
100 = 4 p 5 = 20 p OR p = 5.
Thus equation is:
.
Vertex is: (0,0)
Focus is: (5,0)
Directrix is: x = -5.
> B:= plot([-5,t,t = -10..10], color = blue):
> DD:= pointplot([5,0] ):
> display({A,B,C,DD,E});
Example 7
Write the equation of the parabola in standard form and determine its vertex, focus, directrix.
> completesquare(x^2 -4*x + 8*y + 36 = 0,x);
Standard form:
.
Vertex: (2,-4)
Focus: (2,-6)
Directrix: y = -2
> A:= implicitplot(x^2-4*x+8*y+36 = 0, x = -10..12, y = -20..20):B:= plot([t,-2,t = -10..10], color = blue):
> DD:= pointplot([2,-6] ):
> display({A,B,C,DD,E});
> completesquare(4*x^2 + 5*y^2 - 24*x - 10*y + 17 = 0, y);
> (%)/24;
> evalf(sqrt(6/5));
> B:= pointplot([3 +1.095445115 , 1] ):
> display({A,B,C});
> completesquare(3*x^2 - y^2 - 18*x + 10*y - 10 = 0,y);
> (%)/12;
> evalf(sqrt(12)/2);
> g:= x -> 5 -1.732050808 * (x - 3) ;
> A:=implicitplot(3*x^2 - y^2 - 18*x + 10*y - 10 = 0, x = -6..10, y = -10..10, grid=[40,40]):
> C:= pointplot([-1,5] ):
> F:= plot(g(x), x = -10..10, color= blue):
> display(A,C,F);
>