|
>
|
use plots,VectorCalculus in
module()
local p1,p2,p3,P,Q,R,E1,E2;
P,Q,R := <1,2,3>,<-5,3,2>,<7,-5,4>:
E1:=RootedVector(root=[1,2,3],Q-P);
E2:=RootedVector(root=[1,2,3],R-P);
p1:=spacecurve([[1,2,3],[-5,3,2],[7,-5,4],[1,2,3]],color=red);
p2:=PlotVector([E1,E2],color=[green,gold],width=.3);
p3:=display(p1,p2,scaling=constrained,axes=box,labels=[x,y,z],tickmarks=[6,8,3],orientation=[-175,65,0],lightmodel=none,glossiness=0);
print(p3);
end module:
end use:
|
