1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
// // 09.02.27 function Setpt(varargin) global TenSize TenSizeInit; Nargs=length(varargin); if Nargs==0 Tmp=TenSize/TenSizeInit; Tmp=round(Tmp*100)/100; disp(Tmp); return; end; Size=varargin(1); TenSize=TenSizeInit*Size; endfunction;