function P_transf = rotace(P,uhel)
% P_transf = rotace(P,uhel)
%
% zobrazi mnozinu bodu zadanych v matici P v rotaci se stredem rotace v
% pocatku a uhlem otoceni uhel (v radianech), obrazy bodu zapise do matice
% P_transf
%
% input:
% P ... vzory rotace (souradnice bodu jsou zapsany do sloupcu P)
% uhel ... uhel otoceni (v radianech)
%
% output:
% P_transf ... obrazy rotace (souradnice bodu jsou zapsany do
% sloupcu P_transf)

R=[cos(uhel) -sin(uhel);
   sin(uhel)  cos(uhel)]; % matice rotace

P_transf=R*P;

disp(['Vzory rotace: '])
P
disp(['Obrazy rotace: '])
P_transf

% konec

