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

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(EC3)
library(smartcalc)

$UR_{\tau, pl}$

${ \left( \frac{\sigma_{x,Ed}}{f_y / \gamma_{M0}} \right)^{2} + \left( \frac{\sigma_{z,Ed}}{f_y / \gamma_{M0}} \right)^{2} - \left( \frac{\sigma_{x,Ed}}{f_y / \gamma_{M0}} \right) \cdot \left( \frac{\sigma_{z,Ed}}{f_y / \gamma_{M0}} \right) + 3 \cdot \left( \frac{\tau_{Ed}}{f_y / \gamma_{M0}} \right)^{2} }$

eqs <- lapply(lsf.str(as.environment('package:EC3')), function(x) {
  tryCatch({
  if (attributes(get(x))$class == 'equation') {
    print(to_math2(get(x), plotmath = T))
    cat('\n')
  }}, error = function(e) {})
})