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

Add initial implementation for UE6 A5

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-23 19:12:06 +01:00
parent b5eef0023e
commit c6a82add73
1 changed files with 31 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
code/Angabe6.hs
View File

@ -96,15 +96,36 @@ instance Eq MatrixF where
-- Aufgabe A.5
instance Num MatrixF where
(Mf t1 f1) + (Mf t2 f2) = error "Nicht implementiert!"
(Mf t1 f1) - (Mf t2 f2) = error "Nicht implementiert!"
(Mf t1 f1) * (Mf t2 f2) = error "Nicht implementiert!"
negate (Mf t f) = error "Nicht implementiert!"
abs (Mf t f) = error "Nicht implementiert!"
signum (Mf t f) = error "Nicht implementiert!"
fromInteger n = error "Nicht implementiert!"
(Mf t1 f1) + (Mf t2 f2) = if t1 == t2 then Mf t1 (\x y -> (f1 x y) + (f2 x y)) else fehler
(Mf t1 f1) - (Mf t2 f2) = if t1 == t2 then Mf t1 (\x y -> (f1 x y) - (f2 x y)) else fehler
(Mf t1 f1) * (Mf t2 f2) = if snd t1 == fst t2 then Mf (fst t1, snd t2) (\x y -> (f1 x y) * (f2 x y)) else fehler
negate (Mf t f) = if is_correct_matrix(Mf t f) then Mf t (\x y -> -(f x y)) else fehler
abs (Mf t f) = if is_correct_matrix(Mf t f) then Mf t (\x y -> abs(f x y)) else fehler
signum (Mf t f) = sign (Mf t f)
fromInteger n = Mf (1,1) (\x y -> fromIntegral(n))
sign :: MatrixF -> MatrixF
sign (Mf t f)
| not(is_correct_matrix(Mf t f)) = error "Vorzeichenfunktion undefiniert"
| True `elem` negative =
if False `elem` negative then error "Vorzeichenfunktion undefiniert"
else Mf (1,1) (\x y -> -1)
| True `elem` positive =
if False `elem` positive then error "Vorzeichenfunktion undefiniert"
else Mf (1,1) (\x y -> 1)
| True `elem` nulls =
if False `elem` nulls then error "Vorzeichenfunktion undefiniert"
else Mf (1,1) (\x y -> 0)
| otherwise = error "Vorzeichenfunktion undefiniert"
where
m = (Mf t f)
m' = construct_matrix m 1 []
negative = boolMatrixToList (map (map (<0)) m') []
nulls = boolMatrixToList (map (map (==0)) m') []
positive = boolMatrixToList (map (map (>0)) m') []
{- Knapp, aber gut nachvollziehbar geht die Instanzbildung fuer Num folgendermassen vor:
...
-}
boolMatrixToList :: [[Bool]] -> [Bool] -> [Bool]
boolMatrixToList (m:ms) res
| null m = res
| length m /= 0 && null ms = res ++ m
| otherwise = boolMatrixToList ms (res ++ m)