06.08.2013 Views

内容简介作者简介 - 科学与工程计算系

内容简介作者简介 - 科学与工程计算系

内容简介作者简介 - 科学与工程计算系

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

#include <br />

void main()<br />

{<br />

double * b,a[9]={1,4,7,2,5,8,3,6,9};<br />

const char *file="mymat.mat";<br />

mxArray *Ain,*Aout,*SV;<br />

Engine * ep;<br />

MATFile *mat;<br />

//-------------------------------------------------------------mat=matOpen(file,"w");<br />

Ain = mxCreateDoubleMatrix(3,3,mxREAL);<br />

mxSetClassName(Ain,"z");<br />

memcpy((char *)mxGetPr(Ain),(char *)a,9*sizeof(double));<br />

matPutVariable(mat,"z",Ain);<br />

matClose(mat);<br />

mxDestroyArray(Ain);<br />

//-------------------------------mat=matOpen(file,"r");<br />

Aout =matGetVariable(mat,"z");<br />

if(ep=engOpen(NULL))<br />

{<br />

engPutVariable(ep,Aout);<br />

engEvalString(ep,"sv=svd(z);");<br />

SV=engGetVariable(ep,"sv");<br />

b=mxGetPr(SV);<br />

cout

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!