0001 function md=parameterize(md,parametername)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014 if md.counter>=4,
0015 choice=input('This model already has parameters and has been extruded. Are you sure you want to go ahead? (y/n)','s');
0016 if ~strcmp(choice,'y')
0017 error('no parameters done ... exiting');
0018 end
0019 elseif md.counter==3
0020 disp('This model already has parameters, overwriting...')
0021 else
0022 if (md.counter~=2)
0023 error('parameterize error message: you need to run geography.m first on this model');
0024 else
0025 md.counter=3;
0026 end
0027 end
0028
0029
0030
0031 switch ( version('-release') )
0032 case { '11', '12', '13', '14', '2006a' }
0033 try,
0034 eval(readfile(parametername));
0035 catch,
0036 error(['parameterize error message: unknown error happened during parameter file execution. Check ' parametername ' for errors']);
0037 end
0038 case {'2006b','2007a','2007b','2008a','2008b'}
0039 try,
0040 eval(readfile(parametername));
0041 catch me,
0042 error(['parameterize error message: unknown error happened during parameter file execution. Check ' parametername ' for errors']);
0043 disp(me.message);
0044 end
0045 otherwise
0046 error('parameterize error message: version number not implemented yet');
0047 end
0048
0049
0050 md.parameterfile=readfile(parametername);
0051
0052
0053 md.notes=['Model created by using parameter file: ' parametername ' on: ' datestr(now)];
0054 [a,root,c,d]=fileparts(parametername); md.name=root;