library('tidyverse')
library('knitr')
calc_regal <- function(n = 2, # Zahl der Zeilen
m = 2, # Zahl der Spalten
d_0 = 336, # Kantenlänge Zelle
d_1 = 15, # Dicke Außenbretter
d_2 = 12, # Dicke Innenbretter
t_0 = 415, # Tiefe höhere Ebenen
t_1 = 390 # Tiefe unterste Ebene
) {
breite <- m * d_0 + 2 * d_1 + (m - 1) * d_2
hoehe <- n * d_0 + 2 * d_1 + (n - 1) * d_2
tribble(~ name, ~ n, ~ x1, ~ x2, ~ x3,
'gesamt', 1, breite, hoehe, t_0,
'brett_oben', 1, breite, t_0, d_1,
'brett_unten', 1, breite, t_1, d_1,
'brett_mitte_horizontal', n - 1, breite - 2 * d_1, t_0, d_2,
'brett_seite', 2, hoehe - 2 * d_1, t_0, d_1,
'brett_vertikal_unten', m - 1, d_0, t_1, d_2,
'brett_vertikal_oben', (n - 1) * (m - 1), d_0, t_0, d_2,
'brett_verkeilen', 2, d_0, d_0, d_2)
}
calc_regal() |> kable()