
arq1=input('Nome do arquivo com os dados (.txt)   :> ','s' );
a=load(arq1);
f=input('Freqüência utilizada (em Hz)   :> ' );
ce=input('Coluna de dados com o sinal de entrada   :> ' );
cs=input('Coluna de dados com o sinal de saída   :> ' );
arq2=input('Nome do arquivo para guardar a freqüência (f), a fase (fi),\n a relação de amplitudes (Ar), e a amplitude do sinais de saída (Bo)\n (extensão .txt)   :> ','s' );
[fi,Ar,Bo]=defasagem(a,f,ce,cs)

fid=fopen(arq2,'at');
fprintf(fid,'\n%10.3f  %10.2f  %12.3e  %12.3e;',f,fi,Ar,Bo);
fclose(fid);
