Описать класс, реализующий тип данных «вещественная матрица» и работу с ними

//Класс матрица:
//Основной конструктор: количество строк, столбцов и функция генератор для элементов
type Matrix(n:int, m:int, func: unit -> int) =
    let mutable matrix = Array2D.init n m (fun _ _ -> func())
 
    //свойства - матрица в виде двумерного прямоугольного массива
    member val Matrix = matrix
    member val RowCount = n with get
    member val ColumnCount = m with get
 
    //второй конструктор, элементы матрицы инициализируются 0 по умолчанию
    new(n:int, m:int) = 
        let zero() = 0
        new Matrix(n, m, zero)
 
    //переопределяем метод .ToString() для вывода
    override this.ToString() =
        sprintf "Matrix [%ix%i]\n%A" this.RowCount this.ColumnCount this.Matrix 
 
//проверяем правильность:
let rand = (new System.Random())
let generate() = rand.Next(10)
 
let somematrix = new Matrix (2,3,generate)
somematrix |> printfn "%A"
 
let somematrix2 = new Matrix (3,2)
somematrix2 |> printfn "%A"

//Класс матрица:
type Matrix(arr:double[,]) =
    let mutable matrix = arr
 
    //свойства - матрица в виде двумерного прямоугольного массива
    member val Matrix = matrix
    member val RowCount = arr.GetLength(0) with get
    member val ColumnCount = arr.GetLength(1) with get
 
    static member (.+) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map((+) b))
 
    static member (./) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map(fun x -> x / b))
 
    static member (.-) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map(fun x -> x - b))
 
    static member (.*) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map((*) b))
 
    //второй конструктор, элементы матрицы инициализируются 0 по умолчанию
    new(n:int, m:int) = 
        let zero() = 0.0
        new Matrix(n, m, zero)
 
    new(n:int, m:int, def:double) = 
        let zero() = def
        new Matrix(n, m, zero)
 
    new(n:int, m:int, func: unit -> double) = 
        new Matrix(Array2D.init n m (fun _ _ -> func()))
 
    //переопределяем метод .ToString() для вывода
    override this.ToString() =
        sprintf "Matrix [%ix%i]\n%A" this.RowCount this.ColumnCount this.Matrix 
 
let somematrix2 = new Matrix (3,2,1.0)
somematrix2 |> printfn "%A"
 
somematrix2 .* 3.0 |> printfn "%A"
somematrix2 .+ 3.0 |> printfn "%A"
somematrix2 .- 3.0 |> printfn "%A"
somematrix2 ./ 3.0 |> printfn "%A"

let somematrix2 = new Matrix (3, 2, 1.0)
let somematrix3 = new Matrix (somematrix2.Matrix)
somematrix2 |> printfn "%A"
somematrix3 |> printfn "%A"
printfn ""
 
somematrix2.Matrix.[1,1] <- 8.0
 
somematrix2 |> printfn "%A"
somematrix3 |> printfn "%A"

type Matrix(arr:double[,]) =
    //свойства - матрица в виде двумерного прямоугольного массива
    member val Matrix = Array2D.copy arr with get
    member val RowCount = arr.GetLength(0) with get
    member val ColumnCount = arr.GetLength(1) with get
 
    static member (.+) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map((+) b))
    static member (.+) (a:double,b:Matrix) = 
        b .+ a
    static member (.+) (a:Matrix,b:Matrix) = 
        if a.RowCount <> b.RowCount || a.ColumnCount <> b.ColumnCount then
            new System.ArgumentOutOfRangeException("Недопустимая операция") |> raise              
        Matrix(Array2D.mapi(fun i j x -> x + b.Matrix.[i,j]) a.Matrix)
 
    static member (./) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map(fun x -> x / b))
    static member (./) (a:double,b:Matrix) = 
        Matrix(b.Matrix |> Array2D.map((/) a))
    static member (./) (a:Matrix,b:Matrix) = 
        if a.RowCount <> b.RowCount || a.ColumnCount <> b.ColumnCount then
            new System.ArgumentOutOfRangeException("Недопустимая операция") |> raise
        Matrix(Array2D.mapi(fun i j x -> x / b.Matrix.[i,j]) a.Matrix)
 
    static member (.-) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map(fun x -> x - b))
    static member (.-) (a:double,b:Matrix) = 
        Matrix(b.Matrix |> Array2D.map((-) a))
    static member (.-) (a:Matrix,b:Matrix) = 
        if a.RowCount <> b.RowCount || a.ColumnCount <> b.ColumnCount then
            new System.ArgumentOutOfRangeException("Недопустимая операция") |> raise
        Matrix(Array2D.mapi(fun i j x -> x - b.Matrix.[i,j]) a.Matrix)
 
    static member (.*) (a:Matrix,b:double) = 
        Matrix(a.Matrix |> Array2D.map((*) b))
    static member (.*) (a:double,b:Matrix) = 
        b .* a
    static member (.*) (a:Matrix,b:Matrix) = 
       if a.RowCount <> b.RowCount || a.ColumnCount <> b.ColumnCount then
            new System.ArgumentOutOfRangeException("Недопустимая операция") |> raise
       Matrix(Array2D.mapi(fun i j x -> x * b.Matrix.[i,j]) a.Matrix)
 
 
    //второй конструктор, элементы матрицы инициализируются 0 по умолчанию
    new(n:int, m:int) = 
        new Matrix(Array2D.zeroCreate n m)
 
    new(n:int, m:int, def:double) = 
        new Matrix(Array2D.create n m def)
 
    new(n:int, m:int, func: unit -> double) = 
        new Matrix(Array2D.init n m (fun _ _ -> func()))
 
    //переопределяем метод .ToString() для вывода
    override this.ToString() =
        sprintf "Matrix [%ix%i]\n%A" this.RowCount this.ColumnCount this.Matrix

failwith "Недопустимая операция"

type MyClass(value:double) =
    let mutable Val = value
 
    member val Value = Val with get,set 
 
    override this.ToString() =
        sprintf "MyClass Value = %f\n" this.Value
 
[<EntryPoint>]
let main argv = 
    let a = new MyClass(1.2)
    let b = new MyClass(a.Value)
    a.Value <- 3.4
    b |> printfn "%A"

type Wrap<'a> (value: 'a) =
    let mutable Val = value
 
    member val Value = Val with get,set 
 
    override this.ToString() =
        sprintf "Value = (%A)" this.Value
 
 
[<EntryPoint>]
let main argv = 
    let array_item = Wrap(1.2)
    let array = Wrap(array_item)
    array_item.Value <- 3.4
    array |> printfn "%A"