1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
/* FFNet_PatternList_Categories.cpp
*
* Copyright (C) 1994-2019 David Weenink
*
* This code 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 2 of the License, or (at
* your option) any later version.
*
* This code 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 this work. If not, see <http://www.gnu.org/licenses/>.
*/
/*
djmw 20020712 GPL header.
djmw 20020910 changes.
djmw 20030701 Removed non-GPL minimizations.
djmw 20041118 Added FFNet_PatternList_Categories_getCosts.
*/
#include "FFNet_ActivationList_Categories.h"
#include "FFNet_PatternList_Categories.h"
#include "FFNet_PatternList_ActivationList.h"
static void _FFNet_PatternList_Categories_checkDimensions (FFNet me, PatternList p, Categories c) {
Melder_require (my numberOfInputs == p -> nx,
U"The PatternList and the FFNet do not match.\nThe number of colums in the PatternList should equal the number of inputs in the FFNet.");
Melder_require (p -> ny == c->size,
U"The PatternList and the categories do not match.\nThe number of rows in the PatternList should equal the number of categories.");
Melder_require (_PatternList_checkElements (p),
U"All PatternList elements should be in the interval [0, 1].\nYou could use \"Formula...\" to scale the PatternList values first.");
}
double FFNet_PatternList_Categories_getCosts_total (FFNet me, PatternList p, Categories c, int costFunctionType) {
try {
_FFNet_PatternList_Categories_checkDimensions (me, p, c);
autoActivationList activation = FFNet_Categories_to_ActivationList (me, c);
return FFNet_PatternList_ActivationList_getCosts_total (me, p, activation.get(), costFunctionType);
} catch (MelderError) {
return undefined;
}
}
double FFNet_PatternList_Categories_getCosts_average (FFNet me, PatternList p, Categories c, int costFunctionType) {
const double costs = FFNet_PatternList_Categories_getCosts_total (me, p, c, costFunctionType);
return ( isundef (costs) ? undefined : costs / p -> ny );
}
void FFNet_PatternList_Categories_learnSD (FFNet me, PatternList p, Categories c, integer maxNumOfEpochs, double tolerance, double learningRate, double momentum, int costFunctionType) {
_FFNet_PatternList_Categories_checkDimensions (me, p, c);
autoActivationList activation = FFNet_Categories_to_ActivationList (me, c);
double min, max;
Matrix_getWindowExtrema (p, 0, 0, 0, 0, & min, & max);
FFNet_PatternList_ActivationList_learnSD (me, p, activation.get(), maxNumOfEpochs, tolerance, learningRate, momentum, costFunctionType);
}
void FFNet_PatternList_Categories_learnSM (FFNet me, PatternList p, Categories c, integer maxNumOfEpochs, double tolerance, int costFunctionType) {
_FFNet_PatternList_Categories_checkDimensions (me, p, c);
autoActivationList activation = FFNet_Categories_to_ActivationList (me, c);
double min, max;
Matrix_getWindowExtrema (p, 0, 0, 0, 0, & min, & max);
FFNet_PatternList_ActivationList_learnSM (me, p, activation.get(), maxNumOfEpochs, tolerance, costFunctionType);
}
autoCategories FFNet_PatternList_to_Categories (FFNet me, PatternList thee, int labeling) {
try {
Melder_require (my outputCategories,
U"The FFNet has no output categories.");
Melder_require (my numberOfInputs == thy nx,
U"The number of colums in the PatternList (", thy nx, U") should equal the number of inputs in the FFNet (", my numberOfInputs, U").");
Melder_require (_PatternList_checkElements (thee),
U"All PatternList elements should be in the interval [0, 1].\nYou could use \"Formula...\" to scale the PatternList values first.");
autoCategories him = Categories_create ();
for (integer k = 1; k <= thy ny; k ++) {
FFNet_propagate (me, thy z.row (k), nullptr);
const integer index = FFNet_getWinningUnit (me, labeling);
autoSimpleString item = Data_copy (my outputCategories->at [index]);
his addItem_move (item.move());
}
return him;
} catch (MelderError) {
Melder_throw (me, U": no Categories created.");
}
}
/* End of file FFNet_PatternList_Categories.cpp */
|
