clarrow.m

matlab 在线性代数中的应用 利用matlab实现可以提高对所学知识的理解 更有助于你考研

function clrarrow

% Deletes all but the last magenta vector/arrowhead.
% M-file created by Emily Moore

global Cleararrowcount;

h = sort( findobj( gca, 'color', [1 0 1]));             % vectors
if Cleararrowcount==0
   len = length(h);
   h = h(1:len-1);
end   
delete(h)

h = sort( findobj( gca, 'facecolor', [1 0 1]));         % arrowheads
if Cleararrowcount==0
   len = length(h);
   h = h(1:len-1);
end   
delete(h)
Cleararrowcount=1;