|
>
|
use plots, Student:-VectorCalculus, plottools in
module()
local V1,V2,V3,V4,V5,p1,p2,p3,p4,p5,q,X,XX,Y;
V1:=RootedVector(root=[3,2,1],<1,2,3>):
V2:=<3,2,1>;
V3:=RootedVector(root=[3,2,1],<1,0,0>);
V4:=RootedVector(root=[3,2,1],<0,2,0>);
V5:=RootedVector(root=[3,2,1],<0,0,3>);
p1:=PlotVector([V1,V2,V3,V4,V5],color=[black,green,blue$3],width=.1);
q:=plot3d(0,x=0..4,y=0..4,grid=[5,5],style=wireframe,color=black):
X:=rotate(q,-Pi/2,0,0):
XX:=translate(X,0,4,0):
Y:=rotate(q,0,Pi/2,0):
p2:=display(q,XX,Y);
p3:=spacecurve([[3,2,1],[3,2,0]],numpoints=2,color=red,linestyle=dot);
p4:=spacecurve([[3,2,1],[0,2,1]],numpoints=2,color=red,linestyle=dot);
p5:=display(p1,p2,p3,p4,scaling=constrained,labels=[x,y,z],axes=frame,orientation=[-50,75,0],lightmodel=none,glossiness=0);
print(p5);
end module:
end use:
|
