commit 386385587095fc305ffe9150df2304e365d95f8c
parent 6b0d5eeabb5db0f3320e81957856ffceb2324b97
Author: Ivan Gankevich <igankevich@ya.ru>
Date: Wed, 8 Nov 2017 18:42:28 +0300
Figures.
Diffstat:
3 files changed, 27 insertions(+), 21 deletions(-)
diff --git a/R/benchmarks.R b/R/benchmarks.R
@@ -80,7 +80,7 @@ arma.load_io_benchmark_data <- function(attempt, filesystems, suffix, tags) {
data
}
-arma.print_sync_vs_async_io <- function(suffix_names, row_names, top_names) {
+arma.print_sync_vs_async_io <- function(suffix_names, row_names, top_names, mark=".") {
options(asciiType="org")
tags <- list("generate_surface", "write_all")
filesystems <- c("xfs", "nfs", "gfs")
@@ -99,7 +99,7 @@ arma.print_sync_vs_async_io <- function(suffix_names, row_names, top_names) {
big_table[,"Row.names"] <- sapply(big_table[,"Row.names"], function (c) get(c, row_names))
colnames(big_table) <- sapply(colnames(big_table), function (c) get(c, suffix_names))
print(ascii(c("", "", "", top_names[[1]], "", "", top_names[[2]])))
- print(ascii(big_table, include.rownames=FALSE))
+ print(ascii(big_table, include.rownames=FALSE, decimal.mark=mark))
}
arma.plot_io_events <- function (names) {
diff --git a/arma-thesis-ru.org b/arma-thesis-ru.org
@@ -1832,6 +1832,8 @@ source(file.path("R", "common.R"))
arma.plot_ar_cubes_2d(3, 3, xlabel="Индекс части (X)", ylabel="Индекс части (Y)")
#+end_src
+#+name: fig-ar-cubes
+#+caption: Авторегрессионные зависимостями между частями взволнованной поверхности.
#+RESULTS: fig-ar-cubes
[[file:build/ar-cubes-ru.pdf]]
@@ -2126,26 +2128,26 @@ suffix_names <- list(
gfs.y="GlusterFS",
Row.names="\\orgcmidrule{2-4}{5-7}Подпрограмма"
)
-top_names <- c("Последовательная", "Параллельная")
+top_names <- c("I", "II")
row_names <- list(
generate_surface="Генерация поверхности",
write_all="Запись вывода в файл"
)
-arma.print_sync_vs_async_io(suffix_names, row_names, top_names)
+arma.print_sync_vs_async_io(suffix_names, row_names, top_names, mark=",")
#+end_src
#+name: tab-arma-io-performance
-#+caption: Время работы подпрограмм (сек.) при использовании файловых систем XFS, NFS и GlusterFS совместно с последовательным и параллельным выводом в файл.
+#+caption: Время работы подпрограмм (сек.) при использовании файловых систем XFS, NFS и GlusterFS совместно с последовательным (I) и параллельным (II) выводом в файл.
#+attr_latex: :booktabs t
#+RESULTS: tab-arma-io-performance
-| | | | Последовательная | | | Параллельная |
-| \orgcmidrule{2-4}{5-7}Подпрограмма | XFS | NFS | GlusterFS | XFS | NFS | GlusterFS |
-|------------------------------------+------+------+------------------+------+------+--------------|
-| Генерация поверхности | 1.26 | 1.26 | 1.33 | 1.33 | 3.30 | 11.06 |
-| Запись вывода в файл | 0.28 | 2.34 | 10.95 | 0.00 | 0.00 | 0.00 |
+| | | | I | | | II |
+| \orgcmidrule{2-4}{5-7}Подпрограмма | XFS | NFS | GlusterFS | XFS | NFS | GlusterFS |
+|------------------------------------+------+------+-----------+------+------+-----------|
+| Генерация поверхности | 1.26 | 1.26 | 1.33 | 1.33 | 3.30 | 11.06 |
+| Запись вывода в файл | 0.28 | 2.34 | 10.95 | 0.00 | 0.00 | 0.00 |
#+name: fig-arma-io-events
-#+header: :width 6 :height 8 :results output graphics
+#+header: :width 5 :height 6 :results output graphics
#+begin_src R :file build/arma-io-events-ru.pdf
source(file.path("R", "benchmarks.R"))
names <- list(
@@ -3097,6 +3099,7 @@ digraph {
#+header: :width 7 :height 5
#+begin_src R :file build/discovery-benchmark-ru.pdf
source(file.path("R", "discovery.R"))
+par(family="serif")
bscheduler.plot_discovery(
xlabel="Количество физических узлов",
ylabel="Время, сек.",
diff --git a/arma-thesis.org b/arma-thesis.org
@@ -1795,6 +1795,8 @@ source(file.path("R", "common.R"))
arma.plot_ar_cubes_2d(3, 3, xlabel="Part index (X)", ylabel="Part index (Y)")
#+end_src
+#+name: fig-ar-cubes
+#+caption: Autoregressive dependencies between wavy surface parts.
#+RESULTS: fig-ar-cubes
[[file:build/ar-cubes.pdf]]
@@ -2060,7 +2062,7 @@ done in parallel to computation (table\nbsp{}[[tab-arma-io-performance]]). Using
this approach with local file system has the same effect, but performance gain
is lower.
-#+header :results output raw :exports results
+#+header: :results output raw :exports results
#+name: tab-arma-io-performance
#+begin_src R
source(file.path("R", "benchmarks.R"))
@@ -2073,26 +2075,26 @@ suffix_names <- list(
gfs.y="GlusterFS",
Row.names="\\orgcmidrule{2-4}{5-7}Subroutine"
)
-top_names <- c("Sequential", "Parallel")
+top_names <- c("I", "II")
row_names <- list(
generate_surface="Generate wavy surface",
write_all="Write output to files"
)
-arma.print_sync_vs_async_io(suffix_names, row_names, top_names)
+arma.print_sync_vs_async_io(suffix_names, row_names, top_names, mark=".")
#+end_src
#+name: tab-arma-io-performance
-#+caption: Running time of subroutines (s.) with the use of XFS, NFS and GlusterFS along with sequential and parallel file output.
+#+caption: Running time of subroutines (s.) with the use of XFS, NFS and GlusterFS along with sequential (I) and parallel (II) file output.
#+attr_latex: :booktabs t
#+RESULTS: tab-arma-io-performance
-| | | | Sequential | | | Parallel |
-| \orgcmidrule{2-4}{5-7}Subroutine | XFS | NFS | GlusterFS | XFS | NFS | GlusterFS |
-|----------------------------------+------+------+------------+------+------+-----------|
-| Generate wavy surface | 1.26 | 1.26 | 1.33 | 1.33 | 3.30 | 11.06 |
-| Write output to files | 0.28 | 2.34 | 10.95 | 0.00 | 0.00 | 0.00 |
+| | | | I | | | II |
+| \orgcmidrule{2-4}{5-7}Subroutine | XFS | NFS | GlusterFS | XFS | NFS | GlusterFS |
+|----------------------------------+------+------+-----------+------+------+-----------|
+| Generate wavy surface | 1.26 | 1.26 | 1.33 | 1.33 | 3.30 | 11.06 |
+| Write output to files | 0.28 | 2.34 | 10.95 | 0.00 | 0.00 | 0.00 |
#+name: fig-arma-io-events
-#+header: :width 6 :height 8 :results output graphics
+#+header: :width 6 :height 7 :results output graphics
#+begin_src R :file build/arma-io-events.pdf
source(file.path("R", "benchmarks.R"))
names <- list(
@@ -2995,6 +2997,7 @@ from consideration.
#+header: :width 7 :height 5
#+begin_src R :file build/discovery-benchmark.pdf
source(file.path("R", "discovery.R"))
+par(family="serif")
bscheduler.plot_discovery(xlabel="No. of physical nodes",toplabel="ppn")
#+end_src
