Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
lpc.m
Package: 语音识别.rar [view]
Upload User: doudz874
Upload Date: 2007-03-30
Package Size: 792k
Code Size: 1k
Category:
Speech/Voice recognition/combine
Development Platform:
Matlab
- function [A,C,F]=lpc(s);
- P=12;
- N=160;
- L=16;
- sw=s.*hamming(N);
- %A
- for i=1:P+1
- R(i)=0;
- for n=1:N-i
- R(i)=R(i)+sw(n+i-1)*sw(n);
- end;
- end;
- k(1)=-R(2)/R(1);
- flag=1;
- a(flag,1)=k(1);
- sigma(1)=(1-k(1)^2)*R(1);
- for m=2:P
- k(m)=-R(m+1);
- for i=1:m-1
- k(m)=k(m)-a(flag,i)*R(abs(i-m)+1);
- end;
- k(m)=k(m)/sigma(m-1);
- flag=~(flag-1)+1;
- a(flag,m)=k(m);
- for i=1:m-1
- a(flag,i)=a(~(flag-1)+1,i)+k(m)*a(~(flag-1)+1,m-i);
- end;
- sigma(m)=(1-k(m)^2)*sigma(m-1);
- end;
- A=a(flag,:);
- %C
- %ha(1)=0;
- %ha(2)=A(1);
- %for n=3:P+1
- % ha(n)=A(n-1);
- % for i=1:n-2
- % ha(n)=ha(n)-i/(n-1)*ha(i+1)*a(n-i);
- % end;
- %end;
- C(1)=-A(1);
- for n=2:P
- C(n)=-A(n);
- for m=1:n-1
- C(n)=C(n)-(1-m/n)*A(m)*C(n-m);
- end;
- end;
- for n=P+1:L
- C(n)=0;
- for m=1:P
- C(n)=C(n)-(1-m/n)*A(m)*C(n-m);
- end;
- end;
- spec=fft(sw,512);
- scep=log(abs(spec));
- E=ifft(scep,512);
- F=real(E(1:16)');
- %for i=1:L
- % C(i)=ha(i+1);%%%%%%%%
- %end;