matlib.h

《MATLAB实用指南》系列丛书源代码。

void DLLI unregister_class_function(const char* classname, const char* funcname);
int  DLLI is_class_function(const char* classname, const char* funcname);
Mm   DLLI call_class_function(const char* funcname, cMm a);
Mm   DLLI call_class_function(const char* funcname, cMm a, cMm b);
Mm   DLLI call_class_function(const char* funcname, cMm a, cMm b, cMm c);
Mm   DLLI call_class_function(const char* funcname, cMm a, cMm b, Mm& x, Mm& y);

Mm DLLI cell(cMm x);
Mm DLLI cell(cMm x, cMm y);
Mm DLLI cell(cMm x, cMm y, cMm o);
Mm DLLI cell(cMm x, cMm y, cMm o, cMm p);
Mm DLLI cells(cMm x);
Mm DLLI cells(cMm x, cMm y);
Mm DLLI cellstr(cMm x);
Mm DLLI cell_from_array(int n, const Mm* x[]);
Mm DLLI cell2struct(cMm x);
Mm DLLI cell2struct(cMm x, cMm f);
Mm DLLI cell2struct(cMm x, cMm f, cMm dim1);
int DLLI iscellstr(cMm x);
int DLLI isa(cMm x);
int DLLI isa(cMm x, cMm cls);
Mm DLLI mclass(cMm x);
Mm DLLI mclass(cMm x, cMm class_name);
Mm DLLI mchar(cMm varargin);
Mm DLLI mdouble(cMm x);
Mm DLLI mlogical(cMm x);
Mm DLLI muint8(cMm x);
Mm DLLI muint16(cMm x);
Mm DLLI fieldnames(cMm s);
Mm DLLI isfield(cMm s);
Mm DLLI isfield(cMm s, cMm f);
Mm DLLI getfield(cMm s);
Mm DLLI getfield(cMm s, cMm varargin);
Mm DLLI mstruct(cMm varargin);
Mm DLLI setfield(cMm s);
Mm DLLI setfield(cMm s, cMm field);
Mm DLLI setfield(cMm s, cMm field, cMm v);
Mm DLLI struct2cell(cMm s);
Mm DLLI rmfield(cMm s);
Mm DLLI rmfield(cMm s, cMm fields);

Mm DLLI minline(cMm x);
Mm DLLI minline(cMm x, cMm l);
Mm DLLI inlinefcn(cMm x);
Mm DLLI inlinefcn(cMm x, cMm l);
Mm DLLI formula(cMm f);
Mm DLLI fcnchk(cMm f);
Mm DLLI fcnchk(cMm f, cMm x);
Mm DLLI fcnchk(cMm f, cMm x, i_o_t, Mm& fo, Mm& msg);
Mm DLLI prefcnchk(cMm f, cMm x, cMm y, cMm z, i_o_t, Mm& fo, Mm& msg);


#define tostr1(x) #x
#define tostr2(x) tostr1(x)
#define m_type_name tostr2(m_type)

extern DLLW unsigned int DLLI mt_default_error_flags;

#define mt_default_error_none	      0
#define mt_default_error_text_output  1
#define mt_default_error_message_box  2
#define mt_default_error_abort	      4
#define mt_default_error_report       8
#define mt_default_error_throw	     16

void DLLI mt_set_default_error_flags(unsigned int f, unsigned int v);
void DLLI mt_set_default_warning_flags(unsigned int f, unsigned int v);

typedef void mt_print_handler_type(const char* msg);
typedef void mt_error_handler_type(const char* error_msg);
typedef void mt_warning_handler_type(const char* error_msg);
typedef void mt_message_handler_type(const char* s);
typedef void mt_logmessage_handler_type(const char* s);
typedef void mt_debug_handler_type(int c, const char* error_msg);

extern mt_print_handler_type PDLLI mt_print_handler;
extern mt_error_handler_type PDLLI mt_error_handler;
extern mt_warning_handler_type PDLLI mt_warning_handler;
extern mt_logmessage_handler_type PDLLI mt_logmessage_handler;
extern mt_message_handler_type PDLLI mt_message_handler;
extern mt_debug_handler_type PDLLI mt_debug_handler;

mt_print_handler_type PDLLI mt_set_print_handler(mt_print_handler_type* new_print_handler);
mt_error_handler_type PDLLI mt_set_error_handler(mt_error_handler_type* new_error_handler);
mt_warning_handler_type PDLLI mt_set_warning_handler(mt_warning_handler_type* new_error_handler);
mt_message_handler_type PDLLI mt_set_message_handler(mt_message_handler_type* new_message_handler);
mt_logmessage_handler_type PDLLI mt_set_logmessage_handler(mt_logmessage_handler_type* new_logmessage_handler);
mt_debug_handler_type PDLLI mt_set_debug_handler(mt_debug_handler_type* new_debug_handler);

int DLLI mt_was_handler_set();

extern char error_mname[];
extern int error_line_no;
extern char* error_mStream;

void DLLI error_lasterr(void);
void DLLI error_call_stack(char* b);

#ifdef BIT16
#define ERROR_BUF_LEN 512
#else
#define ERROR_BUF_LEN 2048
#endif

void DLLI error(const char* format,...);
void DLLI warning(const char* format,...);
void DLLI message(const char* format,...);
void DLLI logmessage(const char* format,...);

void DLLI error(int line, const char* format,...);
void DLLI warning(int line, const char* format,...);

#define mt_debug(x,y) if (mt_default_error_flags&mt_default_error_report) mt_debug_handler(x,y)

#ifndef mt_debug
#define mt_debug(x,y) ;
#endif

class mt_error_stack_t {
public:
  const char* names[mt_stack_max_depth];
  int  lines[mt_stack_max_depth];
  int  depth;
  int* current_line;
  mt_error_stack_t() {
    current_line=lines;
    reset();
  }
  void reset() {
    depth=0;
  }
  void begin(const char* s) {
    depth++;
    if (depth==mt_stack_max_depth) {
      depth=1;
    }
    names[depth]=s;
    current_line=lines+depth;
    mt_debug('+',s);
  }
  void end() {
    depth--;
    current_line=lines+depth;
    mt_debug('-',NULL);
  }
};


#define call_stack_begin    mt_error_stack.begin(__FILE__); *mt_error_stack.current_line=0;
#define call_stack_end	    mt_error_stack.end();
#define call_stack_depth    mt_error_stack.depth
#define _		    *mt_error_stack.current_line=__LINE__; mt_debug('l',NULL);

extern DLLW mt_error_stack_t DLLI mt_error_stack;

Mm DLLI czeros(int isc, int m, int n);
Mm DLLI czeros(int isc, int ndims, const int dims[max_ndims]);
Mm DLLI ceye(int isc, int m, int n);
Mm DLLI eye();
Mm DLLI eye(cMm x);
Mm DLLI eye(m_type x);
Mm DLLI eye(m_type m, m_type n);
Mm DLLI eye(cMm m, cMm n);
Mm DLLI eye(cMm m, cMm n, cMm o);
Mm DLLI eye(cMm m, cMm n, cMm o, cMm p);
Mm DLLI randM(cMm x);
Mm DLLI randM(m_type x);
Mm DLLI randM(m_type m, m_type n);
Mm DLLI randM(cMm m, cMm n);
Mm DLLI randM(cMm m, cMm n, cMm o);
Mm DLLI randM(cMm m, cMm n, cMm o, cMm p);
Mm DLLI randn(cMm x);
Mm DLLI randn(m_type x);
Mm DLLI randn(m_type m, m_type n);
Mm DLLI randn(cMm m, cMm n);
Mm DLLI randn(cMm m, cMm n, cMm o);
Mm DLLI randn(cMm m, cMm n, cMm o, cMm p);
Mm DLLI ones();
Mm DLLI ones(m_type x);
Mm DLLI ones(m_type m, m_type n);
Mm DLLI ones(cMm x);
Mm DLLI ones(cMm m, cMm n);
Mm DLLI ones(cMm m, cMm n, cMm o);
Mm DLLI ones(cMm m, cMm n, cMm o, cMm p);
Mm DLLI zeros();
Mm DLLI zeros(m_type x);
Mm DLLI zeros(m_type m, m_type n);
Mm DLLI zeros(cMm x);
Mm DLLI zeros(cMm m, cMm n);
Mm DLLI zeros(cMm m, cMm n, cMm o);
Mm DLLI zeros(cMm m, cMm n, cMm o, cMm p);

m_type    DLLI randM();
m_type    DLLI randn();

#define rand randM

Mm DLLI fft(cMm x);
Mm DLLI fft(cMm x, cMm n);
Mm DLLI fft(cMm x, cMm n, cMm dim1);
Mm DLLI ifft(cMm x);
Mm DLLI ifft(cMm x, cMm n);
Mm DLLI ifft(cMm x, cMm n, cMm dim1);
Mm DLLI dft(cMm x);

Mm DLLI fft2(cMm x);
Mm DLLI fft2(cMm x, cMm m);
Mm DLLI fft2(cMm x, cMm m, cMm n);
Mm DLLI ifft2(cMm x);
Mm DLLI ifft2(cMm x, cMm m);
Mm DLLI ifft2(cMm x, cMm m, cMm n);

Mm DLLI fftshift(cMm x);
Mm DLLI ifftshift(cMm x);


Mm DLLI cd();
Mm DLLI cd(cMm dir1);
Mm DLLI chdir(cMm dir1);
Mm DLLI copyfile(cMm src);
Mm DLLI copyfile(cMm src, cMm dest);
Mm DLLI deleteM(cMm filename);
Mm DLLI dos(cMm command);
Mm DLLI dos(cMm command, i_o_t, Mm& status, Mm& sout);
Mm DLLI dos(cMm command, cMm echo);
Mm DLLI dos(cMm command, cMm echo, i_o_t, Mm& status, Mm& sout);
Mm DLLI fclose(cMm fid);
Mm DLLI feof(cMm fid);
Mm DLLI ferror(cMm fid);
Mm DLLI ferror(cMm fid, cMm clear);
Mm DLLI ferror(cMm fid, cMm clear, i_o_t, Mm& msg, Mm& errnum);
Mm DLLI ferror(cMm fid, i_o_t, Mm& msg, Mm& errnum);
Mm DLLI fflush(cMm fid);
Mm DLLI fgetl(cMm fid);
Mm DLLI fgets(cMm fid);
Mm DLLI fgets(cMm fid, cMm nchar);
Mm DLLI filesep();
Mm DLLI fopen(cMm filename);
Mm DLLI fopen(cMm filename, cMm permission);
Mm DLLI fopen(cMm filename, cMm permission, cMm machine);
Mm DLLI fopen(cMm filename, cMm permission, cMm machine, i_o_t, Mm& fid, Mm& msg);
Mm DLLI fopen(cMm filename, cMm permission, i_o_t, Mm& fid, Mm& msg);
Mm DLLI fopen(cMm filename, i_o_t, Mm& fid, Mm& msg);
Mm DLLI fopen(cMm fid, i_o_t, Mm& filename, Mm& permission, Mm& machine);
Mm DLLI fprintf(cMm fid, cMm format1);
Mm DLLI fprintf(cMm fid, cMm format1, cMm varargin);
Mm DLLI fprintf(cMm x);
Mm DLLI fread(cMm fid);
Mm DLLI fread(cMm fid, cMm size);
Mm DLLI fread(cMm fid, cMm size, cMm precision);
Mm DLLI fread(cMm fid, cMm size, cMm precision, cMm skip);
Mm DLLI fread(cMm fid, cMm size, cMm precision, cMm skip, cMm machine);
Mm DLLI fread(cMm fid, cMm size, cMm precision, cMm skip, cMm machine, i_o_t, Mm& A, Mm& count);
Mm DLLI fread(cMm fid, cMm size, cMm precision, cMm skip, i_o_t, Mm& A, Mm& count);
Mm DLLI fread(cMm fid, cMm size, cMm precision, i_o_t, Mm& A, Mm& count);
Mm DLLI fread(cMm fid, cMm size, i_o_t, Mm& A, Mm& count);
Mm DLLI fread(cMm fid, i_o_t, Mm& A, Mm& count);
Mm DLLI frewind(cMm fid);
Mm DLLI fscanf(cMm fid);
Mm DLLI fscanf(cMm fid, cMm format1);
Mm DLLI fscanf(cMm fid, cMm format1, cMm size);
Mm DLLI fscanf(cMm fid, cMm format1, cMm size, i_o_t, Mm& A, Mm& count);
Mm DLLI fscanf(cMm fid, cMm format1, cMm size, i_o_t, Mm& A, Mm& count, Mm& errmsg);
Mm DLLI fscanf(cMm fid, cMm format1, i_o_t, Mm& A, Mm& count);
Mm DLLI fseek(cMm fid);
Mm DLLI fseek(cMm fid, cMm offset);
Mm DLLI fseek(cMm fid, cMm offset, cMm origin);
Mm DLLI ftell(cMm fid);
Mm DLLI fullfile(cMm varargin);
Mm DLLI fwrite(cMm fid);
Mm DLLI fwrite(cMm fid, cMm A);
Mm DLLI fwrite(cMm fid, cMm A, cMm precision);
Mm DLLI fwrite(cMm fid, cMm A, cMm precision, cMm skip);
Mm DLLI fwrite(cMm fid, Mm A, cMm precision, cMm skip, cMm machine);
Mm DLLI help(cMm keyword);
Mm DLLI mkdir(cMm dir1);
Mm DLLI pathsep();
Mm DLLI printf(cMm format1);
Mm DLLI printf(cMm format1, cMm varargin);
Mm DLLI rmdir(cMm dir1);
Mm DLLI stderrM();
Mm DLLI stdinM();
Mm DLLI stdoutM();
Mm DLLI system(cMm cmd);
Mm DLLI type(cMm fname);
Mm DLLI unixM(cMm command);
Mm DLLI unixM(cMm command, i_o_t, Mm& status, Mm& sout);

Mm DLLX wavread(cMm filename);
Mm DLLX wavread(cMm filename, i_o_t, Mm& wavedata, Mm& rate);
Mm DLLX wavread(Mm filename, i_o_t, Mm& wavedata_o, Mm& rate, Mm& bits);
Mm DLLI wavwrite(cMm wavedata);
Mm DLLI wavwrite(cMm wavedata, cMm filename);
Mm DLLI wavwrite(cMm wavedata, cMm rate, cMm filename);
Mm DLLX wavwrite(cMm wavedata, cMm rate, cMm bits, Mm filename);

Mm DLLI conv(cMm a);
Mm DLLI conv(Mm a, Mm b);
Mm DLLI conv2(cMm a);
Mm DLLI conv2(cMm a, cMm b);
Mm DLLI conv2(Mm A, Mm B, cMm shape);
Mm DLLI conv2(Mm hcol, Mm hrow, Mm A, cMm shape);
Mm DLLI cov(cMm a);
Mm DLLI cov(cMm a, cMm b);
Mm DLLI cov(cMm a, cMm b, cMm c);
Mm DLLI corrcoef(cMm a);
Mm DLLI corrcoef(cMm a, cMm b);
Mm DLLI cplxpair(cMm x);
Mm DLLI cplxpair(cMm x, cMm tol);
Mm DLLI cplxpair(Mm x, Mm tol, cMm dim1);
Mm DLLI deconv(cMm a);
Mm DLLI deconv(cMm a, i_o_t, Mm& q, Mm& r);
Mm DLLI deconv(cMm a, cMm b);
Mm DLLI deconv(cMm a, cMm b, i_o_t, Mm& q, Mm& r);
Mm DLLI ltitr(cMm a);
Mm DLLI ltitr(cMm a, cMm b);
Mm DLLI ltitr(cMm a, cMm b, cMm u);
Mm DLLI ltitr(Mm a, Mm b, Mm u, Mm x0);
Mm DLLI ltifr(cMm a);
Mm DLLI ltifr(cMm a, cMm b);
Mm DLLI ltifr(cMm a, cMm b, cMm s);
Mm DLLI filter(cMm b);
Mm DLLI filter(cMm b, cMm a);
Mm DLLI filter(cMm b, cMm a, cMm x);
Mm DLLI filter(cMm b, cMm a, cMm x, cMm zi);
Mm DLLI filter(cMm b, cMm a, cMm x, cMm zi, cMm dim1);
Mm DLLI filter(cMm b, cMm a, cMm x, i_o_t, Mm& y, Mm& zf);
Mm DLLI filter(cMm b, cMm a, cMm x, cMm zi, i_o_t, Mm& y, Mm& zf);
Mm DLLI filter(cMm b, cMm a, cMm x, cMm zi, cMm dim1, i_o_t, Mm& y, Mm& zf);
Mm DLLI filter2(cMm b);
Mm DLLI filter2(cMm b, cMm a);
Mm DLLI filter2(cMm b, cMm a, cMm s);
Mm DLLI freqspace(cMm n);
Mm DLLI freqspace(cMm n, cMm m);
Mm DLLI freqspace(cMm n, i_o_t, Mm& f1, Mm& f2);
Mm DLLI freqspace(cMm n, cMm m, i_o_t, Mm& f1, Mm& f2);
Mm DLLI kron(cMm a);
Mm DLLI kron(cMm a, cMm b);
Mm DLLI mean(cMm a);
Mm DLLI mean(cMm a, cMm dim1);
Mm DLLI meshdom(Mm x, Mm y, i_o_t, Mm& xx, Mm& yy);
Mm DLLI meshgrid(cMm x);
Mm DLLI meshgrid(cMm x, cMm y);
Mm DLLI meshgrid(cMm x, cMm y, cMm z);
Mm DLLI meshgrid(cMm x, i_o_t, Mm& xx, Mm& yy);
Mm DLLI meshgrid(cMm x, cMm y, i_o_t, Mm& xx, Mm& yy);
Mm DLLI meshgrid(cMm x, cMm y, cMm z, i_o_t, Mm& xx, Mm& yy);
Mm DLLI meshgrid(cMm x, i_o_t, Mm& xx, Mm& yy, Mm& zz);
Mm DLLI meshgrid(cMm x, cMm y, i_o_t, Mm& xx, Mm& yy, Mm& zz);
Mm DLLI meshgrid(cMm x, cMm y, cMm z, i_o_t, Mm& xx, Mm& yy, Mm& zz);
Mm DLLI ndgrid(cMm x);
Mm DLLI ndgrid(cMm x, cMm y);
Mm DLLI ndgrid(cMm x, i_o_t, Mm& xx, Mm& yy);
Mm DLLI ndgrid(cMm x, cMm y, i_o_t, Mm& xx, Mm& yy);
Mm DLLI ndgrid(cMm x, i_o_t, Mm& xx, Mm& yy, Mm& zz);
Mm DLLI ndgrid(cMm x, cMm y, cMm z, i_o_t, Mm& xx, Mm& yy, Mm& zz);
Mm DLLI nested(cMm n);
Mm DLLI nextpow2(cMm x);
Mm DLLI remezf(cMm nfilt, cMm edge, cMm fx, cMm wtx, cMm jtype);
Mm DLLI remezf(cMm nfilt, cMm edge, cMm grid, cMm fx, cMm wtx, cMm jtype, i_o_t, Mm& h, Mm& err, Mm& iext);
Mm DLLI stdM(cMm a);
Mm DLLI stdM(cMm a, cMm b);
Mm DLLI stdM(cMm a, cMm b, cMm dim1);
Mm DLLI trapz(cMm a);
Mm DLLI trapz(cMm a, cMm b);
Mm DLLI upfirdn(cMm x);
Mm DLLI upfirdn(cMm x, cMm h);
Mm DLLI upfirdn(cMm x, cMm h, cMm p);
Mm DLLI upfirdn(Mm x, Mm h, cMm p, cMm q);

#define STUBH(x) Mm DLLI x(Mm a0=l_M,Mm a1=l_M,Mm a2=l_M,Mm a3=l_M,Mm a4=l_M,Mm a5=l_M,Mm a6=l_M,Mm a7=l_M,Mm a8=l_M,Mm a9=l_M,Mm a10=l_M,Mm a11=l_M,Mm a12=l_M,Mm a13=l_M,Mm a14=l_M,Mm a15=l_M,Mm a16=l_M);
#define STUBH_2_2(x) Mm DLLI x(Mm a0,Mm a1,i_o_t,Mm& o0,Mm& o1);
#define STUBCXX(x)  Mm DLLX x(Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm) { return TM("Stub called."); }
#define STUBCXX_2_2(x)  Mm DLLX x(Mm,Mm,i_o_t,Mm&,Mm&) { return TM("Stub called."); }
#define STUBCXXx(x) Mm DLLX x(Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm,Mm) { return x_M; }

#define STUBCXX_CMM(x)  Mm DLLX x(cMMm) { return TM("Stub called."); }
Mm DLLI guiexit(int ivemode);
Mm DLLI designer();
Mm DLLI guide();
Mm DLLI consolemode(cMm m);
Mm DLLI allchild(cMm h);
Mm DLLI setstatus(cMm f, cMm s);
Mm DLLI setstatus(cMm s);
Mm DLLI axes();
Mm DLLI axes(cMm varargin);
Mm DLLI winaxes(void *winparent);
Mm DLLI vbaxes(cMm handle);
Mm DLLI axesposition(cMm left, cMm top, cMm width, cMm height);
Mm DLLI setapplicationhandle(void *hndl);
Mm DLLI setapplicationkeyhandle(void *hndl);
Mm DLLI agocrash();
Mm DLLI axis();
Mm DLLI axis(cMm a);
Mm DLLI axis(cMm a, cMm b);
Mm DLLI axis(cMm a, cMm b, cMm c);
Mm DLLI brighten(cMm b);
Mm DLLI brighten(cMm f, cMm b);
Mm DLLI reset(cMm h);
Mm DLLI cla();
Mm DLLI cla(cMm reset);
Mm DLLI clf();
Mm DLLI clf(cMm a);
Mm DLLI clg();
Mm DLLI drawnow();
Mm DLLI figure();
Mm DLLI figure(cMm varargin);
Mm DLLI figure_close();
Mm DLLI figure_close(cMm fig);
Mm DLLI figure_close(cMm fig, cMm force);
Mm DLLI dialog();
Mm DLLI dialog(cMm varargin);
Mm DLLI findobj();
Mm DLLI findobj(cMm varargin);
Mm DLLI findall(cMm varargin);
Mm DLLI findfigs();
Mm DLLI gca();