https://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=Par_input.m 2026-05-11T17:04:54Z Revision history for this page on the wiki MediaWiki 1.34.0 https://wiki-pnb.eri.ucsb.edu/index.php?title=Par_input.m&diff=212&oldid=prev 2010-08-05T23:50:58Z

<p>Created page with &#039;&lt;pre&gt; %PAR_INPUT.M %11/4/99 code pulled from goplot4.m %parfile,gp,dp %called by goac9_tiho Added by Erik S 6/6/2010 function [par,parnames]=par_input(varargin) %assign command …&#039;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> %PAR_INPUT.M<br /> %11/4/99 code pulled from goplot4.m<br /> %parfile,gp,dp<br /> %called by goac9_tiho Added by Erik S 6/6/2010<br /> <br /> function [par,parnames]=par_input(varargin)<br /> %assign command line parameters to local variables<br /> disp('in par_input')<br /> narg=length(varargin);<br /> varargin;<br /> nrow=narg/2;<br /> if nrow==round(nrow),<br /> for iarg=1:2:length(varargin),<br /> eval([varargin{iarg} '= varargin{iarg+1};']);<br /> end<br /> else<br /> display('par_input: command line pairs not correctly formed');<br /> return<br /> end<br /> %local parameters, if passed a parfile<br /> %parfile<br /> [lp,ll]=read_struc(parfile);<br /> if isempty(lp),<br /> disp(['par_input: local par structure is empty, check ' parfile]);<br /> end<br /> %does the local file give a defaults file<br /> if isfield(lp,'defaults'),<br /> <br /> switch lp.defaults<br /> case ''<br /> disp('par_input: default par structure is empty, use lp structure');<br /> dp=lp;<br /> dl=ll;<br /> case 'program'<br /> %don't look for a defaults file, the dp array is passed to this function.<br /> if ~exist(dp),<br /> disp('par_input: default par structure is empty, not passed to par_input');<br /> dp=[];<br /> dl=[];<br /> else<br /> dl=fieldnames(dp);<br /> end<br /> otherwise<br /> %load defaults file if specified, determine format by ext.<br /> dp=[];<br /> if findstr(lp.defaults,'.par'),%only look for .par<br /> %lpdefaultsis_beforereadstruc = lp.defaults<br /> [dp,dl]=read_struc(lp.defaults);<br /> <br /> % return<br /> elseif findstr(lp.defaults,'.mat'), %only look for .mat<br /> load(lp.defaults);<br /> else %update .mat if .par is newer<br /> m=dir([lp.defaults,'.mat']);<br /> if isempty(m),<br /> m(1).date=0;<br /> end<br /> p=dir([lp.defaults,'.par']);<br /> if isempty(m) | datenum(p.date) &gt; datenum(m.date),<br /> [dp,dl]=read_struc([lp.defaults,'.par']);<br /> save(lp.defaults,'dp');<br /> else<br /> load(lp.defaults);<br /> end<br /> end<br /> if isempty(dp),<br /> disp(['par_input: default par structure is empty, ' lp.defaults , ...<br /> ' not found']);<br /> end<br /> end<br /> end<br /> if ~exist('dp') | isempty(dp),<br /> if exist('def_file'),<br /> lp.defaults=def_file<br /> %load defaults file if specified, determine format by ext.<br /> dp=[];<br /> if findstr(lp.defaults,'.par'), %only look for .par<br /> [dp,dl]=read_struc(lp.defaults);<br /> elseif findstr(lp.defaults,'.mat'), %only look for .mat<br /> load(lp.defaults);<br /> else %update .mat if .par is newer<br /> m=dir([lp.defaults,'.mat']);<br /> if isempty(m),<br /> m.date=0;<br /> end<br /> p=dir([lp.defaults,'.par']);<br /> <br /> if isempty(m) | datenum(p.date) &gt; datenum(m.date),<br /> [dp,dl]=read_struc([lp.defaults,'.par']);<br /> save(lp.defaults,'dp');<br /> else<br /> load(lp.defaults);<br /> end<br /> end<br /> if isempty(dp),<br /> disp(['par_input: default par structure is empty, ' lp.defaults , ...<br /> ' not found']);<br /> end<br /> end<br /> end<br /> <br /> if ~exist('dp') | isempty(dp),<br /> disp(['par_input: default par structure is empty, using local values']);<br /> dp=lp;<br /> dl=ll;<br /> end<br /> %allows local par file to override defalut file for use of local<br /> %pars<br /> %_ | '' | 'y' | 'n'<br /> if isfield(lp,'local_pars'),<br /> if ~isempty(lp.local_pars),<br /> dp.local_pars=lp.local_pars;<br /> end<br /> end<br /> %default to use loacl pars if not specified in default par file<br /> %_ | '' | 'y' | 'n'<br /> if isfield(dp,'local_pars'),<br /> if isempty(dp.local_pars),<br /> dp.local_pars='y';<br /> end<br /> else<br /> dp.local_pars='y';<br /> end<br /> if dp.local_pars=='y',<br /> % disp('here')<br /> %update dp.defaults with local values, y|n<br /> for iname=1:size(ll,1),<br /> eval(['dp.' parse(ll(iname,:),1) '=lp.' ll(iname,:) ';']);<br /> end<br /> dl=fieldnames(dp);<br /> end<br /> %global parameters: overwrite,add<br /> if exist('gp'),<br /> gl=char(fieldnames(gp));<br /> for iname=1:size(gl,1),<br /> eval(['dp.' parse(gl(iname,:),1) '=gp.' gl(iname,:) ';']);<br /> end<br /> end<br /> if isempty(dp),<br /> disp('par_input: returning empty par structure');<br /> par=[]<br /> parnames=[];<br /> else<br /> [par,parnames]=sortstruct(dp);<br /> parnames=char(parnames);<br /> end<br /> <br /> return<br /> <br /> &lt;/pre&gt;<br /> <br /> &lt;big&gt;[[par_input]]&lt;big&gt;</div>

128.111.101.185