Documentation of quivscale2

Global Index (all files) (short | long) | Local Index (files in subdir) (short | long)

Function Synopsis

quivscale2(px, py, H);

Help text

Cross-Reference Information

Listing of function quivscale2

function quivscale2(px, py, H);

clf
subplot(2,1,1);
%quiver(XAX, YAX, a, a, 1);
quiver(a, a, 1);
%axis([0 360 -90 90])

%if nargin == 2;
  H = gca;
%end

h = get(H, 'Position');
h2 = h;




h1 = h(4) / 10;  %  
h(2)=h(2)+h1;    %  Push the bottom of the current axis up a little
h(4)=h(4)-h1;    %  Adjust the height of the current axis to previous command
                 %
set(gca, 'position', h);

hlim=get(gca,'xlim');
h2(4) = 0.3*h1;
h2(1) = (h2(1) + h2(3)) - h2(3) / 10;
h2(3) = h2(3) / 10;

ax=axes('position',h2);
hlim(1)=0;
set(ax,'xlim',hlim);

xsq=px.^2;
ysq=py.^2;
arrowmag=max(unique(sqrt([xsq+ysq])));

arrowmag=max(unique(sqrt([xsq+ysq])));
size1=prod(size(arrowmag));
arrowmag2=reshape(arrowmag,size1,1);
X=zeros(size1,1);
Y=1:size1;

null=zeros(size1,1);
quiver(X,Y,arrowmag2,null,0);
set(ax,'xlim',[0 5]);
set(ax,'ytick',[]); 
set(ax,'xticklabel', [], 'yticklabel', []);
set(ax,'Color',get(gcf, 'Color'),'XColor',[1 1 1], 'YColor', [1 1 1]);
set(ax, 'Box', 'off')

hlim=get(gca,'xlim');
%h2(end)=h2(end)/20
h2(2)=h2(2)/3;
ax=axes('position',h2);