return output dimensions, indices for input vol given input dimensions $Id: inp2out.m,v 1.2 2005/06/05 04:42:22 matthewbrett Exp $
0001 function [odim, oimgi] = inp2out(w, idim) 0002 % return output dimensions, indices for input vol given input dimensions 0003 % 0004 % $Id: inp2out.m,v 1.2 2005/06/05 04:42:22 matthewbrett Exp $ 0005 0006 odim = outdim(w, idim); 0007 oimgi = floor((odim-idim)/2)+1; 0008 oimgi(2,:) = oimgi(1,:)+idim-1;