Rapport Bilan Carbone de l'université Paris Diderot.

Annexe 5.5 : Différents scripts du calcul de l’influence des modes de
transport ainsi que le calcul des distances (MatLab)
Calcul des distances totales parcourues par
mode de transports et évolution de l’erreur
associée
clear all
close all
[dv dc dd dp db dt dm dg dverr dcerr dderr
dperr dberr dterr dmerr dgerr ndt dtot]...
= routine_lecture('donnees_updetu.xlsx');
%profil=[dv,dc,dd,dp,db,dt,dm,dg]';
profilerr=[dverr,dcerr,dderr,dperr,dberr,dterr
,dmerr,dgerr];
dtot=dtot.*ndt;
M=[dv,dc,dd,dp,db,dt,dm,dg]';
dtot2=sum(M);
dmi=1; %valeur minimum de trajet
dma=850; %valeur maximum de trajet
ik=find(dtot2>=dmi&dtot2=2
for col=1:8
tmp=Resum(1:k,col);
ResumTmpTot(k-1,col)=mean(tmp,1);
ResumerrTmpTot(k-
1,col)=std(tmp,1);
end
end
end
comp
txt=strcat('DistParcourueEtudiants',num2str(k)
, 'Universités.xls')
txt2=strcat('ErrTotParcourueEtudiants',num2str
(k), 'Universités.xls')
xlswrite(txt,Resum) % matrice de données
moyennées pour toutes les Universités
xlswrite(txt2,Resumerrco) % matrice des
erreurs moyennées pour toutes les Universités
n=size(D);
b=n(1,2);
%concaténation des données
for j=1:b
ResumeTot(1,j)=mean(Resum(:,j)); %
Distance totale moyennées parcourue par mode
de transport
ResumeTot(2,j)=std(Resum(:,j)); % Erreur
absolue sur les données
ResumeTot(3,j)=mean(Resumerrco(:,j)); %
Erreur sur les constantes
end
'Voici le résumé des calculs'
ResumeTot
txt3=strcat('DistTotParcourueEtudiants',num2st
r(k), 'Universités.xls')
xlswrite(txt3,ResumeTot)
TotalKm=sum(ResumeTot(1,:))
% figure
% explode=[0 0 0 0 0 0 1 0];
%
pie(ResumeTot(1,:),explode,{'Voi','Covoit','2
Roues','VoP','Bus','TER','MRT','TGV'})
%% Répartition des distributions des distances
totales calculées par mode
%% de transport
col =
['Voi';'Cov';'2Ro';'VoP';'Bus';'TER';'MRT';'TG
V'];
n=size(Resum);
b=n(1,2);
figure
for i=1:b;
subplot(4,2,i)
hist(Resum(:,i));
title(col(i,:))
xlabel('Distance(km)','Fontsize',8)
ylabel('Nombre Universités','Fontsize',8)
end
txt=strcat('Répartitiondesdistmodedetransports
',num2str(k),'Universités.png');
saveas(gcf,txt)
%% Evolution des erreurs liées au calcul en
fonction des modes de transport
Resulttmp=ResumerrTmpTot./ResumTmpTot; %
erreur relative
Result=ResumTmpTot+ResumTmpTot.*Resulttmp;
Result2=ResumTmpTot-ResumTmpTot.*(Resulttmp);
140 Université Paris Diderot – Paris 7 Paris Diderot Développement Durable