function [A,b]=soustava_rovnic_vst_ze_souboru
% zadani soustavy rovnic ze souboru (prvni cislo v souboru - pocet rovnic)
% vystup funkce: matice koeficientù soustavy A, sloupec pravých stran b -
% zadán jako radkovy vektor

% uzivatel je pozadan o zadani nazvu souboru (prip. vcetne cesty), opet
% pouzit parametr 's' - ocekavame retezec
nazev=input('\nZadejte nazev vystupniho souboru: ','s');

%   je otevren soubor pro cteni - parametr = read
fd=fopen(nazev,'r');

r = fscanf(fd, '%d', [1,1]);
A = fscanf(fd, '%g', [r,r]);
b = fscanf(fd, '%g', [1,r]);

fclose(fd); % soubor je nutno uzavrit
