Another way. with(geom3d):plane(P,3x+12y-3*z-5=0,[x,y,z

toandhsp — Thu, 26 Jan 2012 04:23:29 Z

Another way.

with(geom3d):
plane(P,3*x+12*y-3*z-5=0,[x,y,z]):
plane(Q,3*x - 4*y  + 9*z + 7=0,[x,y,z]):
line(d1, [2*t -5, -4*t+3, 3*t -1],t):
line(d2, [-2*m + 3, 3*m - 1, 4*m + 2],m):
intersection(Delta,P,Q):
delta:=ParallelVector(Delta):
a:=ParallelVector(d1):
with(linalg):
n1:= crossprod(delta,a):
plane(P1,[point(A,-5,3,-1),n1],[x,y,z]):
coordinates(intersection(M,d2,P1)):
line(d,[M,delta],t):
Equation(d);
AreParallel(d,d1);
AreParallel(d,d2);

Another way

toandhsp — Thu, 26 Jan 2012 12:16:53 Z

This is second my code.

restart;with(geom3d):

plane(P,3*x+12*y-3*z-5=0,[x,y,z]):

plane(Q,3*x - 4*y + 9*z + 7=0,[x,y,z]):

line(d1, [2*t -5, -4*t+3, 3*t -1],t):

line(d2, [-2*m + 3, 3*m - 1, 4*m + 2],m):

with(LinearAlgebra):

a:=convert(NormalVector(P),Vector):

b:=convert(NormalVector(Q),Vector):

v:=CrossProduct(a,b):

A:=<2*t -5, -4*t+3, 3*t -1>:

B:=<-2*m+3, 3*m - 1, 4*m + 2>:

u:=A - B:

w:=LinearAlgebra[CrossProduct](v,u):

solve([seq(w[i]=0,i=1..3)]): assign(%):

'A'=A: 'B'=B:

M:=<x,y,z>: [seq(M[i]=(A + v*n)[i],i=1..3)];

Please comment for me. Thank you very much.

MaplePrimes - answers and comments on Question, Equation of a line (3)

Another way. with(geom3d):plane(P,3*x+12*y-3*z-5=0,[x,y,z

Another way

Another way. with(geom3d):plane(P,3x+12y-3*z-5=0,[x,y,z