Vented box loudspeaker equations

vented_box_equations.R

# vented box loudspeaker equations

Qts <- 0.40   # property of driver
fs <- 19      # property of driver
Vas <- 260    # property of driver

# you choose an alignment,
# choose a QL (assume 7 for starters),
# then look up the following values
# in the appropriate table on LDC p.58-62:

alignment <- "SC4" # you choose this
QL <- 7 # you guess this first then measure later; see LDC p.72-74
H <- 1.0103 # you look this up in the table
alpha <- 1.1146 # you look this up in the table
f3_div_fs <- 1.0215 # you look this up in the table

fb <- H * fs

f3 <- f3_div_fs * fs
f3 # Hz

Vb <-  Vas / alpha
Vb / 28.3169 # cubic feet