function log_spirala
% Logaritmická spirála
% Vyskytuje se napø. v kresbì ulit plžù.

fi=0:0.1:16*pi;
r=exp((1/5)*fi); % rovnice v polární soustavì: r=a*exp(m*fi)
                   % zde: a=1, m=1/5
polar(fi,r,'m') % graf v polárních souøadnicích
                % zvolena barva køivky m - magenta (svìtle fialová)
title('Logaritmicka spirala')