|
>
|
use plots, plottools, Student[VectorCalculus] in
module()
local p1,p2,p3,p4,p5,V1,V2;
p1:=circle([4,0],1):
p2:=line([1,-2],[1,2],thickness=2,color=black):
p3:=plot([[4,0]],style=point,symbol=solidcircle,symbolsize=20,color=black):
V1:=RootedVector(root=[1,0],<3,0>):
V2:=RootedVector(root=[4,0],<-1,1>/sqrt(2)):
p4:=PlotVector([V1,V2],color=[red,green],width=.1):
p5:=textplot({[2,.3,typeset(R)],[3.8,.5,typeset(r)],[4,1.2,typeset(C)]},font=[default,14]):
print(display(p1,p2,p3,p4,p5,scaling=constrained,axes=none));
end module:
end use:
|
