matheunit.pas: rotations-EinsenHEADmaster

1 files changed, 17 insertions, 0 deletions

diff --git a/matheunit.pas b/matheunit.pas
index a5163c8..30bb7ce 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -69,6 +69,8 @@ function ermittleAnstieg(dat: string; xSpalte,ySpalte: longestOrdinal): extended
 function ermittleMittelwert(dat: string; werteSpalte,gewichteSpalte: longestOrdinal): extended;
 procedure sortiereNachWert(var maxima: tLongintArray; werte: tExtendedArray; logarithmischesPivot: boolean);
 procedure sortiereNachDominanz(var maxima: tLongintArray; werte: tExtendedArray; nullteSpektrometerordnung: extended);
+function RotationsMatrix(alpha: extended): t2x2Extended;
+function einheitsVektor(alpha: extended): tExtPoint;
 
 implementation
 
@@ -1251,5 +1253,20 @@ begin
   setLength(dominanzen,0);
 end;
 
+function RotationsMatrix(alpha: extended): t2x2Extended;
+begin
+  result:=_2x2Extended(
+    cos(alpha),-sin(alpha),
+    sin(alpha), cos(alpha)
+  )
+end;
+
+function einheitsVektor(alpha: extended): tExtPoint;
+begin
+  result:=extPoint(
+    cos(alpha),sin(alpha)
+  );
+end;
+
 end.