1e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/* 2e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Copyright 2003-2010, VisualOn, Inc. 3e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 4e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Licensed under the Apache License, Version 2.0 (the "License"); 5e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** you may not use this file except in compliance with the License. 6e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** You may obtain a copy of the License at 7e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 8e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** http://www.apache.org/licenses/LICENSE-2.0 9e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 10e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Unless required by applicable law or agreed to in writing, software 11e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** distributed under the License is distributed on an "AS IS" BASIS, 12e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** See the License for the specific language governing permissions and 14e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** limitations under the License. 15e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard */ 16e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 17e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/*********************************************************************** 18e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* File: lag_wind.c * 19e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 20e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* Description: Lag_windows on autocorrelations * 21e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* r[i] *= lag_wind[i] * 22e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 23e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard************************************************************************/ 24e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 25e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "typedef.h" 26e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "basic_op.h" 27e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "oper_32b.h" 28e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "lag_wind.tab" 29e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 30e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 31e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Lag_window( 32e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word16 r_h[], /* (i/o) : Autocorrelations (msb) */ 33e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word16 r_l[] /* (i/o) : Autocorrelations (lsb) */ 34e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ) 35e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 36e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word32 i; 37e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word32 x; 38e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 39e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard for (i = 1; i <= M; i++) 40e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard { 41e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard x = Mpy_32(r_h[i], r_l[i], volag_h[i - 1], volag_l[i - 1]); 42e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard r_h[i] = x >> 16; 43e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard r_l[i] = (x & 0xffff)>>1; 44e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard } 45e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard return; 46e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 47e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 48e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 49e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 50