/************************************************************************************ This file is part of SnnsCLib, a fork of the kernel and parts of the gui of the Stuttgart Neural Network Simulator (SNNS), version 4.3. The file's original version is part of SNNS 4.3. It's source code can be found at http://www.ra.cs.uni-tuebingen.de/SNNS/ SNNS 4.3 is under the license LGPL v2. We note that source code files of SNNS 4.3 state as version "4.2". Base of this fork is SNNS 4.3 with a reverse-applied python patch (see http://developer.berlios.de/projects/snns-dev/). SnnsCLib was developed in 2010 by Christoph Bergmeir under supervision of José M. Benítez, both affiliated to DiCITS Lab, Sci2s group, DECSAI, University of Granada Changes done to the original code were performed with the objective to port it from C to C++ and to encapsulate all code in one class named SnnsCLib. Changes in header files mainly include: * removed all static keywords * moved initializations of variables to the constructor of SnnsCLib Changes in cpp code files mainly include: * changed file ending from .c to .cpp * removed all SNNS internal includes and only include SnnsCLib * static variables within functions were turned into member variables of SnnsCLib * function declarations were changed to method declarations, i.e. "SnnsCLib::.." was added * calls to the function table are now "C++-style", using the "this"-pointer License of SnnsCLib: This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ************************************************************************************/ /***************************************************************************** FILE : $Source: /projects/higgs1/SNNS/CVS/SNNS/xgui/sources/bn_art1.c,v $ SHORTNAME : bn_art1 SNNS VERSION : 4.2 PURPOSE : Creates the ART1-window and ART1 networks. NOTES : AUTHOR : Kai-Uwe Herrmann DATE : 15.1.1993 CHANGED BY : RCS VERSION : $Revision: 2.10 $ LAST CHANGE : $Date: 1998/03/03 14:09:38 $ Copyright (c) 1990-1995 SNNS Group, IPVR, Univ. Stuttgart, FRG Copyright (c) 1996-1998 SNNS Group, WSI, Univ. Tuebingen, FRG ******************************************************************************/ /* begin private definition section */ /* Definition of the Output Function */ #define ART1_OUTFUNC "Out_Identity" /* Definition of the Activationfunctions */ #define ART1_ACTF_INP "Act_Identity" #define ART1_ACTF_CMP "Act_at_least_2" #define ART1_ACTF_REC "Act_Identity" #define ART1_ACTF_DEL "Act_at_least_2" #define ART1_ACTF_D "Act_at_least_1" #define ART1_ACTF_RST "Act_at_least_1" #define ART1_ACTF_G1 "Act_at_least_2" #define ART1_ACTF_RI "Act_Product" #define ART1_ACTF_RC "Act_Identity" #define ART1_ACTF_RG "Act_less_than_0" #define ART1_ACTF_CL "Act_at_least_1" #define ART1_ACTF_NCL "Act_ART1_NC" #define ART1_ACTF_RHO "Act_Identity" #define ART1_ACTF_G2 "Act_at_most_0" /* Site names */ #define ART1_SITE_NAME_RST_SELF "Art1_Site_Rst_Self" #define ART1_SITE_NAME_RST_SIGNAL "Art1_Site_Rst_Signal" #define ART1_SITE_NAME_REC_G1 "Art1_Site_Rec_G1" #define ART1_SITE_NAME_INP_G1 "Art1_Site_Inp_G1" #define ART1_SITE_NAME_INP_RI "Art1_Site_Inp_RI" #define ART1_SITE_NAME_RHO_RI "Art1_Site_Rho_RI" /* Site function names */ #define ART1_SITE_FUNC_RST_SELF "Site_WeightedSum" #define ART1_SITE_FUNC_RST_SIGNAL "Site_at_least_2" #define ART1_SITE_FUNC_REC_G1 "Site_at_most_0" #define ART1_SITE_FUNC_INP_G1 "Site_at_least_1" #define ART1_SITE_FUNC_INP_RI "Site_WeightedSum" #define ART1_SITE_FUNC_RHO_RI "Site_WeightedSum" /* Learning function name */ #define ART1_LEARN_FUNC_NAME "ART1" /* Update function name */ #define ART1_UPDATE_FUNC_NAME "ART1_Stable" /* Macros */ #define FOR_ALL_ART1_INP_UNITS(x) for (x = 1; x <= IUnits; x++) #define FOR_ALL_ART1_CMP_UNITS(x) for (x = IUnits+1; x <= 2*IUnits; x++) #define FOR_ALL_ART1_REC_UNITS(x) for (x = 2*IUnits+1; x <= 2*IUnits + CUnits; x++) #define FOR_ALL_ART1_DEL_UNITS(x) for (x = 2*IUnits+CUnits+1; x <= 2*IUnits+2*CUnits; x++) #define FOR_ALL_ART1_RST_UNITS(x) for (x = 2*IUnits+2*CUnits+4; x <= 2*IUnits+3*CUnits+3; x++) #define POS_SIGN(x) (((x) > 0) ? 1 : 0) #define NO_OF_COLS(units,rows) ((int) (units/rows) + POS_SIGN(units % rows)) #define F1_COLS(units,rows) NO_OF_COLS(units, rows) #define F2_COLS(units,rows) NO_OF_COLS(units, rows) #define D_UNIT(y) 2*IUnits + 2*CUnits + y #define SPECIAL_UNITS 2*IUnits + 3*CUnits + 4 #define G1_UNIT SPECIAL_UNITS #define RI_UNIT SPECIAL_UNITS + 1 #define RC_UNIT SPECIAL_UNITS + 2 #define RG_UNIT SPECIAL_UNITS + 3 #define CL_UNIT SPECIAL_UNITS + 4 #define NCL_UNIT SPECIAL_UNITS + 5 #define RHO_UNIT SPECIAL_UNITS + 6 #define G2_UNIT SPECIAL_UNITS + 7 /* checks whether value is not equal to KRERR_NO_ERROR and if so, returns */ #define CHECK_RETURN(ret_code) if (ret_code != KRERR_NO_ERROR) \ return (ret_code) #include "SnnsCLib.h" /***************************************************************************** FUNCTION : bn_art1_createNet PURPOSE : Generation of the ART1 network using SNNS kernel functions. NOTES : UPDATE : 20.1.1993 ******************************************************************************/ krui_err SnnsCLib::bn_art1_createNet (int IUnits, int IRow, int CUnits, int CRow) { krui_err ret_code = KRERR_NO_ERROR; int i, j, unit_no; int ICol, CCol, Row, Col, NoOfUnitsPerRow; int RowOffset, ColOffset; struct PosType unit_pos; unit_pos.z = 0; char name[100]; ICol = NoOfUnitsPerRow = ((int) (IUnits/IRow) + POS_SIGN(IUnits % IRow)); /* Create Input Units */ Col = 1; Row = 1; RowOffset = 4; ColOffset = 1; for (i = 1; i <= IUnits; i++) { unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, INPUT ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc(unit_no, const_cast(ART1_ACTF_INP)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc(unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); sprintf (name,"%s%d","inp",i); ret_code = krui_setUnitName (unit_no, name); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); if ( (ICol == Col) || ((IUnits%IRow != 0) && (Row != IRow) && ((IUnits-i)%(IRow-Row) == 0) && (Col == ICol-1) ) ) { Row++; Col = 1; } else { Col++; } /*if*/ } /* Create Comparison Layer Units */ RowOffset = 4; ColOffset = ICol + 2; Row = 1; Col = 1; for (i = 1; i <= IUnits; i++) { unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_CMP)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); sprintf (name,"%s%d","cmp",i); ret_code = krui_setUnitName (unit_no, name); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); if ( (ICol == Col) || ((IUnits%IRow != 0) && (Row != IRow) && ((IUnits-i)%(IRow-Row) == 0) && (Col == ICol-1) ) ) { Row++; Col = 1; } else { Col++; } /*if*/ } CCol = NoOfUnitsPerRow = ((int) (CUnits/CRow) + POS_SIGN(CUnits % CRow)); /* Create Recognition layer units */ RowOffset = 4; ColOffset = 2 * ICol + 5; Row = 1; Col = 1; unit_pos.x = 10; for (i = 1; i <= CUnits; i++) { unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, SPECIAL ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_REC)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); sprintf (name,"%s%d","rec",i); ret_code = krui_setUnitName (unit_no, name); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); if ( (CCol == Col) || ((CUnits%CRow != 0) && (Row != CRow) && ((CUnits-i)%(CRow-Row) == 0) && (Col == CCol-1) ) ) { Row++; Col = 1; } else { Col++; } /*if*/ } /* Create Delay layer units that correspond to a recognition unit */ RowOffset = 4; ColOffset = 2 * ICol + CCol + 6; Row = 1; Col = 1; for (i = 1; i <= CUnits; i++) { unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_DEL)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); sprintf (name,"%s%d","del",i); ret_code = krui_setUnitName (unit_no, name); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); if ( (CCol == Col) || ((CUnits%CRow != 0) && (Row != CRow) && ((CUnits-i)%(CRow-Row) == 0) && (Col == CCol-1) ) ) { Row++; Col = 1; } else { Col++; } /*if*/ } /* Create d1 unit */ RowOffset = 1; ColOffset = 2 * ICol + CCol + 6; Row = 1; Col = 1; unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_D)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("d1")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); /* Create d2 unit */ RowOffset = 1; ColOffset = 2 * ICol + 2* CCol + 7; Row = 1; Col = 1; unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_D)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("d2")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); /* Create d3 unit */ RowOffset = 1; ColOffset = 2 * ICol + 3 * CCol + 9; Row = 1; Col = 1; unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_D)); CHECK_RETURN (ret_code); ret_code = krui_setUnitOutFunc (unit_no, const_cast(ART1_OUTFUNC)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("d3")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); /* Create Reset layer units */ RowOffset = 4; ColOffset = 2*ICol + 2*CCol + 7; Row = 1; Col = 1; /* Create Site Table Entries for Reset layer units */ ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_RST_SELF), const_cast(ART1_SITE_FUNC_RST_SELF)); CHECK_RETURN (ret_code); ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_RST_SIGNAL), const_cast(ART1_SITE_FUNC_RST_SIGNAL)); CHECK_RETURN (ret_code); for (i = 1; i <= CUnits; i++) { unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_RST)); CHECK_RETURN (ret_code); sprintf (name,"%s%d","rst",i); ret_code = krui_setUnitName (unit_no, name); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); if ( (CCol == Col) || ((CUnits%CRow != 0) && (Row != CRow) && ((CUnits-i)%(CRow-Row) == 0) && (Col == CCol-1) ) ) { Row++; Col = 1; } else { Col++; } /*if*/ ret_code = krui_setCurrentUnit (unit_no); CHECK_RETURN (ret_code); /* Add the two Sites */ ret_code = krui_addSite (const_cast(ART1_SITE_NAME_RST_SELF)); CHECK_RETURN (ret_code); ret_code = krui_addSite (const_cast(ART1_SITE_NAME_RST_SIGNAL)); CHECK_RETURN (ret_code); } /* Create Gain1 unit */ /* Create Site Table Entries for the two Sites */ ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_REC_G1), const_cast(ART1_SITE_FUNC_REC_G1)); CHECK_RETURN (ret_code); ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_INP_G1), const_cast(ART1_SITE_FUNC_INP_G1)); CHECK_RETURN (ret_code); ColOffset = ICol + 2 + (int) ICol/2; RowOffset = 1; Col = 1; Row = 1; unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_G1)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("g1")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ret_code = krui_setCurrentUnit (unit_no); CHECK_RETURN (ret_code); /* Add the two Sites */ ret_code = krui_addSite (const_cast(ART1_SITE_NAME_INP_G1)); CHECK_RETURN (ret_code); ret_code = krui_addSite (const_cast(ART1_SITE_NAME_REC_G1)); CHECK_RETURN (ret_code); ColOffset = 1; RowOffset = 4 + IRow + 2; Col = 1; Row = 1; /* Create ResetI unit */ ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_INP_RI), const_cast(ART1_SITE_FUNC_INP_RI)); CHECK_RETURN (ret_code); ret_code = krui_createSiteTableEntry (const_cast(ART1_SITE_NAME_RHO_RI), const_cast(ART1_SITE_FUNC_RHO_RI)); CHECK_RETURN (ret_code); unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_RI)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("ri")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ret_code = krui_setCurrentUnit (unit_no); CHECK_RETURN (ret_code); /* Add the two Sites */ ret_code = krui_addSite (const_cast(ART1_SITE_NAME_INP_RI)); CHECK_RETURN (ret_code); ret_code = krui_addSite (const_cast(ART1_SITE_NAME_RHO_RI)); CHECK_RETURN (ret_code); ColOffset = ICol + 2; RowOffset = 4 + IRow + 2; Col = 1; Row = 1; /* Create ResetC unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_RC)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("rc")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ColOffset = 2 * ICol + 5; RowOffset = 4 + CRow + 2; Col = 1; Row = 1; /* Create Reset general unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_RG)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("rg")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ColOffset = 2 * ICol + 3 * CCol + 9; RowOffset = 4 + (int) CRow/3; Row = 1; Col = 1; /* Create Classified unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_CL)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("cl")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ColOffset = 2 * ICol + 3 * CCol + 9; RowOffset = 4 + 2 * (int) CRow/3; Row = 1; Col = 1; /* Create Not Classifiable unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_NCL)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("nc")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); ColOffset = 1; RowOffset = 4 + IRow + 4; Col = 1; Row = 1; /* Create RHO unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_RHO)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("rho")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); RowOffset = 1; ColOffset = 2 * ICol + 5; Row = 1; Col = 1; /* Create G2 unit */ unit_no = krui_createDefaultUnit(); if (unit_no < 0) CHECK_RETURN( unit_no ); ret_code = krui_setUnitTType( unit_no, HIDDEN ); CHECK_RETURN( ret_code ); ret_code = krui_setUnitActFunc (unit_no, const_cast(ART1_ACTF_G2)); CHECK_RETURN (ret_code); ret_code = krui_setUnitName (unit_no, const_cast("g2")); CHECK_RETURN (ret_code); unit_pos.x = Col + ColOffset; unit_pos.y = Row + RowOffset; krui_setUnitPosition( unit_no, &unit_pos ); /* Make Connections now */ /* Connections to comparison units */ FOR_ALL_ART1_CMP_UNITS (i) { ret_code = krui_setCurrentUnit (i); CHECK_RETURN( ret_code ); /* from input units */ ret_code = krui_createLink ((i-IUnits), 0.0); CHECK_RETURN( ret_code ); /* from delay units */ FOR_ALL_ART1_DEL_UNITS (j) { ret_code = krui_createLink (j,0.0); CHECK_RETURN (ret_code); } /* from g1 unit */ ret_code = krui_createLink (G1_UNIT, 0.0); } /* Connections to recognition units */ FOR_ALL_ART1_REC_UNITS (i) { ret_code = krui_setCurrentUnit (i); CHECK_RETURN (ret_code); /* from comparison units */ FOR_ALL_ART1_CMP_UNITS (j) { ret_code = krui_createLink (j,0.0); CHECK_RETURN (ret_code); } /* from reset units */ ret_code = krui_createLink ((i+2*CUnits+3), 0.0); CHECK_RETURN (ret_code); /* from reset general unit */ ret_code = krui_createLink (RG_UNIT, 0.0); CHECK_RETURN (ret_code); /* from gain 2 unit */ ret_code = krui_createLink (G2_UNIT, 0.0); CHECK_RETURN (ret_code); } /* Connections to delay units */ FOR_ALL_ART1_DEL_UNITS (i) { ret_code = krui_setCurrentUnit (i); CHECK_RETURN (ret_code); /* from recognition units */ ret_code = krui_createLink ((i-CUnits), 0.0); CHECK_RETURN (ret_code); } /* Connections to local reset units */ FOR_ALL_ART1_RST_UNITS (i) { ret_code = krui_setCurrentUnit (i); CHECK_RETURN (ret_code); /* from itself */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_RST_SELF)); CHECK_RETURN (ret_code); ret_code = krui_createLink (i, 0.0); CHECK_RETURN (ret_code); /* from delay units */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_RST_SIGNAL)); CHECK_RETURN (ret_code); ret_code = krui_createLink ((i-CUnits-3), 0.0); CHECK_RETURN (ret_code); /* from reset general unit */ ret_code = krui_createLink (RG_UNIT, 0.0); CHECK_RETURN (ret_code); } /* Connections to units d1-d3 */ /* d1 */ ret_code = krui_setCurrentUnit (D_UNIT (1)); CHECK_RETURN (ret_code); /* from all delay units */ FOR_ALL_ART1_DEL_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* d2 */ ret_code = krui_setCurrentUnit (D_UNIT (2)); CHECK_RETURN (ret_code); /* from d1 */ ret_code = krui_createLink (D_UNIT (1), 0.0); CHECK_RETURN (ret_code); /* d3 */ ret_code = krui_setCurrentUnit (D_UNIT (3)); CHECK_RETURN (ret_code); /* from d2 */ ret_code = krui_createLink (D_UNIT (2), 0.0); CHECK_RETURN (ret_code); /* connections to gain 1 unit */ ret_code = krui_setCurrentUnit (G1_UNIT); CHECK_RETURN (ret_code); /* from input units */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_INP_G1)); CHECK_RETURN (ret_code); FOR_ALL_ART1_INP_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* from recognition units */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_REC_G1)); CHECK_RETURN (ret_code); FOR_ALL_ART1_REC_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* connections to ResetI unit */ ret_code = krui_setCurrentUnit (RI_UNIT); CHECK_RETURN (ret_code); /* Site for input units */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_INP_RI)); CHECK_RETURN (ret_code); /* from input units */ FOR_ALL_ART1_INP_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* Site for Unit RHO */ ret_code = krui_setSite (const_cast(ART1_SITE_NAME_RHO_RI)); CHECK_RETURN (ret_code); /* from RHO unit */ ret_code = krui_createLink (RHO_UNIT, 0.0); CHECK_RETURN (ret_code); /* connections to ResetC unit */ ret_code = krui_setCurrentUnit (RC_UNIT); CHECK_RETURN (ret_code); /* from comparison units */ FOR_ALL_ART1_CMP_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* connections to reset general unit */ ret_code = krui_setCurrentUnit (RG_UNIT); CHECK_RETURN (ret_code); /* from ResetI unit */ ret_code = krui_createLink (RI_UNIT, 0.0); CHECK_RETURN (ret_code); /* from ResetC unit */ ret_code = krui_createLink (RC_UNIT, 0.0); CHECK_RETURN (ret_code); /* connections to Classified unit */ ret_code = krui_setCurrentUnit (CL_UNIT); CHECK_RETURN (ret_code); /* from d3 unit */ ret_code = krui_createLink (D_UNIT (3), 0.0); CHECK_RETURN (ret_code); /* from reset general unit */ ret_code = krui_createLink (RG_UNIT, 0.0); CHECK_RETURN (ret_code); /* from gain 2 unit */ ret_code = krui_createLink (G2_UNIT, 0.0); CHECK_RETURN (ret_code); /* connections to Not Classifiable unit */ ret_code = krui_setCurrentUnit (NCL_UNIT); CHECK_RETURN (ret_code); /* from local reset units */ FOR_ALL_ART1_RST_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /* connections to RHO unit */ ret_code = krui_setCurrentUnit (RHO_UNIT); CHECK_RETURN (ret_code); /* from itself */ ret_code = krui_createLink (RHO_UNIT, 0.0); CHECK_RETURN (ret_code); /* connections to G2 unit */ ret_code = krui_setCurrentUnit (G2_UNIT); CHECK_RETURN (ret_code); /* from input units */ FOR_ALL_ART1_INP_UNITS (j) { ret_code = krui_createLink (j, 0.0); CHECK_RETURN (ret_code); } /*FOR_ALL_ART1_INP_UNITS*/ /* set the update function */ ret_code = krui_setUpdateFunc (const_cast(ART1_UPDATE_FUNC_NAME)); CHECK_RETURN( ret_code ); /* set the learning function */ ret_code = krui_setLearnFunc (const_cast(ART1_LEARN_FUNC_NAME)); //ui_NumberOfLearnParamsChanged(); //ui_NumberOfUpdateParamsChanged(); return (ret_code); } /* bn_art1_createNet () */