请大家帮忙看一下这个quiver出现的问题

[cannor]

我写的这段小程序，用quiver命令画位移场。怎么老是出现位移矢量的颜色是五颜六色，有没有什么办法改成单一的颜色？另外，怎么将箭头的尺寸变大，使其更明显看到？
谢谢大家了！！！（见附图)

代码如下

for i=1:161
for j=1:161
U=[I(:,1),I(:,2)];
V=[I(:,4),I(:,5)];
dis(i,j)=norm(U(i,:)-V(j,:));
[m n]=find(dis<=40);
end
end
t=length(m);
for k=1:t
if V(m(k),1)<=550
xx(k,1)=V(n(k),1)-U(m(k),1);
yy(k,1)=V(n(k),2)-U(m(k),2);
else
xx(k,1)=V(n(k),1)-U(m(k),1);
yy(k,1)=V(n(k),2)-U(m(k),2)+11;
end
end
for k=1:t
dis2(k,1)=norm(U(m(k),:)-V(n(k),:));
end
for k=1:t
quiver(V(n(k),1),V(n(k),2),xx(k,1)*2,yy(k,1)*2,1,'-','filled')
%set(ht,'autoscalefactor',2);
hold on
end
axis([0 1100 0 1100])