>
|
use plots, plottools, Student:-VectorCalculus in
module()
local p1,p2,p3,p4,V,Gf,Gg,Gh,P;
P:=[199/257,764/257,408/257];
V:=RootedVector(root=[-0.209933623,5.761478599,3.665415427],.4*<18,-51,-38>):
Gf:=RootedVector(root=P,<-116/257,500/257,-726/257>);
Gg:=RootedVector(root=P,<5,4,-3>);
Gh:=RootedVector(root=P,-<7,-2,6>);
p1:=sphere([1,2,3],sqrt(769/257));
p2:=PlotVector(V,color=black,width=.3);
p3:=PlotVector([Gf,Gg,Gh],color=[black,red,green],width=.3);
p4:=display([p1,p2,p3],scaling=constrained,axes=frame,labels=[x,y,z],lightmodel=none,view=[-6..6,0..7,-4.2..5],tickmarks=[4,5,5],orientation=[25,80,0]);
print(p4);
end module:
end use:
|