|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
) ? _% d/ K) o8 G# b/ I
通过把耗时长的函数用c语言实现,并编译成mex函数可以加快执行速度。
' r* \3 E4 B" m0 h& B$ |" {6 }1 [1 M, \
Matlab本身是不带c语言的编译器的,所以要求你的机器上已经安装有VC,BC或Watcom C中的一种。
8 v g, d+ d1 I+ e* @( B. J
! U& E+ L( T9 J4 k如果你在安装Matlab时已经设置过编译器,那么现在你应该就可以使用mex命令来编译c语言的程序了。: x3 x! K! C0 s2 t0 g2 @, L. e
! c4 g9 z- s0 E. S4 m9 B0 j
如果当时没有选,就在Matlab里键入mex -setup,下面只要根据提示一步步设置就可以了。) I9 F1 ^0 {& n# V
, d3 x" ^0 ~0 T" p
+ T- p) G: A A g) U# {为了测试你的路径设置正确与否,把下面的程序存为hello.c。
& W& L1 U$ }$ D! v
/ N7 D% C$ j1 T. M- /*hello.c*/
- #include "mex.h"
- void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
- { mexPrintf("hello,world!/n");
- }
( A2 I& ]& n2 y7 C% L. N0 B8 }+ Z. K ' M0 p% |3 q d9 X
% U. r7 K* f! A: r
假设你把hello.c放在了C:/TEST/下,在Matlab里用CD C:/TEST/ 将当前目录改为C:/ TEST/(注意,仅将C:/TEST/加入搜索路径是没有用的)。现在敲:, Z+ q C4 h9 j% O8 P( K
mex hello.c * U* s, w% W, a$ X' H
如果一切顺利,编译应该在出现编译器提示信息后正常退出。如果你已将C:/TEST/加入了搜索路径,现在键入hello,程序会在屏幕上打出一行:# M/ b9 E( @$ L& O9 l
hello,world! ' @" a7 f; s; \
2 \+ k3 Z7 `" l3 S- m; i整个程序由一个接口子过程 mexFunction构成。
( p/ a& u. w, Kvoid mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
: s" m! ~7 p5 ]! w前面提到过,Matlab的mex函数有一定的接口规范,就是指这
; x" h. e; f- N6 x9 f; h% knlhs:输出参数数目 7 V* j$ u3 b+ t1 `3 F
plhs:指向输出参数的指针 * z: t) r1 z/ b2 r: M' N3 }
nrhs:输入参数数目
4 k. z* Y, A$ g7 v, n) F例如,使用/ \0 V Z, B, v1 M# Q: a' @! X
[a,b]=test(c,d,e)# Z, r, i* q" Q7 g
调用mex函数test时,传给test的这四个参数分别是
* W8 l/ @, i! C0 u4 } F 2,plhs,3,prhs
' P2 u; k! O) q, P! E其中: 9 x- i5 I3 r1 O& l3 b3 j6 t
prhs[0]=c 7 e, m- C3 q& @/ u" H
prhs[1]=d
( r. Y+ }$ l( ]/ mprhs[2]=e
- M4 U* ?( r! Y# Y! E2 E9 Q当函数返回时,将会把你放在plhs[0],plhs[1]里的地址赋给a和b,达到返回数据的目的。 5 @) h. {0 m- C5 r5 B
细心的你也许已经注意到,prhs和plhs都是指向类型mxArray类型数据的指针。 这个类型是在mex.h中定义的,事实上,在Matlab里大多数数据都是以这种类型存在。当然还有其他的数据类型,可以参考Apiguide.pdf里的介绍。 * |# X. f6 }3 t' r! E
9 [. ^' T6 M' e- \5 x. x$ U& E0 h& ?
- //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");
- }) E t+ d. s' P# {. C# H) c$ Y4 X4 C$ p
. F+ }% `7 o/ u/ s" n4 d9 d8 U/ j1 w$ `( U: P' P
将这个程序编译通过后,执行hello(1),屏幕上会打出: hello,world! ; i. H! H8 q. K: @& r/ ~
而hello(0)将会得到: 大家好!. `( Z' p" r2 v( c
( ~ V4 J7 i5 S! Z$ x
用到了一个函数:mxGetScalar,调用方式如下: 7 A! A3 ]% c" t$ Q4 I% @
i=mxGetScalar(prhs[0]); : S, B5 o) J- `4 B6 X1 G& z. }/ a
"Scalar"就是标量的意思。在Matlab里数据都是以数组的形式存在的,mxGetScalar的作用就是把通过prhs[0]传递进来的mxArray类型的指针指向的数据(标量)赋给C程序里的变量。这个变量本来应该是double类型的,通过强制类型转换赋给了整形变量i。9 e0 ^& |6 W$ ?4 T9 h6 s
4 S% k- o6 e0 Y
- //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");
- }) G) G4 H1 i7 s' }* G
/ o# N7 z* A0 s& a5 O
! G+ ^. f9 f3 a& S7 d8 G! D这样,就通过mxGetPr函数从指向mxArray类型数据的prhs[0]获得了指向double类型的指针。: J+ B8 c" _& y" O
但是,还有个问题,如果输入的不是单个的数据,而是向量或矩阵,那该怎么处理呢 ?通过mxGetPr只能得到指向这个矩阵的指针,如果我们不知道这个矩阵的确切大小,就
% i& B8 B. x0 R; k% U% b没法对它进行计算。
{& D5 V: n; O3 H为了解决这个问题,Matlab提供了两个函数mxGetM和mxGetN来获得传进来参数的行数 和列数。下面例程的功能很简单,就是获得输入的矩阵,把它在屏幕上显示出来:
3 |! @& u, e- Y5 B; l1 M- q7 j" G% V) |+ H5 B
- //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");
- }
- }
3 B0 g# b8 y- y# M9 q5 U9 z2 X 0 q6 p% o6 P% p" m6 Y
z2 [# i& A7 x: Y- j/ q编译完成后,用下面的命令测试一下: Y, q. v q$ B. U& ~; m; \: a' v
a=1:10;
$ q: I7 u1 X1 t& J3 [# o b=[a;a+1]; & Q+ i+ ~, f* M' L, f6 N% B2 v
show(a)
0 U6 h. P7 ?- ]+ A: e1 y1 p show(b)
+ f- f& Q1 T: G# e! ]& V2 Y5 D
6 B$ @. b. }9 h1 V) V需要注意的是,在Matlab里,矩阵第一行是从1开始的,而在C语言中,第一行的序数为零,Matlab里的矩阵元素b(i,j)在传递到C中的一维数组大data后对应于data[j*M+i] 。
7 m2 V" J" }, e4 Q( {输入数据是在函数调用之前已经在Matlab里申请了内存的,由于mex函数与Matlab共用同一个地址空间,因而在prhs[]里传递指针就可以达到参数传递的目的。但是,输出参数却需要在mex函数内申请到内存空间,才能将指针放在plhs[]中传递出去。由于返回指针类型必须是mxArray,所以Matlab专门提供了一个函数:mxCreateDoubleMatrix来实现内存的申请,函数原型如下: - m {9 N" V: F8 P( o. ]
mxArray *mxCreateDoubleMatrix(int m, int n, mxComplexity ComplexFlag) * g4 {1 `/ T; r
m:待申请矩阵的行数 : Y2 z1 O* j' I4 Q" l7 o1 F. d
n:待申请矩阵的列数
A3 A, Z: i; p4 p! b- h为矩阵申请内存后,得到的是mxArray类型的指针,就可以放在plhs[]里传递回去了。但是对这个新矩阵的处理,却要在函数内完成,这时就需要用到前面介绍的mxGetPr。使用 mxGetPr获得指向这个矩阵中数据区的指针(double类型)后,就可以对这个矩阵进行各种操作和运算了。下面的程序是在上面的show.c的基础上稍作改变得到的,功能是将输 * ]2 d" x& v2 A# V
7 y" b, [) o0 Z v0 ^ j% N. E
; I' R% N. h1 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];
- }3 N6 I/ A! ^3 v, V
3 n1 v8 C+ `3 [ A
% u- [) g7 [+ @5 s: }- j+ ~# g
当然,Matlab里使用到的并不是只有double类型这一种矩阵,还有字符串类型、稀疏矩阵、结构类型矩阵等等,并提供了相应的处理函数。本文用到编制mex程序中最经常遇到的一些函数,其余的详细情况清参考Apiref.pdf。 5 _' u3 D% }: L) L% K! x% G7 Z' ]
通过前面两部分的介绍,大家对参数的输入和输出方法应该有了基本的了解。具备了这些知识,就能够满足一般的编程需要了。但这些程序还有些小的缺陷,以前面介绍的re由于前面的例程中没有对输入、输出参数的数目及类型进行检查,导致程序的容错性很差,以下程序则容错性较好
6 o- J# R, D. w
1 z, Q; l4 i k! F$ o5 K- #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];
- }
2 z6 ^) C4 M4 \ ! O7 Z1 k* `0 h* @3 p
9 e6 @- Z7 i/ W6 J& N7 z1 J4 b$ Y
在上面的异常处理中,使用了两个新的函数:mexErrMsgTxt和mxIsDouble。MexErrMsgTxt在给出出错提示的同时退出当前程序的运行。MxIsDouble则用于判断mxArray中的数据是否double类型。当然Matlab还提供了许多用于判断其他数据类型的函数,这里不加详述。 , w0 w6 f( g& W/ k* y( r+ h
需要说明的是,Matlab提供的API中,函数前缀有mex-和mx-两种。带mx-前缀的大多是对mxArray数据进行操作的函数,如mxIsDouble,mxCreateDoubleMatrix等等。而带mx前缀的则大多是与Matlab环境进行交互的函数,如mexPrintf,mxErrMsgTxt等等。了解了这一点,对在Apiref.pdf中查找所需的函数很有帮助。
; X E3 f! w9 O* y; M( g9 h4 u9 b1 s至此为止,使用C编写mex函数的基本过程已经介绍完了。 * f7 d, y9 l* H- c1 l4 i8 x+ R# l
|
|