tip.m

来自「用MATLAB程序解决高阶问题；通过20多个实例来说明线性代数在后续课和工程中的」· M 代码 · 共 14 行

function  arrow=tip(v,width);
% ATLAST65中向量箭头绘制子程序tip
%
[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'];