tu-wien/fprog2021WS
Archived
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add addition, difference and negation to UE3 A.4

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-04 18:44:51 +01:00
parent 32f7a83d2d
commit 2a36ed1de7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
code/Angabe3.lhs
View File

@ -95,14 +95,14 @@ Aufgabe A.4
> | isEmpty (M m1) || isEmpty (M m2) = fehlerwert > | isEmpty (M m1) || isEmpty (M m2) = fehlerwert
> | matrixtyp (M m1) == KeineMatrix || matrixtyp (M m2) == KeineMatrix = fehlerwert > | matrixtyp (M m1) == KeineMatrix || matrixtyp (M m2) == KeineMatrix = fehlerwert
> | matrixtyp (M m1) /= matrixtyp (M m2) = fehlerwert > | matrixtyp (M m1) /= matrixtyp (M m2) = fehlerwert
> | otherwise = M ([[0]]) > | otherwise = M (zipWith (zipWith (+)) m1 m2)
> diff :: Matrix -> Matrix -> Matrix > diff :: Matrix -> Matrix -> Matrix
> diff (M m1) (M m2) > diff (M m1) (M m2)
> | isEmpty (M m1) || isEmpty (M m2) = fehlerwert > | isEmpty (M m1) || isEmpty (M m2) = fehlerwert
> | matrixtyp (M m1) == KeineMatrix || matrixtyp (M m2) == KeineMatrix = fehlerwert > | matrixtyp (M m1) == KeineMatrix || matrixtyp (M m2) == KeineMatrix = fehlerwert
> | matrixtyp (M m1) /= matrixtyp (M m2) = fehlerwert > | matrixtyp (M m1) /= matrixtyp (M m2) = fehlerwert
> | otherwise = M ([[0]]) > | otherwise = M (zipWith (zipWith (-)) m1 m2)
> mult :: Matrix -> Matrix -> Matrix > mult :: Matrix -> Matrix -> Matrix
> mult (M m1) (M m2) > mult (M m1) (M m2)
@ -114,16 +114,16 @@ Aufgabe A.4
> negation (M m1) > negation (M m1)
> | isEmpty (M m1)= fehlerwert > | isEmpty (M m1)= fehlerwert
> | matrixtyp (M m1) == KeineMatrix = fehlerwert > | matrixtyp (M m1) == KeineMatrix = fehlerwert
> | otherwise = M ([[0]]) > | otherwise = M (map (map ((-1)*)) m1)
> absolute :: Matrix -> Matrix > absolute :: Matrix -> Matrix
> absolute (M m1) > absolute (M m1)
> | isEmpty (M m1)= fehlerwert > | isEmpty (M m1)= fehlerwert
> | matrixtyp (M m1) == KeineMatrix = fehlerwert > | matrixtyp (M m1) == KeineMatrix = fehlerwert
> | otherwise = M ([[0]]) > | otherwise = M (map (map (abs)) m1)
> sign :: Matrix -> Matrix > sign :: Matrix -> Matrix
> sign (M m1) > sign (M m1)
> | isEmpty (M m1)= fehlerwert > | isEmpty (M m1)= error "Vorzeichenfunktion undefiniert"
> | matrixtyp (M m1) == KeineMatrix = fehlerwert > | matrixtyp (M m1) == KeineMatrix = error "Vorzeichenfunktion undefiniert"
> | otherwise = M ([[0]]) > | otherwise = M ([[0]])