Another service from Omega

Problem 1


*****
    |\^/|     Maple V Release 3 (SUNY at Albany)
._|\|   |/|_. Copyright (c) 1981-1994 by Waterloo Maple Software and the
 \  MAPLE  /  University of Waterloo. All rights reserved. Maple and Maple V
 <____ ____>  are registered trademarks of Waterloo Maple Software.
      |       Type ? for help.
Warning: new definition for   norm
Warning: new definition for   trace



Problem:

Find the equation of the plane determined by the lines L1 and L2 where,


> L1 := {(x+3)/3 = y/(-2), y/(-2) = (z-7)/6}; L2 := {(x+6)/1 = (y+5)/(-3),(y+5)/(-3) =(z-1)/2};


               L1 := {1/3 x + 1 = - 1/2 y, - 1/2 y = 1/6 z - 7/6}

           L2 := {x + 6 = - 1/3 y - 5/3, - 1/3 y - 5/3 = 1/2 z - 1/2}




The intersection point is,


> solve( L1 union L2,{x,y,z});


                            {y = 4, z = -5, x = -9}




The normal to the plane is perpendicular to the direction vectors of L1 and L2,


> n := crossprod([3,-2,6],[1,-3,-3]);


                              n := [ 24, 15, -7 ]




and the equation of the plane is,


> Plane := innerprod(n,[x+9,y-4,z+5]) = 0;


                      Plane := 24 x + 121 + 15 y - 7 z = 0




and sort the terms with,


> Plane := sort(Plane,[x,y,z]);


                      Plane := 24 x + 15 y - 7 z + 121 = 0




Let's plot it all! We start with L1 and L2,


> with(plots):




> picL1 := spacecurve(evalm([-3,0,7]+t*[3,-2,6]),t=-5..5):



> picL2 := spacecurve(evalm([-6,-5,1]+t*[1,-3,-3]),t=-5..5):



> picPlane := plot3d( solve(Plane,z), x=-20..20, y=-15..15,grid=[5,5]):



> display3d({picL1,picL2,picPlane});
picture a picture here

Link to the commands in this file
Carlos Rodriguez <carlos@math.albany.edu>
Last modified: Wed Sep 18 14:55:44 EDT 1996