function [E,S,nomcreancier,nomdebiteur]=dettes_gite_bis(L)

% detérminer le nom des créancier et les dettes pour le fichier de données de nom L
[nom,B]=traite_fichier_brut_gite(L);
nuu=B(:,1);
g=B(:,end-1);
a=B(:,2);
e=B(:,3);
n=B(:,4);
N=sum(n);
G=sum(g);
s1=nuu.*(a+e);
s2=nuu.*(a+e/2);
s=G*s1/sum(s1)+N*s2/sum(s2);
p=size(B,1);
E=zeros(p,1);
S=E;
S(1)=s(1)+E(1)-g(1)-n(1);
for i=2:p
    E(i)=S(i-1);
    S(i)=s(i)+E(i)-g(i)-n(i);
end
if abs(S(p))>=1000*eps
    error('S_n est non nul');
end
nomcreancier=cell(1,p);
nomdebiteur=cell(1,p);
for i=1:p
   if i>=2
       nomcreancier{i}=nom{i-1};
   end
   if i<=p-1
       nomdebiteur{i}=nom{i+1};
   end
end