R/6_2_5 bending_moment.R

In CivilEngineerUK/EC3_1_1: EC3-1-1 smartcalc Module

library(smartcalc)
#' @export
eq_6.12 <- eq(function(`M_{Ed}`, `M_{c,Rd}`, output = 'UR_{bending}') {
  `M_{Ed}` / `M_{c,Rd}` %<=% 1
},
eq = '6.12', clause = '6.2.5', subclause = 1, type = 'bending')

# class 1 & 2 only right now. add 3 & 4 later
#' @export
eq_6.13 <- eq(function(`W_{pl}`, f_y, `\\gamma_{M0}`, output = 'M_{c,Rd}') {
  `W_{pl}` * f_y / `\\gamma_{M0}`
}, 
eq = '6.13', clause = '6.2.5', subclause = 2, type = 'bending')

#' @export
eq_6.16 <- eq(function(`A_{f,net}`, f_u, `\\gamma_{M2}`, A_f, f_y, 
                       `\\gamma_{M0}`, output = 'A_{f,net}|A_f') {
  `A_{f,net}` * 0.9 * f_u / `\\gamma_{M2}` %>=% A_f * f_y / `\\gamma_{M0}`
}, 
eq = '6.16', clause = '6.2.5', subclause = 4, type = 'bending')