autoCollection FFNet_createIrisExample (long numberOfHidden1, long numberOfHidden2) {
try {
autoCollection c = Collection_create (classDaata, 3);
autoCategories uniq = Categories_sequentialNumbers (3);
autoFFNet me = FFNet_create (4, numberOfHidden1, numberOfHidden2, 3, 0);
FFNet_setOutputCategories (me.peek(), uniq.peek());
autostring32 name = FFNet_createNameFromTopology (me.peek());
Thing_setName (me.peek(), name.peek());
Collection_addItem_move (c.peek(), me.move());
autoTableOfReal iris = TableOfReal_createIrisDataset ();
/*
* Scale data to interval [0-1]
*/
for (long i = 1; i <= 150; i++) {
for (long j = 1; j <= 4; j++) {
iris -> data[i][j] /= 10.0;
}
}
autoPattern ap;
autoCategories ac;
TableOfReal_to_Pattern_and_Categories (iris.peek(), 0, 0, 0, 0, & ap, & ac);
Thing_setName (ap.peek(), U"iris");
Thing_setName (ac.peek(), U"iris");
Collection_addItem_move (c.peek(), ap.move());
Collection_addItem_move (c.peek(), ac.move());
return c;
} catch (MelderError) {
Melder_throw (U"Iris example not created.");
}
}
Collection FFNet_createIrisExample (long numberOfHidden1, long numberOfHidden2)
{
TableOfReal iris = NULL;
Collection c = NULL;
FFNet me = NULL;
Pattern thee = NULL;
Categories him = NULL, uniq = NULL;
long i, j;
MelderString ffnetname = { 0 };
if (! (c = Collection_create (classData, 3)) ||
! (uniq = Categories_sequentialNumbers (3)) ||
! (me = FFNet_create (4, numberOfHidden1, numberOfHidden2, 3, 0)) ||
! FFNet_setOutputCategories (me, uniq) ||
! Collection_addItem (c, me) ||
! (iris = TableOfReal_createIrisDataset ()) ||
! TableOfReal_to_Pattern_and_Categories (iris, 0, 0, 0, 0, &thee, &him) ||
! Collection_addItem (c, thee) ||
! Collection_addItem (c, him)) goto end;
/*
Scale data to interval [0-1]
*/
for (i = 1; i <= 150; i++)
{
for (j = 1; j <= 4; j++) thy z[i][j] /= 10.0;
}
FFNet_createNameFromTopology (me, &ffnetname);
Thing_setName (me, ffnetname.string);
Thing_setName (thee, L"iris");
Thing_setName (him, L"iris");
MelderString_free (&ffnetname);
end:
forget (uniq); forget (iris);
if (! Melder_hasError()) return c;
forget (c);
return NULL;
}
static char32 const *DRAW_BUTTON = U"Draw -";
static char32 const *MODIFY_BUTTON = U"Modify -";
static char32 const *EXTRACT_BUTTON = U"Extract -";
/**************** New FFNet ***************************/
FORM (NEW1_FFNet_create, U"Create FFNet", U"Create FFNet...") {
WORDVAR (name, U"Name", U"4-3")
NATURALVAR (numberOfInputs, U"Number of inputs", U"4")
NATURALVAR (numberOfOutputs, U"Number of outputs", U"3")
INTEGERVAR (numberOfUnits1, U"Number of units in hidden layer 1", U"0")
INTEGERVAR (numberOfUnits2, U"Number of units in hidden layer 2", U"0")
OK
DO
CREATE_ONE
autoFFNet result = FFNet_create (numberOfInputs, numberOfUnits1, numberOfUnits2, numberOfOutputs, false);
CREATE_ONE_END (name);
}
FORM (NEWMANY_FFNet_createIrisExample, U"Create iris example", U"Create iris example...") {
LABEL (U"", U"For the feedforward neural net we need to know the:")
INTEGERVAR (numberOfUnits1, U"Number of units in hidden layer 1", U"0")
INTEGERVAR (numberOfUnits2, U"Number of units in hidden layer 2", U"0")
OK
DO
autoCollection result = FFNet_createIrisExample (numberOfUnits1, numberOfUnits2);
praat_new (result.move());
END }
FORM (NEW1_FFNet_create_linearOutputs, U"Create FFNet", U"Create FFNet (linear outputs)...") {
WORDVAR (name, U"Name", U"4-3")
}
static void FFNet_create_checkCommonFields (void *dia, long *numberOfInputs, long *numberOfOutputs,
long *numberOfHidden1, long *numberOfHidden2) {
FFNet_create_checkCommonFields_inputOutput (dia, numberOfInputs, numberOfOutputs);
FFNet_create_checkCommonFields_hidden (dia, numberOfHidden1, numberOfHidden2);
}
FORM (FFNet_create, L"Create FFNet", L"Create FFNet...")
WORD (L"Name", L"4-3")
FFNet_create_addCommonFields (dia);
OK
DO
long numberOfInputs, numberOfOutputs, numberOfHidden1, numberOfHidden2;
FFNet_create_checkCommonFields (dia, &numberOfInputs, &numberOfOutputs, &numberOfHidden1, &numberOfHidden2);
autoFFNet thee = FFNet_create (numberOfInputs, numberOfHidden1, numberOfHidden2, numberOfOutputs, 0);
praat_new (thee.transfer(), GET_STRING (L"Name"));
END
FORM (FFNet_create_linearOutputs, L"Create FFNet", L"Create FFNet (linear outputs)...")
WORD (L"Name", L"4-3L")
FFNet_create_addCommonFields (dia);
OK
DO
long numberOfInputs, numberOfOutputs, numberOfHidden1, numberOfHidden2;
FFNet_create_checkCommonFields (dia, &numberOfInputs, &numberOfOutputs, &numberOfHidden1, &numberOfHidden2);
autoFFNet thee = FFNet_create (numberOfInputs, numberOfHidden1, numberOfHidden2, numberOfOutputs, 1);
praat_new (thee.transfer(), GET_STRING (L"Name"));
END
FORM (FFNet_createIrisExample, L"Create iris example", L"Create iris example...")
static void drawFFNet_345 (Graphics g)
{
autoFFNet me = FFNet_create (3, 4, 0, 5, 0);
FFNet_drawTopology (me.peek(), g);
}
static void drawFFNet_345 (Graphics g)
{
autoFFNet me = FFNet_create (3, 4, 0, 5, false);
FFNet_drawTopology (me.get(), g);
}
