xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Matrix Operations" Height="250" Width="250">
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Namespace WpfApplication1
Public Partial Class MatrixOperations
Inherits Window
Public Sub New()
Dim m As New Matrix(1, 2, 3, 4, 0, 0)
tbOriginal.Text = "(" & m.ToString() & ")"
m.Invert()
tbInvert.Text = "(" & m.ToString() & ")"
Dim m1 As New Matrix(1, 2, 3, 4, 0, 1)
Dim m2 As New Matrix(0, 1, 2, 1, 0, 1)
Dim m12 As Matrix = Matrix.Multiply(m1, m2)
Dim m21 As Matrix = Matrix.Multiply(m2, m1)
tbM1M2.Text = "M1 = (" & m1.ToString() & "), " & " M2 = (" & m2.ToString() & ")"
tbM12.Text = "(" & m12.ToString() & ")"
tbM21.Text = "(" & m21.ToString() & ")"
End Sub
End Class
End Namespace