语音压缩

开发平台：

Unix_Linux

pdelay.f：源码内容

							c==========================================================================
c
c ROUTINE
c		pitch (main)
c
c FUNCTION
c		 
c		generate pitch delay code book for CELP coder
c
c SYNOPSIS
c		program pitch
c
c
c==========================================================================
c
c DESCRIPTION
c
c	Generate pitch delay code book.
c
c==========================================================================
c	
c REFERENCES
c
c
c==========================================================================
c 
c FILES
c
c	The data is output in file "pdelay.h"
c
c**************************************************************************
c
	program pitch
c
	implicit undefined(a-z)
	include 'ccsub.h'
convex	#include "ccsub.h"
	real delay(0:maxpd-1)
	integer i
c
c			*open file for code book data
	open(unit=5, file='pdelay.h', status='new', err=999)
	goto 10
999	   stop ' Problem with file "pdelay.h"'
c
c			*write samples to file (pdelay.h)
10	continue
	do 20 i = 0, 18-1
20	   delay(i) = 20.0 + (1./3.)*i
	do 30 i = 0, 32-1
30	   delay(i+18) = 26.0 + 0.25*i
	do 40 i = 0, 138-1
40	   delay(i+50) = 34.0 + (1./3.)*i
	do 50 i = 0, 68-1
50	   delay(i+188) = 80.0 + i
c
	do 100 i = 0, 255
100	   write (5, 110) delay(i)
110	format(1x, f12.5)
c
	stop 'pdelay.h generated'
	end
	    

						