tip.m

线性代数实验及MATLAB入门,电子工业出版社出版 陈怀琛 龚杰民合著

function  arrow=tip(v,width);
[t,r]=cart2pol(-v(1),-v(2));
if r<width/4
 r=r/3;
else
 r=width/12;
end
slant=.3;
one=v+r*[cos(t+slant),  sin(t+slant)];
two=v+r*[cos(t-slant),  sin(t-slant)];
arrow=[one',two',v'];