clear all; clc;

data2;
format long;

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


filename = "coef_An_disk.txt";
fid = fopen(filename, "w");
fputs(fid, "# kp:");
fdisp(fid, kp_b);
fputs(fid, "# ks:");
fdisp(fid, ks_b);
fputs(fid, "# kp_int:");
fdisp(fid, kp_a);
fputs(fid, "# ks_int:");
fdisp(fid, ks_a);
fclose(fid);

save -append coef_An_disk.txt A

