chadarrow.m (463B)
1 function []=chadarrow(a,b,angle); 2 % Creates an arrow from point a to point b 3 % Actually, gives me a small amount of breathing room... 4 5 if exist('angle')~=1; angle=30; end; 6 xstep=b(1)-a(1); 7 ystep=b(2)-a(2); 8 s=.1; 9 a(1)=a(1)+s*xstep; 10 a(2)=a(2)+s*ystep; 11 b(1)=b(1)-s*xstep; 12 b(2)=b(2)-s*ystep; 13 14 %annotation('arrow',x,y); 15 16 % Now using the arrow.m file I downloaded. 17 18 %arrow(a,b,12,'BaseAngle',angle); 19 %arrow(a,b,16,'BaseAngle',angle); 20 arrow(a,b,24,'BaseAngle',angle);