Imports System

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

Imports PlotComp


Namespace MathWorks.Examples.PlotApp

    ' <summary>
    ' This application demonstrates plotting x-y data by graphing a simple 
    ' parabola into a MATLAB figure window. 
    ' </summary>
    Class PlotDemoApp

#Region " MAIN "

        ' <summary>
        ' The main entry point for the application.
        ' </summary>
        Shared Sub Main(ByVal args() As String)
            Try
                Const numPoints As Integer = 10  ' Number of points to plot
                Dim idx As Integer
                Dim plotValues(,) As Double = New Double(1, numPoints - 1) {}
                Dim coords As MWNumericArray

                'Plot 5x vs x^2
                For idx = 0 To numPoints - 1
                    Dim x As Double = idx + 1
                    plotValues(0, idx) = x * 5
                    plotValues(1, idx) = x * x
                Next idx

                coords = New MWNumericArray(plotValues)

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

                ' Plot the values
                plotter.drawgraph(coords)

                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

/* Necessary package imports */
using System;
using System.Collections.Generic;
using System.Text;
using MathWorks.MATLAB.NET.Arrays;
using PhoneBookComp;

namespace MathWorks.Examples.PhoneBookApp
{
  //
  // This class demonstrates the use of the MWStructArray class
  //
  class PhoneBookApp
    {
      static void Main(string[] args)
        {
          PhoneBook thePhonebook = null;  /* Stores deployment class instance */
          MWStructArray friends= null;   /* Sample input data */
          MWArray[] result= null;        /* Stores the result */
          MWStructArray book= null;      /* Output data extracted from result */

          /* Create the new deployment object */
          thePhonebook= new PhoneBook();

          /* Create an MWStructArray with two fields */
          String[] myFieldNames= { "name", "phone" };
          friends= new MWStructArray(2, 2, myFieldNames);

          /* Populate struct with some sample data --- friends and phone */
          /*  number extensions */
          friends["name", 1]= new MWCharArray("Jordan Robert");
          friends["phone", 1]= 3386;
          friends["name", 2]= new MWCharArray("Mary Smith");
          friends["phone", 2]= 3912;
          friends["name", 3]= new MWCharArray("Stacy Flora");
          friends["phone", 3]= 3238;
          friends["name", 4]= new MWCharArray("Harry Alpert");
          friends["phone", 4]= 3077;

          /* Show some of the sample data */
          Console.WriteLine("Friends: ");
          Console.WriteLine(friends.ToString());

          /* Pass it to a MATLAB function that determines external phone number */
          result= thePhonebook.makephone(1, friends);
          book= (MWStructArray)result[0];
 
          Console.WriteLine("Result: ");
          Console.WriteLine(book.ToString());

          /* Extract some data from the returned structure */
          Console.WriteLine("Result record 2:");

          Console.WriteLine(book["name", 2]);
          Console.WriteLine(book["phone", 2]);
          Console.WriteLine(book["external", 2]);

          /* Print the entire result structure using the helper function below */
          Console.WriteLine("");
          Console.WriteLine("Entire structure:");

          DispStruct(book);

          Console.ReadLine();
        }

      public static void DispStruct(MWStructArray arr)
        {
          Console.WriteLine("Number of Elements: " + arr.NumberOfElements);
            
          int[] dims= arr.Dimensions;

          Console.Write("Dimensions: " + dims[0]);

          for (int idx= 1; idx < dims.Length; idx++)
            {
              Console.WriteLine("-by-" + dims[idx]);
            }
            
          Console.WriteLine("\nNumber of Fields: " + arr.NumberOfFields);
          Console.WriteLine("Standard MATLAB view:");
          Console.WriteLine(arr.ToString());

          Console.WriteLine("Walking structure:");

          string[] fieldNames= arr.FieldNames;

          for (int element= 1; element <= arr.NumberOfElements; element++)
            {
              Console.WriteLine("Element " + element);

              for (int field= 0; field < arr.NumberOfFields; field++)
                {
                  MWArray fieldVal= arr[arr.FieldNames[field], element];
                    
                  /* Recursively print substructures, */
                  /*  give string display of other classes */
                  if (fieldVal.GetType() == typeof(MWStructArray))
                    {
                      Console.WriteLine("   " + fieldNames[field] + ": 
                          nested structure:");
                      Console.WriteLine("+++ Begin of \"" + fieldNames[field] + "\" 
                          nested structure");
                      DispStruct((MWStructArray)fieldVal);
                      Console.WriteLine("+++ End of \"" + fieldNames[field] + 
                          "\" nested structure");
                    }

                  else
                    {
                      Console.Write("   " + fieldNames[field] + ": ");
                      Console.WriteLine(fieldVal.ToString());
                    }
                }
            }
        }
    }
}

' Necessary package imports

Imports MathWorks.MATLAB.NET.Arrays
Imports PhoneBookComp

'
' getphone class demonstrates the use of the MWStructArray class
'
Public Module PhoneBookVBApp
    Public Sub Main()
        Dim thePhonebook As phonebook   'Stores deployment class instance
        Dim friends As MWStructArray    'Sample input data
        Dim result As Object()          'Stores the result
        Dim book As MWStructArray       'Output data extracted from result

        ' Create the new deployment object 
        thePhonebook = New phonebook()

        ' Create an MWStructArray with two fields 
        Dim myFieldNames As String() = {"name", "phone"}
        friends = New MWStructArray(2, 2, myFieldNames)

        ' Populate struct with some sample data --- friends and phone numbers 
        friends("name", 1) = New MWCharArray("Jordan Robert")
        friends("phone", 1) = 3386
        friends("name", 2) = New MWCharArray("Mary Smith")
        friends("phone", 2) = 3912
        friends("name", 3) = New MWCharArray("Stacy Flora")
        friends("phone", 3) = 3238
        friends("name", 4) = New MWCharArray("Harry Alpert")
        friends("phone", 4) = 3077

        ' Show some of the sample data 
        Console.WriteLine("Friends: ")
        Console.WriteLine(friends.ToString())

        ' Pass it to a MATLAB function that determines external phone number 
        result = thePhonebook.makephone(1, friends)
        book = CType(result(0), MWStructArray)
        Console.WriteLine("Result: ")
        Console.WriteLine(book.ToString())

        ' Extract some data from the returned structure '
        Console.WriteLine("Result record 2:")

        Console.WriteLine(book("name", 2))
        Console.WriteLine(book("phone", 2))
        Console.WriteLine(book("external", 2))

        ' Print the entire result structure using the helper function below 
        Console.WriteLine("")
        Console.WriteLine("Entire structure:")
        dispStruct(book)
    End Sub


    Sub dispStruct(ByVal arr As MWStructArray)
        Console.WriteLine("Number of Elements: " + arr.NumberOfElements.ToString())
        'int numDims = arr.NumberofDimensions
        Dim dims As Integer() = arr.Dimensions
        Console.Write("Dimensions: " + dims(0).ToString())

        Dim i As Integer
        For i = 1 To dims.Length
            Console.WriteLine("-by-" + dims(i - 1).ToString())
        Next i
        Console.WriteLine("")
        Console.WriteLine("Number of Fields: " + arr.NumberOfFields.ToString())
        Console.WriteLine("Standard MATLAB view:")
        Console.WriteLine(arr.ToString())
        Console.WriteLine("Walking structure:")

        Dim fieldNames As String() = arr.FieldNames

        Dim element As Integer
        For element = 1 To arr.NumberOfElements
            Console.WriteLine("Element " + element.ToString())
            Dim field As Integer
            For field = 0 To arr.NumberOfFields - 1
                Dim fieldVal As MWArray = arr(arr.FieldNames(field), element)
                ' Recursively print substructures, give string display of other classes 
                If (TypeOf fieldVal Is MWStructArray) Then
                    Console.WriteLine("   " + fieldNames(field) + ": nested structure:")
                    Console.WriteLine("+++ Begin of \"" + fieldNames[field] + 
                                                      " \ " nested structure")

                    dispStruct(CType(fieldVal, MWStructArray))
                    Console.WriteLine("+++ End of \"" + fieldNames[field] + 
                                                      " \ " nested structure")
                Else
                    Console.Write("   " + fieldNames(field) + ": ")
                    Console.WriteLine(fieldVal.ToString())
                End If
            Next field
        Next element
    End Sub
End Module