[PD-cvs] externals/ann/src ann_mlp.c,1.9,1.10

[Georg Holzmann]

Update of /cvsroot/pure-data/externals/ann/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12462

Modified Files:
	ann_mlp.c 
Log Message:
some more activation functions ...


Index: ann_mlp.c
===================================================================
RCS file: /cvsroot/pure-data/externals/ann/src/ann_mlp.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ann_mlp.c	23 Jul 2005 21:16:10 -0000	1.9
--- ann_mlp.c	24 Jul 2005 10:16:46 -0000	1.10
***************
*** 515,518 ****
--- 515,527 ----
  		if (strcmp(parametro->s_name, "FANN_SIGMOID_SYMMETRIC_STEPWISE")==0)
  			funzione = FANN_SIGMOID_SYMMETRIC_STEPWISE;
+     if (strcmp(parametro->s_name, "FANN_GAUSSIAN")==0)
+       funzione = FANN_GAUSSIAN;
+     if (strcmp(parametro->s_name, "FANN_GAUSSIAN_STEPWISE")==0)
+       funzione = FANN_GAUSSIAN_STEPWISE;
+     if (strcmp(parametro->s_name, "FANN_ELLIOT")==0)
+       funzione = FANN_ELLIOT;
+     if (strcmp(parametro->s_name, "FANN_ELLIOT_SYMMETRIC")==0)
+       funzione = FANN_ELLIOT_SYMMETRIC;
+     
  		fann_set_activation_function_output(x->ann, funzione);
  	} else
***************
*** 537,554 ****
  	if (argc>0) {
  		parametro = atom_gensym(argv);
! 		if (strcmp(parametro->s_name, "FANN_THRESHOLD")==0)
! 			funzione = FANN_THRESHOLD;
! 		if (strcmp(parametro->s_name, "FANN_THRESHOLD_SYMMETRIC")==0)
! 			funzione = FANN_THRESHOLD_SYMMETRIC;
! 		if (strcmp(parametro->s_name, "FANN_LINEAR")==0)
! 			funzione = FANN_LINEAR;
! 		if (strcmp(parametro->s_name, "FANN_SIGMOID")==0)
! 			funzione = FANN_SIGMOID;
! 		if (strcmp(parametro->s_name, "FANN_SIGMOID_STEPWISE")==0)
! 			funzione = FANN_SIGMOID_STEPWISE;
! 		if (strcmp(parametro->s_name, "FANN_SIGMOID_SYMMETRIC")==0)
! 			funzione = FANN_SIGMOID_SYMMETRIC;
! 		if (strcmp(parametro->s_name, "FANN_SIGMOID_SYMMETRIC_STEPWISE")==0)
! 			funzione = FANN_SIGMOID_SYMMETRIC_STEPWISE;
  		fann_set_activation_function_hidden(x->ann, funzione);
  	} else
--- 546,572 ----
  	if (argc>0) {
  		parametro = atom_gensym(argv);
!     if (strcmp(parametro->s_name, "FANN_THRESHOLD")==0)
!       funzione = FANN_THRESHOLD;
!     if (strcmp(parametro->s_name, "FANN_THRESHOLD_SYMMETRIC")==0)
!       funzione = FANN_THRESHOLD_SYMMETRIC;
!     if (strcmp(parametro->s_name, "FANN_LINEAR")==0)
!       funzione = FANN_LINEAR;
!     if (strcmp(parametro->s_name, "FANN_SIGMOID")==0)
!       funzione = FANN_SIGMOID;
!     if (strcmp(parametro->s_name, "FANN_SIGMOID_STEPWISE")==0)
!       funzione = FANN_SIGMOID_STEPWISE;
!     if (strcmp(parametro->s_name, "FANN_SIGMOID_SYMMETRIC")==0)
!       funzione = FANN_SIGMOID_SYMMETRIC;
!     if (strcmp(parametro->s_name, "FANN_SIGMOID_SYMMETRIC_STEPWISE")==0)
!       funzione = FANN_SIGMOID_SYMMETRIC_STEPWISE;
!     if (strcmp(parametro->s_name, "FANN_GAUSSIAN")==0)
!       funzione = FANN_GAUSSIAN;
!     if (strcmp(parametro->s_name, "FANN_GAUSSIAN_STEPWISE")==0)
!       funzione = FANN_GAUSSIAN_STEPWISE;
!     if (strcmp(parametro->s_name, "FANN_ELLIOT")==0)
!       funzione = FANN_ELLIOT;
!     if (strcmp(parametro->s_name, "FANN_ELLIOT_SYMMETRIC")==0)
!       funzione = FANN_ELLIOT_SYMMETRIC;
!     
  		fann_set_activation_function_hidden(x->ann, funzione);
  	} else