Lines Matching defs:peak

142   int ind1, ind2, peaks_ind, peak, max_ind;
162 peak = 0;
281 /* threshold value to qualify as a peak */
294 /* found a peak; store index into matrix */
310 /* found a peak; store index into matrix */
320 /* examine each peak */
323 peak = peaks[k];
325 /* compute four interpolated values around current peak */
326 IntrepolFilter(&CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+5)], &intrp_a);
327 IntrepolFilter(&CorrSurfPtr1[peak - 1 ], &intrp_b);
328 IntrepolFilter(&CorrSurfPtr1[peak ], &intrp_c);
329 IntrepolFilter(&CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+4)], &intrp_d);
332 corr = CorrSurfPtr1[peak];
338 /* determine where the peak sits and fill a 3x3 matrix around it */
339 row = peak / (PITCH_LAG_SPAN2+4);
340 lags1[k] = (double) ((peak - row * (PITCH_LAG_SPAN2+4)) + PITCH_MIN_LAG/2 - 4);
343 T[0][0] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+5)];
344 T[2][0] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+4)];
346 T[0][2] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+4)];
347 T[2][2] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+5)];
356 IntrepolFilter(&CorrSurfPtr1[peak - 2*(PITCH_LAG_SPAN2+5)], &T[0][0]);
357 IntrepolFilter(&CorrSurfPtr1[peak - (2*PITCH_LAG_SPAN2+9)], &T[2][0]);
361 T[1][0] = CorrSurfPtr1[peak - (2*PITCH_LAG_SPAN2+9)];
362 T[0][1] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+5)];
363 T[2][1] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+4)];
368 IntrepolFilter(&CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+6)], &T[0][0]);
371 IntrepolFilter(&CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+3)], &T[0][2]);
373 T[1][0] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+5)];
374 T[0][1] = CorrSurfPtr1[peak - 1];
376 T[1][2] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+4)];
381 IntrepolFilter(&CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+4)], &T[2][0]);
384 IntrepolFilter(&CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+5)], &T[2][2]);
385 T[1][0] = CorrSurfPtr1[peak - (PITCH_LAG_SPAN2+4)];
387 T[2][1] = CorrSurfPtr1[peak + 1];
388 T[1][2] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+5)];
395 IntrepolFilter(&CorrSurfPtr1[peak + 2*(PITCH_LAG_SPAN2+4)], &T[0][2]);
396 IntrepolFilter(&CorrSurfPtr1[peak + (2*PITCH_LAG_SPAN2+9)], &T[2][2]);
398 T[0][1] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+4)];
399 T[2][1] = CorrSurfPtr1[peak + (PITCH_LAG_SPAN2+5)];
400 T[1][2] = CorrSurfPtr1[peak + (2*PITCH_LAG_SPAN2+9)];
404 /* 2D parabolic interpolation gives more accurate lags and peak value */
408 /* determine the highest peak, after applying a bias towards short lags */
414 peak = k;
418 lags1[peak] *= 2.0;
419 lags2[peak] *= 2.0;
421 if (lags1[peak] < (double) PITCH_MIN_LAG) lags1[peak] = (double) PITCH_MIN_LAG;
422 if (lags2[peak] < (double) PITCH_MIN_LAG) lags2[peak] = (double) PITCH_MIN_LAG;
423 if (lags1[peak] > (double) PITCH_MAX_LAG) lags1[peak] = (double) PITCH_MAX_LAG;
424 if (lags2[peak] > (double) PITCH_MAX_LAG) lags2[peak] = (double) PITCH_MAX_LAG;
426 /* store lags of highest peak in output array */
427 lags[0] = lags1[peak];
428 lags[1] = lags1[peak];
429 lags[2] = lags2[peak];
430 lags[3] = lags2[peak];
443 /* store lags of highest peak in output array */