knitr::opts_chunk$set(echo = TRUE)
Calculate the aparent molecular weight of air given the components and mole fraction of each.
load(file = "../data/mc-ch3.rda") names(ex35) ex34["Ma"] <- ex34["mole_fraction"] * ex34["molecular_weight"] M.a <- sum(ex34["Ma"]) print(M.a)
Calculate the specific gravity of a gas of the following composition:
load(file = "../data/mc-ch3.rda")
Using equation 3-35.
names(ex35) ex35["Ma"] <- ex35["mole_fraction"] * ex35["molecular_weight"] M.a <- sum(ex35["Ma"])
M.air <- 29 gas.sg <- M.a / M.air print(gas.sg)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.