clear all;
clc;
fp1 = fopen('f1.ap','r');
i = 1;
while(~feof(fp1))
mat{i,:}= fgetl(fp1);
i = i+1;
end
fclose(fp1);
mat1 = str2num(cell2mat(mat));
mat1=mat1(:,2:3);
mat1 = reshape(mat1',1,6);
fp2 = fopen('f2.ap','r');
i = 1;
while(~feof(fp2))
mat{i,:}= fgetl(fp2);
i = i+1;
end
fclose(fp2);
mat2 = str2num(cell2mat(mat));
mat2 = mat2(:,2:3);
mat2 = reshape(mat2',1,6);
fp3 = fopen('f3.ap','r');
i = 1;
while(~feof(fp3))
mat{i,:}= fgetl(fp3);
i= i+1;
end
mat3 = str2num(cell2mat(mat));
mat3 = [mat3 [mat1;mat2;zeros(1,6)]];
mat2 = num2str(mat3)
fclose(fp3);
mat3 contains the required matrix
