Документация

Imports System

Imports MathWorks.MATLAB.NET.Utility
Imports MathWorks.MATLAB.NET.Arrays

Imports VarArgComp


Namespace MathWorks.Demo.VarArgDemoApp


' <summary>
' This application demonstrates how to call components having methods with 
'   varargin/vargout arguments.
' </summary>
Class VarArgDemoApp
    
#Region " MAIN "

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

            ' Initialize the input data
            Dim colorSpec As MWNumericArray = 
              New MWNumericArray(New Double() {0.9, 0.0, 0.0})
            Dim data As MWNumericArray = 
              New MWNumericArray(New Integer(,) {{1, 2}, {2, 4}, {3, 6}, {4, 8}, {5, 10}})
            Dim coords() As MWArray = Nothing

            Try

                ' Create a new plotter object
                Dim plotter As Plotter = New Plotter

                'Extract a variable number of two element x and y coordinate 
                ' vectors from the data array
                coords = plotter.extractcoords(5, data)

                ' Draw a graph using the specified color to connect the variable number of 
                '  input coordinates.
                ' Return a two column data array containing the input coordinates.
                data = CType(plotter.drawgraph(colorSpec, coords(0), coords(1), coords(2), 
                   coords(3), coords(4)), _
                             MWNumericArray)

                Console.WriteLine("result={0}{1}", Chr(10), data)

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

                ' Note: You can also pass in the coordinate array directly.
                data = CType(plotter.drawgraph(colorSpec, coords), MWNumericArray)

                Console.WriteLine("result=\{0}{1}", Chr(10), data)

                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