Main.KeysToExercise History

Hide minor edits - Show changes to markup

January 21, 2009, at 11:02 PM by 75.143.68.139 -
Changed line 7 from:
  FW * x * y2/10^6
to:
  FW * x * y/10^6
Restore
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' );

Restore