function [y1,y2,y3] = jmeno(x1,x2,x3,x4)
%                        STRUCNY POPIS CINNOSTI FUNKCE
% function [y1,y2,y3] = jmeno(x1,x2,x3,x4)
% Vstupy povinne:
% x1 ... popis parametru x1
% Vstupy nepovinne:
% x2 ... popis parametru x2
% x3 ... popis parametru x3
% x4 ... popis parametru x4
% Vystupy:
% y1 ... popis parametru y1
% y2 ... popis parametru y2
% y3 ... popis parametru y3
% Volane nestandardni funkce, resp. pozadovane toolboxy:
% tinv (toolbox stats)

%
error(nargchk(1,4,nargin));
if nargin<4, x4 = []; end
if nargin<3, x3 = []; end
if nargin<2, x2 = []; end
% Nastaveni implicitnich (default) hodnot:
if isempty(x2), x2 = default2; end
if isempty(x3), x3 = default3; end
if isempty(x4), x4 = default4; end
% Kontrola dalsich podminek, napr. ze x2 je ctvercova matice:
  x2sz = size(x2);
  if x2sz(1)~=x2sz(2), error('Matice x2 neni ctvercova'); end
     .
     .
     .
% Predani vystupnich hodnot:
  y1=v1;
  if nargout>2
     .
     .
     .
     y2=v2; y3=v3;
  end
