diff options
| -rw-r--r-- | matheunit.pas | 17 |
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. |