Another service from Omega

Testing Gifs


*****

> with(mvcal):



> op(arrows);

proc(vector1,vector2)
local v1,v2,u1,u2;
    v1 := vector1[1];
    v2 := vector1[2];
    u1 := vector2[1];
    u2 := vector2[2];
    plot({[0,0,v1,v2],[v1,v2,4/5*v1-1/10*v2,4/5*v2+1/10*v1],
        [v1,v2,4/5*v1+1/10*v2,4/5*v2-1/10*v1],[0,0,u1,u2],
        [u1,u2,4/5*u1-1/10*u2,4/5*u2+1/10*u1],
        [u1,u2,4/5*u1+1/10*u2,4/5*u2-1/10*u1]})
end


> arrows([1,1], [-1,2]);
picture a picture here

Link to the commands in this file
Carlos Rodriguez <carlos@math.albany.edu>
Last modified: Sat Oct 5 14:36:43 EDT 1996