Plotting Lines in 3D
with(plots):with(linalg):
g1:=pointplot3d({[1,0,1],[2,3,1] },color=blue,symbol=circle,symbolsize=15,axes=normal):
f:=t->1+t;
g:=t->3*t;
h:=t->1;
a:=0;
b:=1;
g2:=animate3d([f(x*t),g(x*t),h(x*t)],x=0..1,y=0..1,t=a..b,axes=normal,thickness=4,numpoints=500):display(g1,g2);
Example 3 12.4
g1:=pointplot3d({[1,4,6],[-2,5,-1],[1,-1,1]},color=red,symbol=circle,symbolsize=25,axes=normal):
a1 := <-2-1,5-4,-1-6>;
b1 := <1-1,-1-4,1-6>;
a := arrow(<1,4,6>,<-2-1,5-4,-1-6>):
b := arrow(<1,4,6>,<1-1,-1-4,1-6>):
display(a,b,g1, axes=normal,scaling=constrained);
vc:=crossprod(a1,b1);
c:= arrow(<1,4,6>,vc,color=red):
display(a,b,c,g1, axes=normal,scaling=constrained);
g2:=implicitplot3d({-40*x-15*y+15*z=-10},x=-10..10,y=-10..10,z=-10..10,axes=normal,color=blue):
display(a,b,c,g1,g2,scaling=constrained);
a1 := <1,2,-1>:
b1 := <1,1,1>:
a := arrow(a1,color=black):
b := arrow(b1,color=red):
c1:=dotprod(a1,b1)*a1/norm(a1)^2;
c:=arrow(c1,color=blue):
d:=arrow(b1-c1,color=green):
display(a,b,c,d, axes=normal,scaling=constrained);
TTdSMApJNlJUQUJMRV9TQVZFLzE1MDM1MjE2OFgqJSlhbnl0aGluZ0c2IjYiW2dsISMlISEhIiQiJCEiJCIiIiEiKEYmTTdSMApJNlJUQUJMRV9TQVZFLzE1MDM1MjA4OFgqJSlhbnl0aGluZ0c2IjYiW2dsISMlISEhIiQiJCIiISEiJkYoRiY=TTdSMApJNlJUQUJMRV9TQVZFLzE2MjkyNjk4MFgqJSlhbnl0aGluZ0c2IjYiW2dsISMlISEhIiQiJCMiIiIiIiNGKCMhIiJGKUYm