Mega Code Archive

 

Categories / VB.Net / WPF

 

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