commit cfe379de5b45c6055346845d0200e9311e57724a
parent 9883b9f4d16aac3bdd43593a1a5a06bdac75b7ff
Author: Ivan Gankevich <igankevich@ya.ru>
Date: Tue, 19 Jun 2018 19:10:59 +0300
Add ACF slide.
Diffstat:
| arma-slides.org | | | 135 | ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--- |
1 file changed, 131 insertions(+), 4 deletions(-)
diff --git a/arma-slides.org b/arma-slides.org
@@ -175,6 +175,133 @@
- модели расходятся, если делать наоборот;
- характеристики взволнованной поверхности соответствуют реальным.
+** АКФ морской поверхности
+
+#+begin_src dot :exports results :file build/acf-pipeline-ru.pdf
+digraph G {
+
+ node [fontname="Open Sans",fontsize=10,margin="0.055,0",shape=box,bgcolor="E5E6E5",style="filled"]
+ graph [nodesep="0.25",ranksep="0.20",rankdir="TB" margin=0]
+ edge [arrowsize=0.66]
+ bgcolor="#F5F6F5"
+
+ function [label="Формула\nпрофиля волны",height="0.40"]
+ discrete_function [label="Дискретный\nпрофиль волны",height="0.40"]
+ field_data [label="Натурные\nданные",width="1.1",height="0.40"]
+ theorem [label="Теорема Винера—Хинчина",height="0.20"]
+ acf [label="АКФ",height="0.20"]
+
+ function->theorem
+ discrete_function->theorem
+ field_data->theorem
+ theorem->acf
+
+}
+#+end_src
+
+#+RESULTS:
+[[file:build/acf-pipeline-ru.pdf]]
+
+*** Columns
+:PROPERTIES:
+:BEAMER_env: columns
+:BEAMER_opt: T
+:END:
+
+**** Column 1
+:PROPERTIES:
+:BEAMER_col: 0.30
+:END:
+
+#+latex: \vspace{-1cm}
+#+header: :width 1.7 :height 1.2 :bg #F5F6F5 :font sans
+#+begin_src R :file build/acf-propagating-plain-wave-ru.pdf
+source(file.path("R", "common.R"))
+par(mar=c(0,0.5,0,0))
+df <- data.frame(t=rep(NA,0), x=rep(NA,0), y=rep(NA,0), z=rep(NA,0))
+n <- 20
+grid <- seq(1, n)
+alpha <- 2.13975
+beta <- 0.77341
+gamm <- 0.549017
+for (i in grid) {
+ for (j in grid) {
+ x <- i/(n-1)
+ y <- j/(n-1)
+ z <- gamm * exp(-alpha*(x+y)) * cos(beta*(x+y))
+ df[nrow(df) + 1,] <- c(0,i,j,z)
+ }
+}
+arma.wavy_plot(df, 0, zlim=c(0,0.5), expand=0.5)
+#+end_src
+
+#+caption: Плоская волна
+#+RESULTS:
+[[file:build/acf-propagating-plain-wave-ru.pdf]]
+
+
+**** Column 2
+:PROPERTIES:
+:BEAMER_col: 0.30
+:END:
+
+#+latex: \vspace{-1cm}
+#+header: :width 1.7 :height 1.2 :bg #F5F6F5 :font sans
+#+begin_src R :file build/acf-standing-plain-wave-ru.pdf
+source(file.path("R", "common.R"))
+par(mar=c(0,0.5,0,0))
+df <- data.frame(t=rep(NA,0), x=rep(NA,0), y=rep(NA,0), z=rep(NA,0))
+n <- 20
+grid <- seq(1, n)
+alpha <- 2.31906
+beta <- -5.49873
+gamm <- 0.0680413
+for (i in grid) {
+ for (j in grid) {
+ x <- i/(n-1)
+ y <- j/(n-1)
+ z <- gamm * exp(-alpha*(x+y)) * cos(beta*x) * cos(beta*y)
+ df[nrow(df) + 1,] <- c(0,i,j,z)
+ }
+}
+arma.wavy_plot(df, 0, zlim=c(-0.05,0.05), expand=0.5)
+#+end_src
+
+#+caption: Плоская стоячая волна
+#+RESULTS:
+[[file:build/acf-standing-plain-wave-ru.pdf]]
+
+**** Column 3
+:PROPERTIES:
+:BEAMER_col: 0.30
+:END:
+
+#+latex: \vspace{-1cm}
+#+header: :width 1.7 :height 1.2 :bg #F5F6F5 :font sans
+#+begin_src R :file build/acf-propagating-stokes-wave-ru.pdf
+source(file.path("R", "common.R"))
+par(mar=c(0,0.5,0,0))
+df <- data.frame(t=rep(NA,0), x=rep(NA,0), y=rep(NA,0), z=rep(NA,0))
+n <- 20
+grid <- seq(1, n)
+alpha <- 2.31906
+beta <- -5.49873
+gamm <- 0.0680413
+for (i in grid) {
+ for (j in grid) {
+ x <- i/(n-1)
+ y <- j/(n-1)
+ z <- gamm * exp(-alpha*(x+y)) * cos(beta*x) * cos(beta*y)
+ df[nrow(df) + 1,] <- c(0,i,j,z)
+ }
+}
+arma.wavy_plot(df, 0, zlim=c(-0.05,0.05), expand=0.5)
+#+end_src
+
+#+caption: Волна Стокса
+#+RESULTS:
+[[file:build/acf-propagating-stokes-wave-ru.pdf]]
+
** АКФ морской поверхности :noexport:
#+begin_export latex
\small
@@ -245,7 +372,7 @@
#+latex: \vspace{-1cm}
#+header: :width 2.7 :height 2.7 :bg #F5F6F5 :font sans
-#+begin_src R :file build/standing-wave-qqplots-slides.pdf
+#+begin_src R :file build/standing-wave-qqplots-slides-ru.pdf
source(file.path("R", "common.R"))
par(pty="s", mfrow=c(2, 2), mar=c(1,1,1,0), mgp=c(3,0.3,0), cex=0.6, fg='black', col='navy')
arma.qqplot_grid_adj(
@@ -261,7 +388,7 @@ arma.qqplot_grid_adj(
#+caption: Стоячие волны
#+RESULTS:
-[[file:build/standing-wave-qqplots-slides.pdf]]
+[[file:build/standing-wave-qqplots-slides-ru.pdf]]
*** Прогрессивные волны
@@ -272,7 +399,7 @@ arma.qqplot_grid_adj(
#+latex: \vspace{-1cm}
#+header: :width 2.7 :height 2.7 :bg #F5F6F5 :font sans
-#+begin_src R :file build/propagating-wave-qqplots-slides.pdf
+#+begin_src R :file build/propagating-wave-qqplots-slides-ru.pdf
source(file.path("R", "common.R"))
par(pty="s", mfrow=c(2, 2), mar=c(1,1,1,0), mgp=c(3,0.3,0), cex=0.6, col='navy')
arma.qqplot_grid_adj(
@@ -288,7 +415,7 @@ arma.qqplot_grid_adj(
#+caption: Прогрессивные волны
#+RESULTS:
-[[file:build/propagating-wave-qqplots-slides.pdf]]
+[[file:build/propagating-wave-qqplots-slides-ru.pdf]]
** Нелинейное волнение
