FED-STD 1016
shall be available for voice synthesis. Each of the fixed,
codes contains 60
ternary (i.e., either -1, 0, or 1 ) elements, representing information used to form the excitation for the
Linear Prediction Filter over a
period (i.e., 8,000 elements/s for 7.5 ins). The fixed,
codes, 512 overlapped codes of 60 elements each, are created from a 1,082
element "stochastic code book" as described below.
3.3.1
"Stochastic Code Book". The 1,082 element "stochastic code book" is defined by the following
FORTRAN computer program.
program
implicit none
integer M, L, MAXCODE, WIDTH, j, k
parameter
parameter
parameter
20)
real x( O: MAXCODE+l), THRESH
parameter
.2)
open
status='new')
do 50 k=O, MAXCODE, 2
call
do 20 j=O, 1
THRESH) then
= 0.0
se
=
end if
20
continue
50
continue
do 80 k=l,
WIDTH
write (10,90)
j=k,
80
continue
write (10,91)
j=MAXCODE/WIDTH*WIDTH+l, MAXCODE)
stop
generated'
90
`,'))
91
`,'))
end
subroutine
x2)
implicit none
r e a l xl, x2
i n t e g e r random, i, j
real f(2), fl, f2, s
10 do 30 i=l, 2
do 20 j=l, 4
f ( i ) = (float
+ 32768 ))/65535.
20
continue
30 continue
if(s
1.) goto 10
s=sqrt(-2.*slog(s)/s)
x2=f2*s
return
end