|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
" ?1 |1 X4 f; } v
通过把耗时长的函数用c语言实现,并编译成mex函数可以加快执行速度。
" o% z. r) u' k% n* @1 j0 Z# f
, ?6 O, i3 P. zMatlab本身是不带c语言的编译器的,所以要求你的机器上已经安装有VC,BC或Watcom C中的一种。
" g- j1 _5 `; c+ g1 @8 i# C. k5 E# R2 T i
如果你在安装Matlab时已经设置过编译器,那么现在你应该就可以使用mex命令来编译c语言的程序了。7 {& c w0 R ~% c$ t8 X
, {: Q3 v' p5 E; |; n; e
如果当时没有选,就在Matlab里键入mex -setup,下面只要根据提示一步步设置就可以了。
& R9 _, a1 n+ X7 `) Y+ l" H# \/ p$ b P. w& [8 z4 r6 |0 b1 i# d
0 n4 y: t7 o. Z. W B
为了测试你的路径设置正确与否,把下面的程序存为hello.c。
& J0 c7 _0 @" b+ V$ ?5 T- d% H, b6 q; [* \2 ~; {, |
- /*hello.c*/
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- { mexPrintf("hello,world!/n");
- }
1 H# m, W- _' \, o# z 6 {& o, k/ _9 u7 b$ C' U
) k `0 Q+ A( h, d3 s9 r- b
假设你把hello.c放在了C:/TEST/下,在Matlab里用CD C:/TEST/ 将当前目录改为C:/ TEST/(注意,仅将C:/TEST/加入搜索路径是没有用的)。现在敲:
/ P5 W/ K8 B/ P( @0 {# P! emex hello.c
# P$ ]. }0 j, K) t Y$ I如果一切顺利,编译应该在出现编译器提示信息后正常退出。如果你已将C:/TEST/加入了搜索路径,现在键入hello,程序会在屏幕上打出一行:
! A. J+ L1 s0 `" ahello,world!
% S# X& a; C& e" |$ j1 V2 K" s
4 v% c, G7 v% l( u% j" h. r; k整个程序由一个接口子过程 mexFunction构成。' |7 W9 i0 |- O9 l9 j# r
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
1 U a5 I7 e% z% o, g6 f前面提到过,Matlab的mex函数有一定的接口规范,就是指这0 x3 O5 u4 W6 g- p- R C4 C" ?
nlhs:输出参数数目 5 Y( g! T" Z9 p/ b: x
plhs:指向输出参数的指针 4 s5 [/ Y% V8 N; Q z' i
nrhs:输入参数数目 ; R: E4 X1 }7 e, R7 @
例如,使用 c: ?% U l. z+ S' Z/ g
[a,b]=test(c,d,e)
7 H: N" C7 f4 }/ |; @0 Q调用mex函数test时,传给test的这四个参数分别是
8 ~1 E) E7 n4 C4 B" G. G 2,plhs,3,prhs
# z8 r' j$ u0 c$ Z( b8 ? w9 t其中: 4 s% S" Q4 c1 |4 R( B0 Z/ J6 N6 P
prhs[0]=c
. [7 r* t- c3 M' P1 iprhs[1]=d 9 [' g& W) c9 Z4 `" W2 X
prhs[2]=e
' E8 ~1 ^9 D0 g9 l$ T4 y当函数返回时,将会把你放在plhs[0],plhs[1]里的地址赋给a和b,达到返回数据的目的。
. w; R7 ~& [% V) ^% O; M3 N细心的你也许已经注意到,prhs和plhs都是指向类型mxArray类型数据的指针。 这个类型是在mex.h中定义的,事实上,在Matlab里大多数数据都是以这种类型存在。当然还有其他的数据类型,可以参考Apiguide.pdf里的介绍。 9 g) j3 V# }" F; W Q4 o* p' Z
' ~: a& _6 h; A, [: `5 P2 o
- //hello.c 2.0
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- {
- int i;
- i=mxGetScalar(prhs[0]);
- if(i==1)
- mexPrintf("hello,world!/n");
- else
- mexPrintf("大家好!/n");
- }0 M2 C/ Q) z- S5 K- K& h( i
' k* @* ~! [- ~
; T2 g0 Q0 }- f* h5 Q" V- \
将这个程序编译通过后,执行hello(1),屏幕上会打出: hello,world!
; N4 \1 X3 i4 W5 g而hello(0)将会得到: 大家好!
; ~0 L& _2 K8 e& ]3 L0 T. ?
+ i3 l4 B; T4 z) a- @+ d. m* s1 H% `用到了一个函数:mxGetScalar,调用方式如下:
& j8 [' T, G* j( n i=mxGetScalar(prhs[0]);
$ q0 W R& a# F7 P1 |3 Z/ K9 @; ]' I"Scalar"就是标量的意思。在Matlab里数据都是以数组的形式存在的,mxGetScalar的作用就是把通过prhs[0]传递进来的mxArray类型的指针指向的数据(标量)赋给C程序里的变量。这个变量本来应该是double类型的,通过强制类型转换赋给了整形变量i。" {' a) y0 U0 N% f! D
3 ~9 ~. m& D$ z% G- l- //hello.c 2.1
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[],
- int nrhs, const mxArray *prhs[])
- {
- int *i;
- i=mxGetPr(prhs[0]);
- if(i[0]==1)
- mexPrintf("hello,world!/n");
- else
- mexPrintf("大家好!/n");
- }
b) n% M% v* r. G/ l: d9 X - Z) u. {* u5 W" `8 ]5 C% x
) n4 w5 g, F G
这样,就通过mxGetPr函数从指向mxArray类型数据的prhs[0]获得了指向double类型的指针。- [' J9 ^* ~3 ~5 Q; p
但是,还有个问题,如果输入的不是单个的数据,而是向量或矩阵,那该怎么处理呢 ?通过mxGetPr只能得到指向这个矩阵的指针,如果我们不知道这个矩阵的确切大小,就 " s! X# u7 C- d; n/ ^( e8 n
没法对它进行计算。 . j( ]+ M4 }1 ?5 C; T
为了解决这个问题,Matlab提供了两个函数mxGetM和mxGetN来获得传进来参数的行数 和列数。下面例程的功能很简单,就是获得输入的矩阵,把它在屏幕上显示出来: 7 z- t; Q; p6 P" Q/ C
' E* `$ ^1 F* m1 d- //show.c 1.0
- #include "mex.h"
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- {
- double *data;
- int M,N;
- int i,j;
- data=mxGetPr(prhs[0]); //获得指向矩阵的指针
- M=mxGetM(prhs[0]); //获得矩阵的行数
- N=mxGetN(prhs[0]); //获得矩阵的列数
- for(i=0;i<M;i++)
- { for(j=0;j<N;j++)
- mexPrintf("%4.3f ",data[j*M+i]);
- mexPrintf("/n");
- }
- }
, k0 q0 n" z/ y( @% g1 q 4 g! V: ~9 U6 [; x D8 T
8 ?& `. Z$ b7 t1 v# _# ^
编译完成后,用下面的命令测试一下: ( D: E4 Z$ p: I: H) q3 o% P
a=1:10; 0 S9 t9 x) c2 N8 H" t! F7 _0 ?
b=[a;a+1];
" M0 T( |7 P7 |6 b' d0 }. P- c show(a)
" g3 X1 g2 w: x* i show(b) : c5 I: \8 e! f7 I } }' [% F
$ ]6 \, o: Y2 D( K* Z5 X3 l
需要注意的是,在Matlab里,矩阵第一行是从1开始的,而在C语言中,第一行的序数为零,Matlab里的矩阵元素b(i,j)在传递到C中的一维数组大data后对应于data[j*M+i] 。 7 b" s. {5 b3 O
输入数据是在函数调用之前已经在Matlab里申请了内存的,由于mex函数与Matlab共用同一个地址空间,因而在prhs[]里传递指针就可以达到参数传递的目的。但是,输出参数却需要在mex函数内申请到内存空间,才能将指针放在plhs[]中传递出去。由于返回指针类型必须是mxArray,所以Matlab专门提供了一个函数:mxCreateDoubleMatrix来实现内存的申请,函数原型如下:
# U2 o1 }. e! P4 i0 H mxArray *mxCreateDoubleMatrix(int m, int n, mxComplexity ComplexFlag)
J+ U2 W/ `6 _; d m:待申请矩阵的行数
' [8 \: g e, d4 h- z' z! o Z5 { n:待申请矩阵的列数 \8 c0 U. P9 A" D5 l
为矩阵申请内存后,得到的是mxArray类型的指针,就可以放在plhs[]里传递回去了。但是对这个新矩阵的处理,却要在函数内完成,这时就需要用到前面介绍的mxGetPr。使用 mxGetPr获得指向这个矩阵中数据区的指针(double类型)后,就可以对这个矩阵进行各种操作和运算了。下面的程序是在上面的show.c的基础上稍作改变得到的,功能是将输 5 p4 w$ q" r4 t, v- C' R
- V% l o0 S. ]6 A$ `, B5 i
' w( h/ @; t5 L+ v8 T- //reverse.c 1.0
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[],
- int nrhs, const mxArray *prhs[])
- {
- double *inData;
- double *outData;
- int M,N;
- int i,j;
- inData=mxGetPr(prhs[0]);
- M=mxGetM(prhs[0]);
- N=mxGetN(prhs[0]);
- plhs[0]=mxCreateDoubleMatrix(M,N,mxREAL);
- outData=mxGetPr(plhs[0]);
- for(i=0;i<M;i++)
- for(j=0;j<N;j++)
- outData[j*M+i]=inData[(N-1-j)*M+i];
- }0 L6 H% J! a% B/ z# e7 e
\& r+ t9 p$ l+ G
8 Z' Z; U) G% d5 L当然,Matlab里使用到的并不是只有double类型这一种矩阵,还有字符串类型、稀疏矩阵、结构类型矩阵等等,并提供了相应的处理函数。本文用到编制mex程序中最经常遇到的一些函数,其余的详细情况清参考Apiref.pdf。 7 T2 A/ M9 y% Q& i
通过前面两部分的介绍,大家对参数的输入和输出方法应该有了基本的了解。具备了这些知识,就能够满足一般的编程需要了。但这些程序还有些小的缺陷,以前面介绍的re由于前面的例程中没有对输入、输出参数的数目及类型进行检查,导致程序的容错性很差,以下程序则容错性较好
_- l+ M) ?6 K
3 O% c0 d3 e8 {% C1 a- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- {
- double *inData;
- double *outData;
- int M,N;
- //异常处理
- //异常处理
- if(nrhs!=1)
- mexErrMsgTxt("USAGE: b=reverse(a)/n");
- if(!mxIsDouble(prhs[0]))
- mexErrMsgTxt("the Input Matrix must be double!/n");
- inData=mxGetPr(prhs[0]);
- M=mxGetM(prhs[0]);
- N=mxGetN(prhs[0]);
- plhs[0]=mxCreateDoubleMatrix(M,N,mxREAL);
- outData=mxGetPr(plhs[0]);
- for(i=0;i<M;i++)
- for(j=0;j<N;j++)
- outData[j*M+i]=inData[(N-1-j)*M+i];
- }- U* y. n1 ^# ?2 Y+ t# p' y
3 z/ ^% p- Q) Z! \- I, f2 l' ]2 i5 ]
在上面的异常处理中,使用了两个新的函数:mexErrMsgTxt和mxIsDouble。MexErrMsgTxt在给出出错提示的同时退出当前程序的运行。MxIsDouble则用于判断mxArray中的数据是否double类型。当然Matlab还提供了许多用于判断其他数据类型的函数,这里不加详述。 ( c' h9 m; J0 t7 |5 n L4 @# j
需要说明的是,Matlab提供的API中,函数前缀有mex-和mx-两种。带mx-前缀的大多是对mxArray数据进行操作的函数,如mxIsDouble,mxCreateDoubleMatrix等等。而带mx前缀的则大多是与Matlab环境进行交互的函数,如mexPrintf,mxErrMsgTxt等等。了解了这一点,对在Apiref.pdf中查找所需的函数很有帮助。" T5 D% l! r1 ^' c, \; B0 \
至此为止,使用C编写mex函数的基本过程已经介绍完了。
, m& @3 V7 Y. p+ X: L* M- G |
|