function [Koordneu]=Drehung(Koord,Winkel)
% Funktion zum Drehen von Vektoren in 2D;
% Eingangsgrößen:
%   Koord   =   xy - Koordinaten
%   Winkel  =   Drehwinkel
% Ausgangsgrößen
%   Koordneu = Neu berechnete Koordinaten



phi = Winkel*pi/180;
R = [cos(phi) sin(phi); -sin(phi) cos(phi)];

Koordneu = R * Koord;