inst/snippet/resistors.R

R <- 20*50/(20 + 50)
u1 <- 0.7; u2 <- 1.2
p1 <- (50/70)^2; p2 <- (20/70)^2
u <- sqrt( p1^2 * u1^2 + p2^2 *u2^2 )
r <- 1 + round(-log10(u))
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.