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