comp_dgt_fac.cc

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

#include <octave/oct.h>
#include "config.h"
#include "../src/dgt_fac.c"

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

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

  const int L = f.rows();
  const int W = f.columns();
  const int R = gf.rows()*gf.columns()/L;

  const int N = L/a;

  ComplexMatrix cout(M,N*W*R);  
  
  dgt_fac((ltfat_complex*)f.data(),(ltfat_complex*)gf.data(),L,W,R,a,M,
	  (ltfat_complex*)cout.data());  

  return octave_value (cout);
}