% proposta per l'input
function a = bilanciamento(x,z,a)
% bilanciamento(x,z,a)  produce una matrice  a  che puo' servire
% come matrice di partenza per bilanciare una
% reazione chimica
string_fill_char ("");
n=input("\n inserisci quanti elementi appaiono: ");
x=[,];
for k=1:n
printf("     elemento %d: ",k);
x=[x; input("","s")];
end;
r=input("\n inserisci quanti reagenti appaiono: ");
z=[,];
for l=1:r
printf("     reagente %d: ",l);
z=[z; input("","s")];
end;
p=input("\n inserisci quanti prodotti appaiono: ");
for l=1:p
printf("     prodotto %d: ",l);
z=[z; input("","s")];
end;
printf("\n");
a=zeros(n,r+p);
for k=1:n
for l=1:r
printf("numero di atomi di  %s  in  %s : ", x(k,:),z(l,:));
a(k,l)=input("");
end;
end;
for k=1:n
for l=1:p
printf("numero di atomi di  %s  in  %s : ", x(k,:),z(r+l,:));
a(k,r+l)= - input("");
end;
end;
endfunction
