|
|
Main.KeysToExercise History
Show minor edits - Show changes to output
January 21, 2009, at 11:02 PM
by 75.143.68.139 -
Changed line 7 from:
to:
January 21, 2009, at 11:02 PM
by 75.143.68.139 -
Added lines 1-22:
molar_solution <- function( x, y) {
58.433 * x * y/10^6
}
molar_solution2 <- function( x, y, FW) {
FW * x * y2/10^6
}
molar_solution3 <- function( x, y, formula) {
FWs = c(58.443, 74.5513)
names(FWs) = c('NaCl', 'KCl');
FW = FWs[formula]
FW * x * y / 10^6
}
molar_solution( 100, 500);\\
molar_solution2( 100, 500, 58.433);\\
molar_solution3( 100, 500, 'NaCl' );\\
|
|