> # This Draws Vectors\
# illustrating vector addition\
# it does the job, but it is not pretty\
with(linalg):
--------------------------------------------------------------------------------
> PltVector:=proc(p,q) local back, left, r, s;\
   back:=array(1..2);left:=array(1..2);r:=array(1..2);s:=array(1..2);\
   back := add(p,q,1,-1); back := scalarmul(back,0.05/norm(back,2));\
   left[1]:=-back[2];left[2]:=back[1];\
   r:=add(q,add(back,left,1,1),1,1); s:=add(q,add(back,left,1,-1),1,1);\
   [p, q] ,[[r[1],r[2]], q, [s[1],s[2]]]\
   #, back[1],back[2], left[1],left[2];\
end:
--------------------------------------------------------------------------------
> plot({PltVector([0,0],[2,1]), PltVector([0,0],[1,3]), PltVector([2,1],[3,4]), PltVector([0,0],[3,4])},scaling=constrained,title=`Vector Addition`);