Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class Test
public Shared Sub Main
Console.WriteLine("Original values: ")
' Create a Matrix object
Dim X As New Matrix(2, 1, 3, 1, 0, 4)
' Write its values
Dim i As Integer
For i = 0 To X.Elements.Length - 1
Console.WriteLine(X.Elements(i))
Next i
Console.WriteLine("Inverted values: ")
' Invert Matrix
X.Invert()
Dim pts As Single() = X.Elements
' Read inverted Matrix
Dim i1 As Integer
For i = 0 To pts.Length - 1
Console.WriteLine(pts(i))
Next i
End Sub
End class
|
