Homec4science
Diffusion PP routine (master) Browse

R11173/excel_v1.m
f2cd617ca124master

Last Change
Raw File

excel_v1.m
View Options

This document is not UTF8. It was detected as Shift JIS and converted to UTF8 for display.
function []= excel_v1 (folder_save, dh_max,dh_min,dh_pp,fdom,dh_f,r_f, coeff,nb,MP,alpha,n11,Q11,nm,hm,sigma,Hp,Qp,Pp,nbsensor,folder_results, projectname, pagename,date1,channel,projectname_title)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%This function is called by the function "Main" after calling the read,
%the calculate and the latex function.
% The excel function does not perform any calclations but it stores the
% main results of the calculate function in an Excel file.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dh_maxt=dh_max';
dh_mint=dh_min';
dh_ppt=dh_pp';
fdomt=fdom';
dh_ft=dh_f';
r_ft = r_f';
% cd '\\lmhnas2\Gem\06_Software\02_Matlab\PP modeles'
% copyfile('EXCEL', [folder_results,'\EXCEL']) %copy the model
copyfile('\\lmhnas2\Gem\07_Software\02_Matlab\PP modeles\EXCEL\Modele.xlsx', [folder_results,'\EXCEL']) %copy the model
cd(folder_results)
%% Write appropriate dimensionless coefficeints (n11/Q11 or nED QED, etc...)
coeff_char= char(coeff);
CO=[coeff(1:3);coeff(5:7)];
CO2=cellstr(CO);
%% Ecriture des en-t黎es
length_page = 16; % number of MP per page
pagenb1=nb/length_page;
pagenb=ceil(pagenb1);
nb_r1=nb;
nb_r=min(length_page,nb_r1);
% for i=1:pagenb
E=[MP; alpha; n11; Q11; 1/60*nm; hm; sigma; Hp; Qp; Pp/1E6];
% nb_r=nb_r-20;
%E(:,:,i)=[MP((i-1)*20+1:(i-1)*20+nb_r); alpha((i-1)*20+1:(i-1)*20+nb_r); n11((i-1)*20+1:(i-1)*20+nb_r); Q11((i-1)*20+1:(i-1)*20+nb_r); 1/60*nm((i-1)*20+1:(i-1)*20+nb_r); hm((i-1)*20+1:(i-1)*20+nb_r); sigma((i-1)*20+1:(i-1)*20+nb_r); Hp((i-1)*20+1:(i-1)*20+nb_r); Qp((i-1)*20+1:(i-1)*20+nb_r); Pp((i-1)*20+1:(i-1)*20+nb_r)/1E6];
% end
A1=zeros(6*nbsensor,nb);
for i=1:nbsensor
A1(6*(i-1)+1:6*(i),:) = [dh_maxt(i,:);dh_mint(i,:);dh_ppt(i,:);fdomt(i,:);dh_ft(i,:);r_ft(i,:)];
end
%% write
off=[14;ceil(nbsensor/4)*38+14] % vertical offset
filename = ['Excel\Modele.xlsx'];
sheet = 1;
%% sensor names
chan= channel{1,:};
xlRange = 'V5';
xlswrite(filename,chan',sheet,xlRange)
xlRange = 'A14';
xlswrite(filename,{'=V5'},sheet,xlRange)
xlRange = 'A20';
xlswrite(filename,{'=W5'},sheet,xlRange)
%% Chapter names
tiret=strfind(pagename,'-');
proj_nb=pagename(1:(tiret(1)-1));
chap_nb=pagename((tiret(1)+1):(tiret(2)-1));
page_nb=pagename((tiret(end)+1):end);
xlRange = ['V', num2str(3)];
xlswrite(filename,str2double(proj_nb),sheet,xlRange)
xlRange = ['Y', num2str(3)];
xlswrite(filename,str2double(chap_nb),sheet,xlRange)
xlRange = ['Z', num2str(3)];
xlswrite(filename,str2double(page_nb),sheet,xlRange)
xlRange = ['AB', num2str(3)];
xlswrite(filename,{projectname_title},sheet,xlRange)
xlRange = ['AD',num2str(3)];
xlswrite(filename,{date1},sheet,xlRange)
%% data write
for ind=1:pagenb
off_main=(ind-1)*ceil(nbsensor/4)*38+14; % define the offsets, 38 = nb of lines in one page, 14 first line after headers.
off_coeff=(ind-1)*ceil(nbsensor/4)*38+6; %coeff n11 q11 are writen on te 6th line of eah page
off_head=(ind-1)*ceil(nbsensor/4)*38+4; % the headers start on the 4th line of each page.
for ind2=1:ceil(nbsensor/4) % iterates in every page required for one measurement point
pos_main=off_main+38*(ind2-1);
pos_coeff=off_coeff+38*(ind2-1);
pos_head=off_head+38*(ind2-1);
xlRange = ['E', num2str(pos_head)];
xlswrite(filename,E(:,max(1,length_page*(ind-1)+1):min(nb,ind*length_page)),sheet,xlRange)
%writematrix(E(:,max(1,length_page*(ind-1)+1):min(nb,ind*length_page)),filename,'Sheet',sheet,'Range',xlRange);
xlRange = ['A', num2str(pos_coeff)];
xlswrite(filename,CO2,sheet,xlRange);
%writecell(CO2,filename,'Sheet',sheet,'Range',xlRange);
xlRange = ['E',num2str(pos_main)];
xlswrite(filename,A1((ind2-1)*24+1:min(ind2*24,nbsensor*6),length_page*(ind-1)+1:min(nb,ind*length_page)),sheet,xlRange)
%writematrix(A1((ind2-1)*24+1:min(ind2*24,nbsensor*6),length_page*(ind-1)+1:min(nb,ind*length_page)),filename,'Sheet',sheet,'Range',xlRange);
end
end
for k= [1:ceil(nbsensor/4):ceil(nb/17)*ceil(nbsensor/4)-1]
for j= 1:ceil(nbsensor/4)
for i =1:min(nbsensor,4)
off_name = 14+(i-1)*6+(j-1)*38+(k-1)*38;
xlRange = ['A',num2str(off_name)];
xlswrite(filename,{['=v',num2str(4+i+(j-1)*4)]},sheet,xlRange);
%writematrix(['=v',num2str(4+i+(j-1)*4)],filename,'Sheet',sheet,'Range',xlRange,'UseExcel',1);
end
end
end
movefile([ folder_results, '\EXCEL\Modele.xlsx'], [folder_results, '\EXCEL\', projectname, '.xlsx']);
save([folder_save 'final'])
end
c4science · Help