www.pudn.com > matlab8.zip > my_ex1.c

/* 
 * ex1.c 
 * 
 * Copyright (c) 1995-1999 by The Mathworks, Inc. All Rights Reserved. 
 */ 
  
/* $Revision: 1.6 $ */ 
  
#include  
#include      /* used for EXIT_SUCCESS */ 
#include  
 
#include "matlab.h" 
 
static double real_data[] = { 1, 2, 3, 4, 5, 6 }; 
static double cplx_data[] = { 7, 8, 9, 10, 11, 12 }; 
 
int main() 
{ 
    /* Declare two matrices and initialize to NULL */ 
    mxArray *mat0 = NULL; 
    mxArray *mat1 = NULL; 
 
    /* Enable automated memory management */ 
    mlfEnterNewContext(0, 0); 
 
    /* Create the matrices and assign data to them */ 
    mlfAssign(&mat0, mlfDoubleMatrix(2, 3, real_data, NULL)); 
    mlfAssign(&mat1, mlfDoubleMatrix(3, 2, real_data, cplx_data)); 
 
    /* Print the matrices */ 
    mlfPrintMatrix(mat0); 
    mlfPrintMatrix(mat1); 
 
    /* Free the matrices */ 
    mxDestroyArray(mat0); 
    mxDestroyArray(mat1); 
 
    /* Disable automated memory management */ 
    mlfRestorePreviousContext(0, 0); 
 
    return(EXIT_SUCCESS); 
}