ADT MATRIKS (3x3)

ADT MATRIKS (3x3)

·         Konstruktor

procedure makeMatriks (input a11, a12, a13, a21, a22, a23, a31, a32, a33 : integer)

                                            matriks   M

            M.a11  a11                                       M.a23  a23

            M.a12  a12                                       M.a31  a31

M.a13  a13                                       M.a32  a32

            M.a21  a21                                       M.a33  a33

            M.a22  a22                          

·         Setter

procedure seta11 (input/output M : matriks , input newa11 : integer)

            (*M).a11  newa11

procedure seta12 (input/output M : matriks , input newa12 : integer)

            (*M).a12  newa12

procedure seta13 (input/output M : matriks , input newa13 : integer)

            (*M).a13  newa13

procedure seta21 (input/output M : matriks , input newa21 : integer)

            (*M).a21  newa21

procedure seta22 (input/output M : matriks , input newa22 : integer)

            (*M).a22  newa22

procedure seta23 (input/output M : matriks , input newa23 : integer)

            (*M).a23  newa23

procedure seta31 (input/output M : matriks , input newa31 : integer)

            (*M).a31  newa31

procedure seta32 (input/output M : matriks , input newa32 : integer)

            (*M).a32  newa32

procedure seta33 (input/output M : matriks , input newa33 : integer)

            (*M).a33  newa33

·         Getter

function geta11 (input M : matriks)  integer

return M.a11

function geta12 (input M : matriks)  integer

return M.a12

function geta13 (input M : matriks)  integer

return M.a13

function geta21 (input M : matriks)  integer

return M.a21

function geta22 (input M : matriks)  integer

return M.a22

function geta23 (input M : matriks)  integer

return M.a23

function geta31 (input M : matriks)  integer

return M.a31

function geta32 (input M : matriks)  integer

return M.a32

function geta33 (input M : matriks)  integer

return M.a33

·         Penjumlahan

function “M1+M2” (M1, M2 : matriks)  matriks

            M.a11  M1.a11 + M2.a11                                        M.a23  M1.a23 + M2.a23

            M.a12  M1.a12 + M2.a12                                        M.a31  M1.a31 + M2.a31

            M.a13  M1.a13 + M2.a13                                        M.a32  M1.a32 + M2.a32

            M.a21  M1.a21 + M2.a21                                        M.a33  M1.a33 + M2.a33

            M.a22  M1.a22 + M2.a22                                        return M

                                                           

                       

           

           

·         Pengurangan

function “M1-M2” (M1, M2 : matriks)  matriks

            M.a11  M1.a11 - M2.a11                                         M.a23  M1.a23 - M2.a23    

            M.a12  M1.a12 - M2.a12                                         M.a31  M1.a31 - M2.a31

            M.a13  M1.a13 - M2.a13                                         M.a32  M1.a32 - M2.a32

            M.a21  M1.a21 - M2.a21                                         M.a33  M1.a33 - M2.a33

            M.a22  M1.a22 - M2.a22                                         return M         

·         Perkalian

function “M1*M2” (M1, M2 : matriks)  matriks

            M.a11  M1.a11 * M2.a11 + M1.a12 * M2.a21 + M1.a13 * M2.a31

            M.a12  M1.a11 * M2.a12 + M1.a12 * M2.a22 + M1.a13 * M2.a32

            M.a13  M1.a11 * M2.a13 + M1.a12 * M2.a23 + M1.a13 * M2.a33

            M.a21  M1.a21 * M2.a11 + M1.a22 * M2.a21 + M1.a23 * M2.a31

            M.a22  M1.a21 * M2.a12 + M1.a22 * M2.a22 + M1.a23 * M2.a32

            M.a23  M1.a21 * M2.a13 + M1.a22 * M2.a23 + M1.a23 * M2.a33

            M.a31  M1.a31 * M2.a11 + M1.a32 * M2.a21 + M1.a33 * M2.a31

            M.a32  M1.a31 * M2.a12 + M1.a32 * M2.a22 + M1.a33 * M2.a32

            M.a33  M1.a31 * M2.a13 + M1.a32 * M2.a23 + M1.a33 * M2.a33

            return M

function “c*M” (M : matriks, c : integer)  matriks

            M.a11  M.a11 * c                                        M.a23  M.a23 * c

            M.a12  M.a12 * c                                        M.a31  M.a31 * c

            M.a13  M.a13 * c                                        M.a32  M.a32 * c

            M.a21  M.a21 * c                                        M.a33  M.a33 * c

            M.a22  M.a22 * c                                        return M

           

           

                       

           

·         Invers

function invers (M : matriks)  real

det  M.a11 * M.a22 * M.a33 + M.a12 * M.a23 * M.a31 + M.a13 * M.a21 * M.32 – (M.a11 * M.a23 * M.a32 + M.a12 * M.a21 * M.a33 + M.a13 * M.a22 * M.a31)

            M.a11  (M.a22 * M.a33 – M.a23 * M.a32) div det

            M.a12  – (M.a12 * M.a33 – M.a13 * M.a32) div det

            M.a13  (M.a12 * M.a23 – M.a13 * M.a22) div det

            M.a21  – (M.a21 * M.a33 – M.a23 * M.a31) div det

            M.a22  (M.a11 * M.a33 – M.a13 * M.a31) div det

            M.a23  – (M.a11 * M.a23 – M.a13 * M.a21) div det

            M.a31  (M.a21 * M.a32 – M.a22 * M.a31) div det

            M.a32  – (M.a11 * M.a32 – M.a12 * M.a31) div det

            M.a33  (M.a11 * M.a22 – M.a12 * M.a21) div det

            return M