0001 function r = windowsize(width,height) 0002 a=get(gcf,'Position'); 0003 r=[a(3) a(4)]; 0004 if nargin==0 0005 return 0006 end 0007 if nargin==1 0008 a(3)=width(1); 0009 a(4)=width(2); 0010 else 0011 a(3)=width; 0012 a(4)=height; 0013 end 0014 set(gcf,'Position',a); 0015 r=[a(3) a(4)]; 0016