From 9a6983d1d9d89536bcb06d81d01aeaeae008ecfd Mon Sep 17 00:00:00 2001
From: Mauricio Zambrano-Bigiarini <hzambran@users.noreply.github.com>
Date: Thu, 8 Nov 2012 16:19:27 +0000
Subject: [PATCH] hydroPSO.R: added reagrouing info to 'PSO\_logfile.txt'
---
R/PSO_v2012.R | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/R/PSO_v2012.R b/R/PSO_v2012.R
index d1b672c..72054f1 100755
--- a/R/PSO_v2012.R
+++ b/R/PSO_v2012.R
@@ -1207,11 +1207,12 @@ RegroupingSwarm <- function(x,
xMinMax <- cbind(xmin, xmax)
+ message("Gbest:")
+ print(gbest)
message("BoundariesNew:")
print(xMinMax)
message(" ")
- message("Gbest:")
- print(gbest)
+
#message("NewX :")
#print(x)
@@ -2165,6 +2166,16 @@ hydroPSO <- function(
writeLines(c("lambda :", lambda), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile)
} # ELSE end
+ writeLines(c("use.RG :", use.RG), PSOparam.TextFile, sep=" ")
+ writeLines("", PSOparam.TextFile)
+ if (use.RG) {
+ writeLines(c("RG.thr :", RG.thr), PSOparam.TextFile, sep=" ")
+ writeLines("", PSOparam.TextFile)
+ writeLines(c("RG.r :", RG.r), PSOparam.TextFile, sep=" ")
+ writeLines("", PSOparam.TextFile)
+ writeLines(c("RG.miniter :", RG.miniter), PSOparam.TextFile, sep=" ")
+ writeLines("", PSOparam.TextFile)
+ } # IF end
writeLines(c("maxfn :", maxfn), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile)
writeLines(c("abstol :", abstol), PSOparam.TextFile, sep=" ")
--
GitLab