comp_dgt_fb.cc

来自「Matlab时频分析工具箱,希望能对大家有所帮助啊」· CC 代码 · 共 37 行

#include <octave/oct.h>

extern "C"
{
  void dgt_fb(double *f, double *g,
	      const int L, const int Lg,
	      const int W, const int R, const int a, const int M, 
	      double *cout);
}

DEFUN_DLD (comp_dgt_fb, args, ,
  "This function calls the C-library\n\
  c=comp_dgt_fb(f,g,a,M,boundary);\n\
  Yeah.")
{

  ComplexMatrix f = args(0).complex_matrix_value();
  ComplexMatrix g = args(1).complex_matrix_value();
  const int a = args(2).int_value();
  const int M = args(3).int_value();
  const int boundary = args(4).int_value();

  const int L  = f.rows();
  const int W  = f.columns();
  const int gl = g.rows();
  const int R  = g.columns();

  const int N = L/a;

  ComplexMatrix cout(M,N*W*R);  
  
  dgt_fb((double*)f.data(),(double*)g.data(),L,gl,W,R,a,M,
	  (double*)cout.data());  
  
  return octave_value (cout);
}