clear all;
data;
format long;


n = 35;
A = zeros(n+1,4);
for i = 0:n
 A(i+1,:) = transpose(An(i));
endfor


filename = "coef_An.txt";
fid = fopen(filename, "w");
fputs(fid, "# kp:");
fdisp(fid, kp);
fputs(fid, "# ks:");
fdisp(fid, ks);
fclose(fid);

save -append coef_An.txt A




