fed2_var

来自「快速傅立叶变换程序代码,学信号的同学,可要注意了」· 代码 · 共 66 行

# fe variables
#
# file to be read by commander.p
# each line is turned into a structure entry   	(str)
#     	a default-setting entry			(def)
#     	a usage-printing entry			(usg)
# 	and a command line reading entry	(clr)
# of these, the S, U and C can be disabled by >No S, etc.
# and the D can be disabled by -.
#
# variable    		type deflt flag  short_name extra_action long_name
#
# purpose of this file: to give command line options for changing the 
# values of the extra control parameters
# for default setting, the code from fe_var can be shared. 
# thus only CU are used from here.
#
>No S
c2->gamma		d	-1 -gamma2 gamma		-	Power
c2->metric		d	1  -metric2 m(0/1)	-	Whether to inc
c2->macarg.stepmax	f     0.1  -o5smax2 step 	-	max step size
c2->ftol		f	-	-ftol2 	ftol	-	-
c2->NL			d	-	-nl2	loops	-	-
c2->opt			d	-	-opt2	opt	-	-
c2->itmax		d	-	-itmax2 itmax	-	-
c2->betap		f	-	-betap2 betap	-	-
c2->sdx			f	-	-sdx2	sdx	-	initial sd
c2->seed		ld	-	-seed2	seed	-	initl condn
>S
#
>PC    else if ( strcmp (argv[i], "-b2") == 0 ) {
>PC      if ( i + 3 >= argc ) { ERROR2;      }
>PC      else {
>PC	  cs *= sscanf(argv[++i], "%d", &(c2->betastyle)); 
>PC	  cs *= sscanf(argv[++i], "%lf", &(c2->beta0)); 
>PC	  cs *= sscanf(argv[++i], "%lf", &(c2->beta1)); 
>PC      }
>PC    }
#  
>PU    DNT;  fprintf( fp, "-b2 betastyle beta0 beta1 ()" ) ; 
#
>No S
c3->gamma		d	-1 -gamma3 gamma		-	Power
c3->metric		d	1  -metric3 m(0/1)	-	Whether to inc
c3->macarg.stepmax	f     0.1  -o5smax3 step 	-	max step size
c3->ftol		f	-	-ftol3 	ftol	-	-
c3->NL			d	-	-nl3	loops	-	-
c3->opt			d	-	-opt3	opt	-	-
c3->itmax		d	-	-itmax3 itmax	-	-
c3->betap		f	-	-betap3 betap	-	-
c3->sdx			f	-	-sdx3	sdx	-	initial sd
c3->seed		ld	-	-seed3	seed	-	initl condn
>S
#
>PC    else if ( strcmp (argv[i], "-b3") == 0 ) {
>PC      if ( i + 3 >= argc ) { ERROR2;      }
>PC      else {
>PC	  cs *= sscanf(argv[++i], "%d", &(c3->betastyle)); 
>PC	  cs *= sscanf(argv[++i], "%lf", &(c3->beta0)); 
>PC	  cs *= sscanf(argv[++i], "%lf", &(c3->beta1)); 
>PC      }
>PC    }
#  
>PU    DNT;  fprintf( fp, "-b3 betastyle beta0 beta1 ()" ) ;  
#