#include<stdio.h>
#include<string.h> /*For strcmp()*/
#include<stdlib.h> /*For EXIT _FAILURE,EXIT _SUCCESS*/
#include"mat.h"
#define BUFSIZE 256
inat main()
{
MATFile *pmat; /*定义MAT文件指针*/
mxArray *pa1,*pa2,*pa3;
double data[9]={1.0 4.0 7.0 2.0 5.0 8.0 3.0 6.0 9.0};
const char *file="mattest.mat";
char str[BUFSIZE];
int status;
/* 打开一个MAT文件，如果不存在则创建一个MAT文件，如果打开失败，则返回*/
printf("Creating file %s...\n\n",file);
pmat=matOpen(file,"w");
if(pmat==NULL)
{
printf("Error creating file %s\n",file);
printf("(Do you have write permission in this directory?)\n");
return(EXIT_FAILURE;)
}
/*创建三个mxArray结构体对象，其中pa1、pa2分别为3×3、2×2的双精度实型矩阵*/
pa1=mxCreateDoubleMatrix(3,3,mxREAL);
if(pa1==NULL)
{
printf("%s:Out of memory on line %d\n",_FILE_,_LINE_);
printf("Unable to create mxArray.\n");
return(EXIT_FAILURE);
}
pa2=mxCreateDoubleMatrix(3,3,mxREAL);
if(pa2==NULL)
{
printf("%s:Out of memory on line%d\n",_FILE_,_LINE_);
printf("Unable to create mxArray.\n");
return(EXIT_FAILURE);
}
memcpy((void*)(mxGetPr(pa2)),(void*)data,sizeof(data));
pa3=mxCreateString("MATLAB:the language of technical computing");
if(pa3==NULL)
{
printf("%s:Out of memory on line %d\n",_FILE_,_LINE_);
printf("Unable to create string mxArray.\n");
return(EXIT_FAILURE);
}
/*向MAT文件中写数据，失败则返回*/
status=matPutVariable(pmat,"LocalDouble",pal);
if(status!=0)
{
printf("%s:Error using matPutVariable on line %d\n",_FILE_,_LINE_);
return(EXIT_FAILURE);
}
status=matPutVariableAsGlobal(pmat,"GlobalDouble",pa2);
if(status!=0)
{
printf("Error using matPutVariableAsGlobal\n");
return(EXIT_FAILURE);
}
status=matPutVariable(pmat,"LocalString",pa3);
if(status!=0)
{
printf("%s:Error using matPutVariable on line %d\n",_FILE_,_LINE_);
return(EXIT_FALURE);
}
/*清除矩阵*/
mxDestroyArray(pa1);
mxDestroyArray(pa2);
mxDestroyArray(pa3);
/*关闭MAT文件*/
if(matClose(pmat)!=0)
{
printf("Error closing file %s\n",file);
return(EXIT_FALURE);
}
printf("Done\n");
return(EXIT_SUCCESS);
}
MATLAB程序设计与典型应用(源程序)
5星 · 超过95%的资源 需积分: 50 126 浏览量
2013-07-04
20:54:16
上传
评论 8
收藏 65KB RAR 举报 
MATLAB程序设计与典型应用(源程序) （148个子文件） 
li4_30.asv 461B matCreatCDemo.c 2KB idl_i.c 584B com_file_exaple.cpp 1KB
目录.doc 31KB li6_26.m 2KB li8_19.m 1KB li11_3.m 1KB li5_7.m 1KB li8_21.m 1024B li7_6.m 762B li9_45.m 746B line_sol.m 720B magicCreate.m 705B li9_41.m 685B li7_2.m 682B li7_3.m 650B li2_61.m 648B li11_9.m 643B li5_5.m 622B li9_19.m 609B li2_62.m 604B li2_60.m 603B li9_32.m 602B li8_22.m 599B li5_24.m 597B li8_17.m 592B li9_31.m 592B li9_8.m 580B li8_23.m 566B li5_15.m 551B li7_4.m 540B li11_4.m 521B li4_24.m 516B li10_7.m 514B li9_35.m 504B li7_8.m 494B li11_7.m 494B li5_31.m 473B li9_5.m 452B li9_11.m 446B xiuhist.m 438B li5_26.m 434B li5_27.m 433B li9_38.m 431B li9_15.m 418B li9_9.m 418B li7_5.m 414B li9_42.m 413B li9_28.m 404B li5_16.m 402B li5_23.m 383B li8_14.m 382B li2_63.m 366B newexample.m 363B li9_16.m 356B li11_11.m 350B li5_8.m 346B li9_33.m 344B A.m 342B li8_18.m 337B gausser.m 333B li7_7.m 332B li9_4.m 328B jacobi.m 328B li9_34.m 326B li11_5.m 314B li9_40.m 309B li5_6.m 309B li9_27.m 299B li5_17.m 297B li5_10.m 285B li6_7.m 281B li4_19.m 280B li4_30.m 278B li9_39.m 276B li4_25.m 275B li4_9.m 274B li4_40.m 273B li4_3.m 267B li5_21.m 263B li9_2.m 262B li8_8.m 255B li2_77.m 254B li2_9.m 253B li4_10.m 251B li9_10.m 245B li9_17.m 245B li4_31.m 242B twomodegauss.m 237B li11_8.m 235B li11_1.m 231B li5_20.m 229B li3_36.m 227B testvar.m 226B li4_39.m 224B li11_6.m 222B li9_37.m 213B li4_6.m 206B li4_28.m 206B共 148 条
- 1
- 2
- 1
- 2
- 3
前往页