comp_idgt_fac.cc

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

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


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

  ComplexMatrix coef = args(0).complex_matrix_value();
  ComplexMatrix gf = args(1).complex_matrix_value();
  const int L = args(2).int_value();
  const int a = args(3).int_value();
  const int M = args(4).int_value();
  const int N = L/a;
  const int R = gf.rows()*gf.columns()/L;
  const int W = coef.rows()*coef.columns()/(M*N*R);

  ComplexMatrix f(L,W);  
  
  idgt_fac((ltfat_complex*)coef.data(),(ltfat_complex*)gf.data(),L,W,R,a,M,
	  (ltfat_complex*)f.data());  

  return octave_value (f);
}