unpack.m

MDPSAS工具箱是马里兰大学开发的

function unpack(A)

% unpack.m Unpack method for radialrxrgeom objects. Called as
%
%          unpack(A)
%
% INPUT PARAMETERS
%         A : an radialrxrgeom object

fieldkeys = keys(A.param);
fieldvalues = values(A.param);

for i = 1:length(fieldkeys)
   if ~isempty(fieldkeys{i})
      assignin( 'caller',fieldkeys{i},fieldvalues{i} );
      end
   end