# ３種類のモンスターでの実験結果

sink("R_result.txt")

source("ayaturu0.R")

imgout <- 1; # グラフをpngファイルに出力する。
#imgout <- 0; # グラフをpngファイルに出力しない。

par(ask=TRUE)
PROP.TEST <- 1

ac <- 0
cat("\n\n***** プロマシア前 *****\n", sep="")
cat("\n\n■ あやつり対象: ", dst.pet, "\n", sep="")
source("ayaturu4.R")
if (imgout) {
	filename1 <- "img/fig4-1.png"
	filename2 <- "img/fig4-2.png"
	filename3 <- "img/fig4-3.png"
	filename4 <- "img/fig4-4.png"
	filename5 <- "img/fig4-5.png"
	filename6 <- "img/fig4-6.png"
}
source("ayaturu.R")

cat("\n\n***** プロマシア後 *****\n", sep="")
ac <- 1
cat("\n\n■ あやつり対象: ", dst.pet, "\n", sep="")
source("ayaturu4.R")
if (imgout) {
	filename1 <- "img/fig1-1.png"
	filename2 <- "img/fig1-2.png"
	filename3 <- "img/fig1-3.png"
	filename4 <- "img/fig1-4.png"
	filename5 <- "img/fig1-5.png"
	filename6 <- "img/fig1-6.png"
}
source("ayaturu.R")
if (imgout) {
	filename7 <- "img/fig1-7.png"
}
source("ayaturu2.R")
if (imgout) {
	filename8 <- "img/fig1-8.png"
}
source("ayaturu3.R")

dst.pet <- "Death Cap"
cat("\n\n■ あやつり対象: ", dst.pet, "\n", sep="")
source("ayaturu4.R")
if (imgout) {
	filename1 <- "img/fig2-1.png"
	filename2 <- "img/fig2-2.png"
	filename3 <- "img/fig2-3.png"
	filename4 <- "img/fig2-4.png"
	filename5 <- "img/fig2-5.png"
	filename6 <- "img/fig2-6.png"
}
source("ayaturu.R")
if (imgout) {
	filename7 <- "img/fig2-7.png"
}
source("ayaturu2.R")
if (imgout) {
	filename8 <- "img/fig2-8.png"
}
source("ayaturu3.R")

dst.pet <- "Moss Eater"
cat("\n\n■ あやつり対象: ", dst.pet, "\n", sep="")
source("ayaturu4.R")
if (imgout) {
	filename1 <- "img/fig3-1.png"
	filename2 <- "img/fig3-2.png"
	filename3 <- "img/fig3-3.png"
	filename4 <- "img/fig3-4.png"
	filename5 <- "img/fig3-5.png"
	filename6 <- "img/fig3-6.png"
}
source("ayaturu.R")
if (imgout) {
	filename7 <- "img/fig3-7.png"
}
source("ayaturu2.R")
if (imgout) {
	filename8 <- "img/fig3-8.png"
}
source("ayaturu3.R")

sink()
imgout <- 0; # グラフをpngファイルに出力しない。