Lösungen der Aufgaben rüberkopiert.
This commit is contained in:
9
MATLAB/Uebungen/01 Erste Schritte/Aufgabe 7/Drehmatrix.m
Normal file
9
MATLAB/Uebungen/01 Erste Schritte/Aufgabe 7/Drehmatrix.m
Normal file
@@ -0,0 +1,9 @@
|
||||
function D = Drehmatrix(winkel)
|
||||
%Berechnung der zweidimensionalen Drehmatrix; Winkel in Grad.
|
||||
|
||||
%Umrechnung in Rad
|
||||
winkelRad = (winkel * pi) / 180;
|
||||
|
||||
%Generierung der Drehmatrix
|
||||
D = [cos(winkelRad) -sin(winkelRad); sin(winkelRad) cos(winkelRad)];
|
||||
end
|
||||
10
MATLAB/Uebungen/01 Erste Schritte/Aufgabe 7/Drehung.m
Normal file
10
MATLAB/Uebungen/01 Erste Schritte/Aufgabe 7/Drehung.m
Normal file
@@ -0,0 +1,10 @@
|
||||
function x = Drehung(winkel, vektor)
|
||||
%Dreht den gegebenen 2D-Spaltenvektor um den angegebenen Winkel.
|
||||
|
||||
%Erstellen der Drehmatrix
|
||||
D = Drehmatrix(winkel);
|
||||
|
||||
%Drehung, durch Multiplikation mit der Drehmatrix
|
||||
vektor=vektor(:);
|
||||
x = D * vektor;
|
||||
end
|
||||
@@ -0,0 +1,8 @@
|
||||
function x = linTransfEbene(winkel, vektor, verschiebungsvektor)
|
||||
%...
|
||||
%Drehung des Vektors
|
||||
x = Drehung(winkel, vektor);
|
||||
|
||||
%Verschiebung des Vektors
|
||||
x = x + verschiebungsvektor;
|
||||
end
|
||||
Reference in New Issue
Block a user