kopia lustrzana https://github.com/ag1le/morse-wip
78 wiersze
2.5 KiB
C
78 wiersze
2.5 KiB
C
// ----------------------------------------------------------------------------
|
|
// ptrans.c -- bayesian morse code decoder
|
|
//
|
|
// Copyright (C) 2012-2014
|
|
// (C) Mauri Niininen, AG1LE
|
|
//
|
|
// This file is part of Bayesian Morse code decoder
|
|
|
|
// bmorse is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// bmorse is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with bmorse. If not, see <http://www.gnu.org/licenses/>.
|
|
// ----------------------------------------------------------------------------
|
|
|
|
#include "bmorse.h"
|
|
|
|
|
|
|
|
int ptrans_(integer *kelem, integer *irate, integer *lambda, integer *ilrate, real *ptrx, real *psum, real *pin, integer *n)
|
|
{
|
|
static real pelem, prate;
|
|
|
|
|
|
/* THIS FUNCTION SUBROUTINE RETURNS THE PATH CONDITIONAL TRANSITION */
|
|
/* PROBABILITIES TO EACH ALLOWABLE STATE N. */
|
|
/* VARIABLES: */
|
|
/* KELEM- INPUT CURRENT ELEMENT STATE */
|
|
/* IRATE- INPUT CURRENT DATA RATE STATE */
|
|
/* LAMBDA- INPUT IDENTITY OF CURRENT LTR STATE */
|
|
/* PTRX- INPUT KEYSTATE TRANSITION PROBABILITY */
|
|
/* ELEMTR- ELEMENT TRANSITION PROBABILITY MATRIX */
|
|
|
|
/* FUNCTION SUBROTINE USED: */
|
|
/* SPDTR- RETURNS DATA RATE TRANSITION PROBS,CONDITIONED ON CURRENT SPACE TYPE. */
|
|
|
|
/* IF THE SAVED ELEMENT AND THE ELEMENT OF THE STATE */
|
|
/* N TO WHICH THE PATH IS BEING EXTENDED ARE THE */
|
|
/* SAME, THEN THE STATE TRANS PROB IS SIMPLY */
|
|
/* KEYSTATE TRANS PROB: */
|
|
|
|
/* Parameter adjustments */
|
|
--pin;
|
|
|
|
/* Function Body */
|
|
if (*kelem != blklam.ilami[blklam.ielmst[*lambda - 1] - 1]) {
|
|
goto L100;
|
|
}
|
|
pin[*n] = *ptrx;
|
|
|
|
/* HOWEVER, IF CURRENT DATA RATE STATE = 3, THEN TRANS PROB = 0 ... WHY ? */
|
|
if (*irate != 3) {
|
|
pin[*n] = 0.f;
|
|
}
|
|
goto L200;
|
|
|
|
/* OTHERWISE: */
|
|
/* OBTAIN ELEM TRANS PROBS TABLE: */
|
|
|
|
L100:
|
|
pelem = blkelm.elemtr[blklam.ielmst[*lambda - 1] + (*kelem << 4) - 17];
|
|
/* NEXT COMPUTE ELEM-CONDITIONAL SPEED TRANS PROB: */
|
|
prate = spdtr_(irate, ilrate, kelem, &blklam.ilami[blklam.ielmst[*lambda - 1] - 1]);
|
|
/* TRANS IS THE PRODUCT: */
|
|
pin[*n] = (1.f - *ptrx) * pelem * prate;
|
|
L200:
|
|
*psum += pin[*n];
|
|
return 0;
|
|
} /* ptrans_ */
|
|
|