static void create_net_PROC(void)
{
int create=1;
BN_ERROR = 0;
if(krui_getNoOfUnits() != 0) {
if(! ui_confirmYes("Create will erase current network. Create?")) {
create = 0;
}
}
if(create && (PLANE_length != 0)) {
krui_deleteNet();
calculate_first_snns_unit_no_of_plane();
create_snns_unit();
make_links();
krui_setLearnFunc("BPTT");
krui_setUpdateFunc("Hopfield_Synchronous");
krui_setInitialisationFunc("ClippHebb");
ui_NumberOfLearnParamsChanged();
ui_NumberOfUpdateParamsChanged();
ui_NumberOfInitParamsChanged();
bn_basics_refresh();
}/* if */
}
int snns_deleteNet(stEval *args, stEval *result, void *instance){
krui_deleteNet();
return EC_OK;
}
void quit(void)
{
krui_deleteNet();
exit( 0 );
} /* end of quit */