https://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=Ac9cal.m 2026-04-06T03:55:14Z Revision history for this page on the wiki MediaWiki 1.34.0 https://wiki-pnb.eri.ucsb.edu/index.php?title=Ac9cal.m&diff=312&oldid=prev 2011-03-17T20:07:57Z

<p>Created page with &#039;&lt;pre&gt; % Title: AC9CAL.M % Date: % Author: srw % Input: [&#039;par_name&#039;,&#039;par_value&#039;, etc] % Output: % Files: ac9cal_cb.m,ac9cal_gui.mat % As…&#039;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> % Title: AC9CAL.M<br /> % Date: <br /> % Author: srw<br /> % Input: ['par_name','par_value', etc]<br /> % Output: <br /> % Files: ac9cal_cb.m,ac9cal_gui.mat<br /> % Assumes: <br /> % Purpose: View and process ac9 calibration data<br /> % Calls: ac9cal_cb,<br /> % Uses: <br /> % Example: ac9cal or ac9cal('list_file','foo.txt')<br /> % NOTES: comments and caveats<br /> %<br /> % ac9cal returns the figure number of the ac9cal gui and the <br /> % structure stored in the ac9calFig userdata,<br /> % ac9.par field initially contains acrcal_def.par values and is then<br /> % updated according to arguments passed to this function.<br /> % ac9.other fields are for each object in ac9calFig and contain a value<br /> % and a string field.<br /> % Creates/raises ac9cal figure, initializes/gets ac9 structure.<br /> % Assigns parameters passed through function call to ac9.par fields,<br /> % no need for define/default values here as there are taken care of<br /> % in ac9cal_cb('init').<br /> % Updates userdata in ac9calFig.<br /> % Raises QcaledFig1, if open, gets filename and properties from QcaledFig1.<br /> % Good for finding ac9cal window from matlab prompt. <br /> % Updates ac9calFig objects and userdata in ac9calFig.<br /> % <br /> % NOTE: Values in the userdata structure do reflect changes on the<br /> % gui until an ac9cal_cb('par_update') is given. <br /> <br /> function [ac9calfig,ac9]=ac9cal(varargin)<br /> if nargin==1 &amp; strcmp(varargin{1},'quit'),<br /> file_gui_cb('CloseAll');<br /> return<br /> end<br /> %Create/raise ac9cal figure<br /> ac9calfig=findall(0,'Tag','ac9calFig');<br /> if isempty(ac9calfig),<br /> ac9.par=ac9cal_cb('init');<br /> ac9calfig=ac9cal_cb('ac9cal_gui','par',ac9.par);<br /> else<br /> figure(ac9calfig);<br /> ac9=get(ac9calfig,'User');<br /> end<br /> ac9cal_cb('reset');<br /> %Update ac9.par fields with pairs passed to this function<br /> narg=length(varargin);<br /> nrow=narg/2;<br /> if nrow==round(nrow),<br /> for iarg=1:2:length(varargin),<br /> eval(['ac9.par.' varargin{iarg} '= varargin{iarg+1}']);<br /> end<br /> else<br /> display('ac9cal_cb: command line pairs not correctly formed');<br /> return<br /> end<br /> %Store in ac9calfig userdata<br /> set(ac9calfig,'User',ac9);<br /> %<br /> filename=ac9.par.list_file;<br /> %assign list_file in QcaledFig, the list_file editor, if there<br /> fig=findobj('Tag','QcaledFig1');<br /> if ~isempty(fig),<br /> get(findobj(fig,'Tag','list_file'),'String');<br /> if ~isempty(ans),<br /> filename=ans;<br /> end<br /> str=strvcat('prop','abs','fluid','air');<br /> %Update ac9calfig objects with values from QcaledFig1<br /> for ip=1:4,<br /> get(findobj(fig,'Tag',deblank(str(ip,:))),'Value');<br /> set(findobj(ac9calfig,'Tag',deblank(str(ip,:))),'Value',ans);<br /> end<br /> end<br /> set(findobj(ac9calfig,'Tag','list_file'),'String',filename);<br /> %Poll and parse all objects for sting and value, put into ac9<br /> ac9=ac9cal_cb('par_update');<br /> %Store in ac9calfig userdata <br /> set(ac9calfig,'User',ac9);<br /> return<br /> &lt;/pre&gt;<br /> <br /> [[ac9cal]]</div>

Eriks