Matrix Operations
<Window x:Class="WpfApplication1.MatrixOperations"
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">
<Grid>
<StackPanel>
<TextBlock Margin="10,10,5,5" Text="Original Matrix:" />
<TextBlock x:Name="tbOriginal" Margin="20,0,5,5" />
<TextBlock Margin="10,0,5,5" Text="Inverted Matrix:" />
<TextBlock x:Name="tbInvert" Margin="20,0,5,5" />
<TextBlock Margin="10,0,5,5" Text="Original Matrices:" />
<TextBlock x:Name="tbM1M2" Margin="20,0,5,5" />
<TextBlock Margin="10,0,5,5" Text="M1 x M2:" />
<TextBlock x:Name="tbM12" Margin="20,0,5,5" />
<TextBlock Margin="10,0,5,5" Text="M2 x M1:" />
<TextBlock x:Name="tbM21" Margin="20,0,5,5" />
</StackPanel>
</Grid>
</Window>
//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
Related examples in the same category
