From 2ae1241f94bd1223cc4b8d63c7c5494d483252b3 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 10 Jul 2023 21:09:36 +0200 Subject: matheunit.pas: rotations-Einsen --- matheunit.pas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'matheunit.pas') 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. -- cgit v1.2.3-70-g09d2