function [mbrut,mnet,Cbrut,Cnet,capitalan,capitalmois,amortissement,interet]=...
         emprunt_tot(S,tau,n0an,assurance,dossier,caution,restitution,nom_emprunt)

% emprunt_tot : calcul d'emprunt à taux constant et annuité fixe (total : avec assurance et divers frais)
%
%
% [mbrut,mnet,Cbrut,Cnet,capitalan,capitalmois,amortissement,interet]=...
% emprunt_tot(S,tau,n0an,assurance,dossier,caution,restitution,nom_emprunt) :
%
% * variables d'entrées : 
%  - S : capital réellement emprunté 
%       (=montant brut de l'appartement+éventuel frais d'agence+frais de notaire-apport personnel)
%  - tau : tau nominal annuel annoncé sans assurance, en %
%  - n0an : nombre d'années
%  - divers frais :
%       - assurance : assurance en %, sur le montant réellement emprunté (à payer par an)
%       - dossier : frais de dossier, fixes  à payer en début d'emprunt 
%       - caution : caution à payer en début d'emprunt (sur fonds propres)
%       - restitution : poucentage de la caution à récupérer en fin d'emprunt
%  -  arguments optionnels
%     - nomemprunt : chaîne du nom de l'emprunt pour constituer : 
%          - un fichier texte des principaux résultats (mbrut,mnet,Cbrut,Cnet) de nom 'nomemprunt''princi'.txt
%          - un fichier texte de nom 'nomemprunt'.txt pour ouvir avec excel fichier excell
% 	            affichage avec deux chiffre après virgule.
%               séparateur : point virgule
%          - un fichier eps graphique de nom 'nomemprunt'.eps
% * variables de sortie : 
%  - mbrut : mensualité brute (seuls intérêts)
%  - mnet : mensualité nette (intérêts+aussurance)
%  - Cbrut : coût brut du crédit (somme des intérêts)
%  - Cnet : coût net du crédit (somme des intérêts+assurance+dossier+caution*(1-restitution/100))
%  - capitalan : tableau indiquant, année par année, le capital dû 
%    (entre la zéro -ieme et le n0an ième)
%  - capitalmois : tableau indiquant, mois par mois, le capital dû 
%    (entre le zéro-ième et le 12*n0an ième)
%  - amortissement : tableau indiquant, mois par mois, l'amortissement
%    (entre le zéro-ieme et le 12*n0an ième)
%  - interet : tableau indiquant, mois par mois, l'intérêt
%    (entre le zéro-ieme et le 12*n0an ième)
%
%
%
% ************ Fonctions auxiliaires utilisées ************
%
%    emprunt_brut
%
% *********************************************************
%
% (c) 2006 by      Jérôme BASTIEN,
%                  UTBM, Département GMC, Belfort
%                  E-Mail : jerome.bastien@utbm.fr

nin=nargin;
if nin==7
   [mbrut,Cbrut,capitalan,capitalmois,amortissement,interet]=...
                emprunt_brut(S,tau,n0an);
else    
    nomfi=nom_emprunt;
    [mbrut,Cbrut,capitalan,capitalmois,amortissement,interet]=...
                emprunt_brut(S,tau,n0an,nomfi,nom_emprunt);
end    
fassurance=S*assurance/100/12;
mnet=mbrut+fassurance;
Cnet=Cbrut+fassurance*12*n0an+dossier+caution*(1-restitution/100);
if (nin==8)
   eval(['diary ',nom_emprunt,'princi.txt']);
   disp('mensualité brute en euro');
   disp((round(100*mbrut))/100);
   disp('mensualité nette en euro');
   disp((round(100*mnet))/100);
   disp('coût brut en k.euro (arrondi à l''euro près)');
   disp((round(1000*(Cbrut/1000)))/1000);
   disp('coût net en k.euro (arrondi à l''euro près)');
   disp((round(1000*(Cnet/1000)))/1000);
   diary off;
   clf;
   mois=1:12*n0an;
   plot(mois,interet(2:end),'r',mois,interet(2:end)+fassurance,'r-.',mois,amortissement(2:end),'b',...
        [mois(1),mois(end)],[mbrut,mbrut],'g',[mois(1),mois(end)],[mnet,mnet],'g-.');
  legend('intérêt','intérêt & assurance','amortissement','mensualité brute','mensualité nette',0);
  xlabel('mois');   
  ylabel('montant en euros');   
  title(['emprunt ',nom_emprunt]);
  eval(['print -depsc ',nom_emprunt,';']);
end