magicdemoapp.vb

matlab source code very useful to science study

' *******************************************************************************
'
' MagicDemoApp.vb
'
' This file is an example application for the MATLAB Builder for .NET product.
'
' Copyright 2001-2005 The MathWorks, Inc.
'
' *******************************************************************************

Imports System
Imports System.Reflection
Imports MathWorks.MATLAB.NET.Utility
Imports MathWorks.MATLAB.NET.Arrays

Imports MagicDemoComp

Namespace MathWorks.Demo.MagicSquareApp

    ' <summary>
    ' The MagicDemoApp class computes a magic square of the user specified size.  
    ' </summary>
    ' <remarks>
    ' args[0] - a positive integer representing the array size.
    ' </remarks>
    Class MagicDemoApp

#Region " MAIN "

        ' <summary>
        ' The main entry point for the application.
        ' </summary>
        Shared Sub Main(ByVal args() As String)

            Dim arraySize As MWNumericArray = Nothing
            Dim magicSquare As MWNumericArray = Nothing

            Try
                ' Get user specified command line arguments or set default
                If (0 <> args.Length) Then
                    arraySize = New MWNumericArray(System.Int32.Parse(args(0)), False)
                Else
                    arraySize = New MWNumericArray(4, False)
                End If

                ' Create the magic square object
                Dim magic As MagicSquare = New MagicSquare

                ' Compute the magic square and print the result
                magicSquare = magic.makesquare(arraySize)

                Console.WriteLine("Magic square of order {0}{1}{2}{3}", arraySize, Chr(10), Chr(10), magicSquare)

                ' Convert the magic square array to a two dimensional native double array
                Dim nativeArray(,) As Double = CType(magicSquare.ToArray(MWArrayComponent.Real), Double(,))

                Console.WriteLine("{0}Magic square as native array:{1}", Chr(10), Chr(10))

                ' Display the array elements:
                Dim index As Integer = arraySize.ToScalarInteger()

                For i As Integer = 0 To index - 1
                    For j As Integer = 0 To index - 1
                        Console.WriteLine("Element({0},{1})= {2}", i, j, nativeArray(i, j))
                    Next j
                Next i

                Console.ReadLine() 'Wait for user to exit application


            Catch exception As Exception

                Console.WriteLine("Error: {0}", exception)

            End Try
        End Sub
#End Region

    End Class

End Namespace