Задание 2

task2/02matrix/app/Main.hs

@@ -0,0 +1,35 @@
+module Main where
+
+import Numeric.LinearAlgebra as LA
+import Data.Complex
+import Graphics.EasyPlot
+
+gen x y | x == y = -2
+           | abs (x - y) == 1 = 1
+           | otherwise = 0
+
+a n = build (n,n) gen :: Matrix Double
+
+-- Нормы
+norm1 = maximum . map (sum . map abs) . toLists
+norm2 = norm1 . tr
+norm3 m =  sqrt $ maximum $  map magnitude $ toList $ eigenvalues $ m LA.<> (tr m)  
+
+mu norm m = norm m * (norm $ inv m)
+
+collectDots norm 1 = [(0, mu norm (a 1))]
+collectDots norm n = (fromIntegral n, mu norm (a n)) : collectDots norm (n - 1)
+
+main :: IO ()
+main = do
+    let res1 = collectDots norm1 6
+    plot X11 $ Data2D [Title "norm1", Style Lines] [] res1
+    print res1
+
+    let res2 = collectDots norm2 6
+    plot X11 $ Data2D [Title "norm2", Style Lines] [] res2
+    print res2
+
+    let res3 = collectDots norm3 6
+    plot X11 $ Data2D [Title "norm3", Style Lines] [] res3
+    print res3