matdgns.c

matlab实用教程

#include <stdio.h>
#include <stdlib.h>
#include "mat.h"
 
int diagnose(const char *file) {
  MATFile *pmat;
  const char **dir;
  const char *name;
  int     ndir;
  int     i;
  mxArray *pa;
  
  printf("Reading file %s...\n\n", file);
 
  /* 以只读方式打开MAT文件 */
  pmat = matOpen(file, "r");
  if (pmat == NULL) {
    printf("Error opening file %s\n", file);
    return(1);
  }
  
  /* 获取MAT文件的路径 */
  dir = (const char **)matGetDir(pmat, &ndir);
  if (dir == NULL) {
    printf("Error reading directory of file %s\n", file);
    return(1);
  } else {
    printf("Directory of %s:\n", file);
    for (i=0; i < ndir; i++)
      printf("%s\n",dir[i]);
  }
  mxFree(dir);
 
  /* 为正确使用matGetNextXXX函数，关闭MAT文件，然后重新以只读方式打开 */
  if (matClose(pmat) != 0) {
    printf("Error closing file %s\n",file);
    return(1);
  }
  pmat = matOpen(file, "r");
  if (pmat == NULL) {
    printf("Error reopening file %s\n", file);
    return(1);
  }
 
  /* 获取所有变量的信息 */
  printf("\nExamining the header for each variable:\n");
  for (i=0; i < ndir; i++) {
    pa = matGetNextVariableInfo(pmat, &name);
    if (pa == NULL) {
    printf("Error reading in file %s\n", file);
    return(1);
    }
    /* 诊断pa的头信息 */
    printf("According to its header, array %s has %d dimensions\n",
       name, mxGetNumberOfDimensions(pa));
    if (mxIsFromGlobalWS(pa))
      printf("  and was a global variable when saved\n");
    else
      printf("  and was a local variable when saved\n");
    mxDestroyArray(pa);
  }
 
  /* 关闭MAT文件，重新打开，读取实际数据 */
  if (matClose(pmat) != 0) {
    printf("Error closing file %s\n",file);
    return(1);
  }
  pmat = matOpen(file, "r");
  if (pmat == NULL) {
    printf("Error reopening file %s\n", file);
    return(1);
  }
 
  /* 依次读取每个数据 */
  printf("\nReading in the actual array contents:\n");
  for (i=0; i<ndir; i++) {
      pa = matGetNextVariable(pmat, &name);
      if (pa == NULL) {
      printf("Error reading in file %s\n", file);
      return(1);
      } 

      /* 诊断Diagnose变量pa */
      printf("According to its contents, array %s has %d dimensions\n",
         name, mxGetNumberOfDimensions(pa));
      if (mxIsFromGlobalWS(pa))
    printf("  and was a global variable when saved\n");
      else
    printf("  and was a local variable when saved\n");
      mxDestroyArray(pa);
  }
 
  if (matClose(pmat) != 0) {
      printf("Error closing file %s\n",file);
      return(1);
  }
  printf("Done\n");
  return(0);
}
 
int main(int argc, char **argv)
{  
  int result;
 
  if (argc > 1)
    result = diagnose(argv[1]);
  else{
    result = 0;
    printf("Usage: matdgns <matfile>");
    printf(" where <matfile> is the name of the MAT-file");
    printf(" to be diagnosed\n");
  } 

  return (result==0)?EXIT_SUCCESS:EXIT_FAILURE; 
}