Document Actions
uff82w.m
function uff82trc(TRC,F)
% this function was adapted from William Fladung's UFF58FRF.M function
% developed for his MRIT program. This program was written by John Schultze
% Messr's Schultze and Fladung work at the UC/SDRL and are available for consultation
% and parties
[nPOINTS]=length(TRC);
TRC_LBL=TRC(1);
nPOINTS=nPOINTS-1;
nCOLOR=8;
fprintf(F,'%6.0f\n',-1)
fprintf(F,'%6.0f\n',82)
%record 1
dd=blanks(32); dd(31:32)='\n';
dd(01:20)=sprintf('%10.0f%10.0f',TRC_LBL,nPOINTS);
dd(21:30)=sprintf('%10.0f',nCOLOR');
fprintf(F,dd)
%record 2
dd=sprintf('TRACE %5.0f \n',TRC_LBL);
fprintf(F,dd);
nn=1;
if nPOINTS>7 %record 3--
for nn=2:8:nPOINTS-6;
dd=blanks(82); dd(81:82)='\n';
dd(01:20)=sprintf('%10.0f%10.f',TRC(nn),TRC(nn+1));
dd(21:40)=sprintf('%10.0f%10.f',TRC(nn+2),TRC(nn+3));
dd(41:60)=sprintf('%10.0f%10.f',TRC(nn+4),TRC(nn+5));
dd(61:80)=sprintf('%10.0f%10.f',TRC(nn+6),TRC(nn+7));
fprintf(F,dd);
end
end
gg=floor((nPOINTS/8));
rr=nPOINTS-gg*8;
hh=rr*10+2;
dd=blanks(hh);dd(hh-1:hh)='\n';
strt=gg*8+2;
if rr>0;
%uneven last record
for nr=1:rr;
aa=(nr-1)*10+1;
bb=aa+9;
if gg>0;
dd(aa:bb)=sprintf('%10.f',TRC(nn+7+nr));
end
if gg==0;
dd(aa:bb)=sprintf('%10.f',TRC(1+nr));
end
end
fprintf(F,dd);
end
fprintf(F,'%6.0f\n',-1)