#include "iostream.h" #include "math.h" void asub(double xin[], double xout[]) { int i,n = 20; xout[1] = xin[1] + 2…
Sun+Xin 源代码
汇集 Sun+Xin 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; proced…
implementation //PROGRAM D1R9 //Driver for routine SPARSE uses unit2; {$R *.DFM} procedure ASUB(XIN:array of real;var XO…
# include # include # define R 12 void main() { char xin[2*R+1][2*R+1]; int t,x,y; double d; for(x=0;x
FUNCTION logf (sysclk, reset, xin[width..1]) RETURNS (logout[width..1]); PARAMETERS ( width = 16, exact = 6, base = "t…
implementation //PROGRAM D1R9 //Driver for routine SPARSE uses unit2; {$R *.DFM} procedure ASUB(XIN:array of real;var XO…
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; proced…
function [f0] = pitch(len,sr,xin) % Copyright (c) 1995 Philipos C. Loizou % xin=hamming(len).*xin; cn1=rceps(xin); LF…
function [f0] = pitchaut(len,sr,xin) % Pitch estimation using the autocorrelation method % Copyright (c) 1995 Philipos C. Lo…
function [f0] = pitch3(len,sr,xin) xin=hamming(len).*xin; cn1=rceps(xin); LF=floor(sr/500); HF=floor(sr/70); cn=cn…