Exploring Analyic Geometry with Mathematica® |
|||||
| Home | Contents | Commands | Packages | Explorations | Reference |
| Tour | Lines | Circles | Conics | Analysis | Tangents |
Construction of Two Related Circles
tnlncir.html
Exploration
Prove that if OP and OQ are the tangent lines from (0,0) to the circle
then the equation of the circle OPQ is
.
Approach
Create the circle from the given quadratic and construct the polar (line) of the origin with respect to the circle. Intersect the polar with the circle to find P and Q. Construct a circle through O, P and Q and find its equation.
Initialize
To initialize Descarta2D, select the input cell bracket and press SHIFT-Enter.
This initialization assumes that the Descarta2D software has been copied into one of the standard directories for AddOns which are on the Mathematica search path, $Path.
<<Descarta2D`
Solution
Create the origin point and the circle from the given equation.
Clear[g,f,c];
P0=Point2D[0,0];
C1=Circle2D[Quadratic2D[1,0,1,2g,2f,c]] //Simplify
Construct the polar line.
L1=Line2D[P0,C1] //Simplify
Find the intersection points.
pts=Points2D[L1,C1] //FullSimplify
Construct the circle through the three points.
C2=Circle2D[P0,pts[[1]],pts[[2]]] //FullSimplify
Convert the circle to an equation.
Clear[x,y];
Equation2D[Quadratic2D[C2]//Simplify,{x,y}]
Discussion
Construct the circle related to
.
P0=Point2D[0,0];
C1=Circle2D[Quadratic2D[x^2+y^2-6x-4y+12==0,{x,y}]];
L1=TangentLines2D[P0,C1];
P1=Point2D[First[L1],C1];
P2=Point2D[Last[L1],C1];
C2=Circle2D[Quadratic2D[x^2+y^2-3x-2*y==0,{x,y}]];
Sketch2D[{P0,C1,L1,P1,P2,C2}]
Graphics saved as "tnlnci01.eps".