155GIT1 / 7. cvičení

← předchozí cvičení • stránky předmětu • další cvičení →

Uživatelské funkce

Náplň cvičení

1. (z 6.cvičení) složené podmínky
2. uživatelské funkce
3. chybová hlášení
4. drobné smíšené úlohy

Ukázky

Uživatelské funkce

Syntax:

function [vystup1,vystup2,...,vystupn] = nazev(vstup1,vstup2,...,vstupn)

end  % end neni povinne

Každá funkce musí být uložena ve vlastním souboru s příponou .m. Název souboru musí odpovídat názvu funkce!

function [min_x, max_x, mean_x] = stat(x)

    min_x = min(x);
    max_x = max(x);
    mean_x = mean(x);

end

Příklad volání:

data = rand(10,1)
[mi, ma, mn] = stat(data)
fprintf('min  = %.3f\nmax  = %.3f\nmean = %.3f\n', mi, ma, mn)

Chybová hlášení

function [min_x, max_x, mean_x] = stat(x)
% vypocet minimalni, maximalni a prumerne hodnoty vektoru

    if any(imag(x)) > 0
        error('stat: Vstupni vektor obsahuje imaginarni cisla.')
    end
    min_x = min(x);
    max_x = max(x);
    mean_x = mean(x);

end

Vyvolání nápovědy k funkci:

help stat

Volání funkce:

data1 = [data; 5+2i; 4-3i]
[mi, ma, mn] = stat(data1)

Drobné úlohy

Funkce pro výpočet nekonečné řady do zadané přesnosti

např. výpočet funkce arctg():

function [arctgx] = arctg(x,mez)
% vypocet funkce arctg rozvojem v radu do zadane presnosti
% IN:  x      ... vektor argumentu funkce
%      mez    ... zadana presnost vypoctu
% OUT: arctgx ... vektor vypoctenych uhlu z intervalu <-pi/2,pi/2>

if any(x > 1) | any(x < -1)
    error('arctg: Vstupni hodnoty musi byt z intervalu <-1,1>.')
end

% vypocet pro kazdy prvek daneho vektoru samostatne
for i=1:length(x)
    % start iterace pro i-ty vstupni prvek
    y0 = 100; % vkladam fiktivni hodnotu, kterou x na vstupu nikdy nemuze nabyt
    % 1.iterace
    n = 1;
    y = x(i);
    while  abs( y-y0 ) > mez
        % n-ta iterace
        n = n+1;
        y0 = y;
        y = y0 + (-1)^(n+1) *  x(i)^(2*n-1)  / (2*n-1);
    end
    % ulozeni vypoctene hodnoty do vystupni promenne
    arctgx(i) = y;
    fprintf('Pocet iteraci vypoctu: %d\n',n)
end

Funkce pro načtení neformátovaných dat po řádcích

např: záměna čárky za tečku:

function teckazacarku(file)

    vstup = fopen(file,'r');
    filenew = [file(1:end-4), '_upr', file(end-3:end)];  % jmeno noveho souboru
    vystup = fopen(filenew,'w');
    
    konec = 0;  % indentifikator konce souboru
    while konec==0
        radek = fgets(vstup);  % fgets() nacte 1 radek souboru (se znakem \n)
        for i=1:length(radek)
            if radek(i) == ','
                radek(i) = '.';
            end
        end
        fprintf(vystup,'%s',radek);
        konec = feof(vstup);   % feof() vrati pro konec souboru hodnotu 1
    end
    
    fclose all;
    fprintf('Data ulozena do souboru %s\n',filenew);

end

Volání funkce: datový soubor carky.txt ke stažení

teckazacarku('carky.txt')

Úlohy

• budou doplněny záhy