Octave, Ler , escrever em arquivo

Programa Principal, Chamado: prog.m
_________________________________________________________________________
%arquivo que usa a funçao de escrita

a=[1 2 3];


arq=input("Insira o nome do arquivo a salvar entre aspas \t");

saida(arq,a);
_________________________________________________________________________

Arquivo saida.m
_________________________________________________________________________

function ret_mat=saida(file_n, mat)

fid=fopen(file_n, "w");
sz=size(mat);
fprintf(fid, "%d %d\n", sz(1), sz(2));

for i=1:sz(1)
fprintf(fid, "%f ", mat(i,:));
fprintf(fid, "\n");
endfor

ret_v=fclose(fid);

endfunction
_________________________________________________________________________

Arquivo entrada.m
_________________________________________________________________________


# função que le uma matriz gravada com o comando save_mat

function ret_mat=entrada(file_n)

fid=fopen(file_n, "r");
size_m=fscanf(fid, "%d ", [1,2]);
ret_mat=fscanf(fid, "%f ", size_m);
fclose(fid);

endfunction