function b=writeratk(n,ratk)

fid = fopen('ratkaisu','w');
fwrite(fid, ratk, 'double');
fclose(fid);
