function matrix=read_file(filename);
file=fopen(filename, 'r');
fgetl(file);
fgetl(file);
fgetl(file);
line=fgetl(file);
char=line(9);
rows=[];
i=9;
while(char~='<')
    rows=[rows line(i)];
    i=i+1;
    char=line(i);
end

rows=str2double(rows);

line=fgetl(file);
cols=[];
char=line(9);
i=9;
while(char~='<')
    cols=[cols line(i)];
    i=i+1;
    char=line(i);
end

cols=str2double(cols);

fgetl(file);
fgetl(file);

matrix=zeros(rows, cols);
for j=1:rows
    line=textscan(file, '%f', cols);
    matrix(j, :)=line{1}';
end
fclose(file);