https://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=Makeup.m 2026-04-21T02:59:21Z Revision history for this page on the wiki MediaWiki 1.34.0 https://wiki-pnb.eri.ucsb.edu/index.php?title=Makeup.m&diff=203&oldid=prev 2010-08-05T23:23:41Z

<p>Created page with &#039;&lt;pre&gt; function makeup(pb) %created by Erik Stassinos %function to create upused.txt %prints formatted file using list_ac9mdz, ac9file or read file date and ctd %file name %cd(pb…&#039;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> function makeup(pb)<br /> %created by Erik Stassinos<br /> %function to create upused.txt<br /> %prints formatted file using list_ac9mdz, ac9file or read file date and ctd<br /> %file name<br /> <br /> %cd(pb)<br /> <br /> list = fopen('list_ac9bmdz')<br /> if list == -1<br /> sprintf('function is designed to run with a list_ac9mdz file. Exiting')<br /> return<br /> end<br /> ac9file = fopen('ac9file.txt','r')<br /> if ac9file == -1<br /> sprintf('cannot locate ac9file.txt in the current directory. Exiting')<br /> return<br /> end<br /> <br /> <br /> upusd = fopen('upused.txt','w+');<br /> <br /> <br /> pattern1 = fullfile(pwd,'*.asc.1');<br /> pattern2 = fullfile(pwd,'*.asc.2');<br /> datlist1 = dir(pattern1)<br /> datlist2 = dir(pattern2);<br /> count=0;<br /> while feof(list) ~=1<br /> fgets(list);<br /> count = count +1;<br /> end<br /> frewind(list)<br /> <br /> for i = 1:(count/2 -1) %No x cast<br /> <br /> procname = fgets(list);<br /> pname = textscan(procname,'%s');<br /> pname = char(pname{1,:});<br /> ac9 = fgets(ac9file);<br /> date = textscan(ac9,'%*s %*s %s %*s');<br /> date = char(date{1,:});<br /> time1 = textscan(ac9,'%*s %*s %*s %s');<br /> time1 = char(time1{1,:});<br /> time2 = time1;<br /> d= datlist1(i).name;<br /> <br /> %fprintf(upusd,'%s %s %s %s %s %s %s %s\n','flags', pb,procname,date,time1,datlist1(i).name,'qcal\n')<br /> fprintf(upusd,'%s','flags');<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',pb);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',pname);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',date);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',time1);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',datlist1(i).name);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s\n','qcal');<br /> procname = fgets(list);<br /> pname = textscan(procname,'%s');<br /> pname = char(pname{1,:});<br /> fprintf(upusd,'%s','flags');<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',pb);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',pname);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',date);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',time2);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s',datlist2(i).name);<br /> fprintf(upusd,'%s',' ');<br /> fprintf(upusd,'%s\n','qcal');<br /> %procname = fgets(list);<br /> % fprintf(upusd,'%s %s %s %s %s %s %s\n','flags', pb,procname,date,time1,datlist2(i).name,'qcal')<br /> sprintf('create upused done')<br /> end<br /> &lt;/pre&gt;<br /> <br /> &lt;big&gt;[[makeup]]&lt;big&gt;</div>

128.111.101.185