inverso_2.R
In gripp: General Inverse Problem Platform

# number of parameters.
n <- 3
#
# Configure the name of the folder where each file with the parameter to be changed.
# If the folder is 'wd' then it will not be changed.
# You can change it to another location where your parameter files are.
.folder_name <- c('wd','wd','wd')
#
# Configure the name of each file to be changed in the Direct Problem Solver.
.file_name <- c('input_ln.dat','input_ln.dat','input_ln.dat')
#
# Configure the name of each parameter to be changed.
.parm_name <- c('A','B','C')
#
# Configure alternative method using line number to enter each parameter
# When line_number is zero, then the input method uses keywords.
.line_number <-c(1,2,3)
#
# Configure each parameter type, where:
#   1 means a numeric variable informed as a string, such as parm <- "1.38"
#   2 means a numeric vector informed as a string of numbers separated with a space character.
#     For example, parm <- "1.25 3.4". You must tell which one will be the variable considered.
.parm_type <- c(1,1,1)
#
# Informe the position of the variable to be considered in the problem in the vector.
# If the parameter is a numeric variable, then its position is zero.
.parm_vector <- c(0,0,0)
#
# Configure the description of each parameter to be changed.
.parm_descr <- c('parameter A','parameter B','parameter C' )
#
# Configure the smallest value for each parameter
.parm_min <- c(0,0,0)
#
# Configure the larger value for each parameter
.parm_max <- c(5,10,1000)
#
# Configure the initial value for each parameter
.parm_init <- c(2,5,35)
#
# Configure the name of the folder where the command must be called.
# If the folder is 'wd' then it will not be changed.
# You can change it to another location where your parameter files are.
.command_folder <-'wd'
#
# Configure the command to be used to call the Direct Problem Solver.
.command <- 'Rscript f2.R'
#
# Configure a string to be used to attrib values in the Direct Problem file.
.attrib_str <- '<-'
#
# Configure the name of the file with the results obtained by the Direct Problem.
# It must be a single column of values.
# The results are changed at each run by the Direct Problem Solver.
.result <- 'result.dat'
#
# Configure the name of the folder where the results can be found after each run.
# If the folder is 'wd' then it will not be changed.
# You can change it to another location where your parameter files are.
.result_folder <- 'wd'
#
# Configure the name of the file to be used as a target by the cost function.
# The file was built using parm <- c(1,3,50).
# It is also a single column of values.
.target <- 'alvo.dat'
#
# Configure the name of the folder where the target file can be found.
# If the folder is 'wd' then it will not be changed.
# You can change it to another location where your parameter files are.
.target_folder <- 'wd'
#
# Configure the Inverse Problem Solver to be used.
#
# if solver == GenSA
# solver <- 'GenSA'
# Configure the maximum number of function evaluation for the Inverse Problem Solution
# control <- list(max.time=10)
#
# if solver == 'GA'
# solver <- 'GA'
# Configure the maximum number of function evaluation for the Inverse Problem Solution
# control <- list(popSize = 50, maxiter = 1000, run = 100)
.solver <- 'GA'
#
# Configure the maximum number of function evaluation for the Inverse Problem Solution
.control <- list(popSize = 50, maxiter = 20, run = 10)