library(pipenostics)
d <- c(812.8, 219.0) # [mm]
wth <- c( 19.1, 14.5) # [mm]
uts <- c(530.9, 455.1) # [N/mm^2]
l <- c(203.2, 200.0) # [mm]
depth <- c( 13.4, 9.0) # [mm]
dnvpf(d, wth, uts, depth, l)
# [1] 15.86626 34.01183
Run the code above in your browser using DataLab