|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
* `5 Q/ z& s, Y通过把耗时长的函数用c语言实现,并编译成mex函数可以加快执行速度。4 B0 E7 ]! T2 [! R1 M7 K; A+ [
9 I) U; K7 S( O2 O4 X- c
Matlab本身是不带c语言的编译器的,所以要求你的机器上已经安装有VC,BC或Watcom C中的一种。
( \7 T* }& n8 c) w$ M' q* n) K; ]" b1 A( F2 {0 _& u+ t
如果你在安装Matlab时已经设置过编译器,那么现在你应该就可以使用mex命令来编译c语言的程序了。
7 `! G$ o! w7 H/ J; n
- |9 m0 ^. Y' x: P0 \- A如果当时没有选,就在Matlab里键入mex -setup,下面只要根据提示一步步设置就可以了。
3 T Z: e+ F& A1 j9 v; Y+ e% `2 g+ v5 ?
0 v' z% ^0 C2 l0 ^ \( ^为了测试你的路径设置正确与否,把下面的程序存为hello.c。
( k) D1 D" J6 A( J0 T; p& ^9 Q; D! v1 A$ ^0 g7 I; j6 y
- /*hello.c*/
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- { mexPrintf("hello,world!/n");
- }
4 c$ ^/ G( u2 f+ z( K
5 x) H5 _8 d) @; Y3 w6 \3 E7 _: i9 q2 Y+ r- ^
假设你把hello.c放在了C:/TEST/下,在Matlab里用CD C:/TEST/ 将当前目录改为C:/ TEST/(注意,仅将C:/TEST/加入搜索路径是没有用的)。现在敲:
# s/ S. s) H$ Y# z* @( \( nmex hello.c 0 r7 P1 B) i, f5 b
如果一切顺利,编译应该在出现编译器提示信息后正常退出。如果你已将C:/TEST/加入了搜索路径,现在键入hello,程序会在屏幕上打出一行:( R' u. \4 u/ F+ J9 @; ^+ T
hello,world!
( U* E2 Q- a9 E$ W" ]5 K5 X
; u2 j2 C9 [# I/ ]" E7 t/ N整个程序由一个接口子过程 mexFunction构成。
' |7 k- e: a$ m0 cvoid mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
: Q- e) O; w8 n5 T5 Z2 Y4 Y- `前面提到过,Matlab的mex函数有一定的接口规范,就是指这( O# Z' p, t/ F3 G5 _( E7 D
nlhs:输出参数数目
0 y6 h, p9 R2 W; ?5 A5 L5 G/ kplhs:指向输出参数的指针 / w+ @% q8 K0 P4 w$ }! d
nrhs:输入参数数目 6 p5 b) w7 }% ?# u2 g. ^
例如,使用! G, q- l* q# |1 }" } l
[a,b]=test(c,d,e)
) C% {( y$ S$ c# ^调用mex函数test时,传给test的这四个参数分别是4 i! Y! v k% f+ r' @5 v
2,plhs,3,prhs
! ]6 I: u2 \! L. q* ?" J7 j, Z6 r1 q其中:
) U0 M# N9 I) l; a, Yprhs[0]=c
+ ? f" Z K( K! g7 T" gprhs[1]=d
' A: v. a* o( {2 `2 J1 Dprhs[2]=e 0 x& U" |3 G& x, k/ O
当函数返回时,将会把你放在plhs[0],plhs[1]里的地址赋给a和b,达到返回数据的目的。
, l4 q" `7 n; G7 V& R细心的你也许已经注意到,prhs和plhs都是指向类型mxArray类型数据的指针。 这个类型是在mex.h中定义的,事实上,在Matlab里大多数数据都是以这种类型存在。当然还有其他的数据类型,可以参考Apiguide.pdf里的介绍。 3 K* h# C$ H/ ^
9 c" q& r$ b' j: N! ^
- //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");
- }
8 @! b1 q* k) [- w
* o6 O. o9 J$ u& G/ ], K4 h7 K7 G" { d. I' H/ J2 V
将这个程序编译通过后,执行hello(1),屏幕上会打出: hello,world!
% D0 B' x8 \. V: h而hello(0)将会得到: 大家好!
" t; \* |. K2 J5 o* [
6 A) O: D5 G) G; F! }3 d用到了一个函数:mxGetScalar,调用方式如下: / T, E$ b% c' s0 b
i=mxGetScalar(prhs[0]); 6 j9 {0 }1 X( Q/ r1 z
"Scalar"就是标量的意思。在Matlab里数据都是以数组的形式存在的,mxGetScalar的作用就是把通过prhs[0]传递进来的mxArray类型的指针指向的数据(标量)赋给C程序里的变量。这个变量本来应该是double类型的,通过强制类型转换赋给了整形变量i。. P) S: p9 B; b$ i
, ]2 z0 S8 Q) p0 n- //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");
- }7 l1 \ M9 z" A- \! j5 h1 a
' f' ^( R0 ?. F3 S, l
, y/ X/ D( ~7 P2 f这样,就通过mxGetPr函数从指向mxArray类型数据的prhs[0]获得了指向double类型的指针。% p* J: ]) l$ k* S
但是,还有个问题,如果输入的不是单个的数据,而是向量或矩阵,那该怎么处理呢 ?通过mxGetPr只能得到指向这个矩阵的指针,如果我们不知道这个矩阵的确切大小,就 ' F0 X. n4 B i3 u
没法对它进行计算。 . a% ?! W; F" }9 w1 {) P& S8 m: O
为了解决这个问题,Matlab提供了两个函数mxGetM和mxGetN来获得传进来参数的行数 和列数。下面例程的功能很简单,就是获得输入的矩阵,把它在屏幕上显示出来:
% q7 \3 g) G) P
, g2 b* i$ b+ P# q; ]- //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");
- }
- }
H, \) O3 C: v2 D. ] T1 i ! k- {" b% T( P' e8 `7 z
# m% ] ?( } e. `) H0 U& a编译完成后,用下面的命令测试一下:
- u7 _' w. ~* @& z a=1:10;
" N L. U0 @5 R; V' q b=[a;a+1]; 2 }9 _. M. E* Y
show(a) + ?5 ^0 T- U1 S# ]
show(b)
8 Z- K/ f v9 L- L8 F" k' t0 ~* g# c
' ~3 ?- P& }0 F% h需要注意的是,在Matlab里,矩阵第一行是从1开始的,而在C语言中,第一行的序数为零,Matlab里的矩阵元素b(i,j)在传递到C中的一维数组大data后对应于data[j*M+i] 。
# b/ o+ p, K6 t6 Y7 [输入数据是在函数调用之前已经在Matlab里申请了内存的,由于mex函数与Matlab共用同一个地址空间,因而在prhs[]里传递指针就可以达到参数传递的目的。但是,输出参数却需要在mex函数内申请到内存空间,才能将指针放在plhs[]中传递出去。由于返回指针类型必须是mxArray,所以Matlab专门提供了一个函数:mxCreateDoubleMatrix来实现内存的申请,函数原型如下:
- M& M& |- C, h4 I7 v( P% z mxArray *mxCreateDoubleMatrix(int m, int n, mxComplexity ComplexFlag)
9 Q% z3 A6 U( ^2 u m:待申请矩阵的行数 4 Y! b2 c6 a9 l$ `) I( I
n:待申请矩阵的列数
7 ?7 J# }, e1 Y& @/ f为矩阵申请内存后,得到的是mxArray类型的指针,就可以放在plhs[]里传递回去了。但是对这个新矩阵的处理,却要在函数内完成,这时就需要用到前面介绍的mxGetPr。使用 mxGetPr获得指向这个矩阵中数据区的指针(double类型)后,就可以对这个矩阵进行各种操作和运算了。下面的程序是在上面的show.c的基础上稍作改变得到的,功能是将输 % D. i! s2 K, C6 Z3 X+ q$ \
' p+ K1 `. t% F. Z
2 l2 Y, q8 K/ f. E1 S R: ?
- //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];
- }
6 z" J8 L* z8 w( h7 [8 o3 t' D7 |
) `8 I# U Z5 }7 n
/ t6 [: w4 y6 Q& f$ D- D0 K1 d K当然,Matlab里使用到的并不是只有double类型这一种矩阵,还有字符串类型、稀疏矩阵、结构类型矩阵等等,并提供了相应的处理函数。本文用到编制mex程序中最经常遇到的一些函数,其余的详细情况清参考Apiref.pdf。 1 F" @6 @ v5 H& D, `: H3 g9 u z
通过前面两部分的介绍,大家对参数的输入和输出方法应该有了基本的了解。具备了这些知识,就能够满足一般的编程需要了。但这些程序还有些小的缺陷,以前面介绍的re由于前面的例程中没有对输入、输出参数的数目及类型进行检查,导致程序的容错性很差,以下程序则容错性较好2 y! E; i- S: |4 G- `% {; _
' | P( p0 M9 c4 C' a* c8 D
- #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];
- }
, ~, Q, i) `1 S1 Q, o
: W2 P: x- m3 J8 X) T
# o4 u$ s, P3 r4 N在上面的异常处理中,使用了两个新的函数:mexErrMsgTxt和mxIsDouble。MexErrMsgTxt在给出出错提示的同时退出当前程序的运行。MxIsDouble则用于判断mxArray中的数据是否double类型。当然Matlab还提供了许多用于判断其他数据类型的函数,这里不加详述。
, F, O# S/ U7 e3 S+ u2 o' y需要说明的是,Matlab提供的API中,函数前缀有mex-和mx-两种。带mx-前缀的大多是对mxArray数据进行操作的函数,如mxIsDouble,mxCreateDoubleMatrix等等。而带mx前缀的则大多是与Matlab环境进行交互的函数,如mexPrintf,mxErrMsgTxt等等。了解了这一点,对在Apiref.pdf中查找所需的函数很有帮助。- w+ N3 P0 M5 s9 K
至此为止,使用C编写mex函数的基本过程已经介绍完了。 : k* t: @5 i. f
|
|