0001 function md2=deepcopy(md)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 if isempty(md.repository),
0012 md2=md;
0013 else
0014
0015 new_repository=input([' input model is held in repository: ' md.repository '. you need a new name for the model copy: ']);
0016 md2=model(new_repository);
0017
0018 structfields=fields(md);
0019 for i=1:length(structfields),
0020 field=structfields(i);field=field{1};
0021 if strcmpi(field,'repository'),
0022
0023 continue;
0024 end
0025 fieldval=getfield(md,field);
0026 if isfield(struct(md2),field),
0027 eval(['md2.' field '=fieldval;']);
0028 end
0029 end
0030 end