library(chemistr)
Standardization NaOH
#Input the code to calculate the concentration of NaOH for each individual trial KHP <- c() #Mass of KHP for each trial KHP_moles <- #Moles of KHP for each trial Vi_1 <- c()#Initial Volume of the burette for each trial Vf_1 <- c() #Final Volume of the burette for each trial NaOH <- #Input the calulation for [NaOH] in M n_NaOH <- #Number of trials of NaOH standardization Average_NaOH <- #Calculate the average concentration NaOH SD_NaOH <- #Calculate the standard Deviation of NaOH RSD_NaOH <- #Calculate the %RSD for NaOH CI_NaOH <- #Calculate the 95% confidence interval for NaOH Satatistics_NaOH <- data.frame(Average_NaOH, CI_NaOH, RSD_NaOH ) Statistics_NaOH
Standardization HCl
#Input the code to calculate the concentration of HCl for each individual trial and the statistics Average_NaOH <- Average_NaOH #Average concentration of NaOH from previous chunk Vi_2 <- c()#Initial Volume of the burette for each trial Vf_2 <- c() #Final Volume of the burette for each trial HCl <- #Input the calulation for [HCl] in M n_HCl <- #Number of trials for HCl standardization Average_HCl <- #Calculate the average concentration HCl SD_HCl <- #Calculate the standard Deviation of HCl RSD_HCl <- #Calculate the %RSD for HCl CI_HCl <- #Calculate the 95% confidence interval for HCl Statistics_HCl <- data.frame(Average_HCl, CI_HCl, RSD_HCl ) Statistics_HCl
_ NaOH(aq) + _CO~2~(g) $\rightarrow$ _Na~2~CO~3~(aq) + _H~2~O(l)
Vi_NaOH <- #Initial Volume of NaOH in mL M_NaOH <- #Concentration of NaOH (based on the standardization results) mole_NaOH_initial_control <- #Calculate the moles of NaOH in the control jar mole_NaOH_initial_exp <- #Calculate the moles of NaOH in the experimental jar (repeat this step for all experimental jars) mole_NaOH_initial_control #Calculator value sigfigs_2A <- #Number of sig figs in mole_NaOH_initial_control mole_NaOH_initial_exp #Calculator value sigfigs_2B <- #Number of sig figs in mole_NaOH_initial_exp
Vt_NaOH_control <- #Volume of NaOH from the control jar that was titrated (mL) M_HCl <- #Concentration of HCl (based on the standardization results) V_HCl_Control <- #Volume of HCl used in titration of control jar NaOH (mL) mole_NaOH_titration_control <- #Calculate the moles of NaOH in the control jar at the time of titration mole_NaOH_titration_control #Calculator Value sigfigs_4 <- #Number of sig figs in mole_NaOH_titration_control
mole_NaOH_Consumed_control <- #Calculate the moles of NaOH consumed in the control jar mole_NaOH_Consumed_control #Calculator Value sigfigs_5 <- #Number of sig figs in mole_NaOH_Consumed_control
Vt_NaOH_exp <- #Volume of NaOH from the experimental jar that was titrated (mL) M_HCl <- #Concentration of HCl (based on the standardization results) V_HCl_exp <- #Volume of HCl used in titration of experimental jar NaOH (mL) mole_NaOH_titration_exp <- #Calculate the moles of NaOH in the exp jar at the time of titration mole_NaOH_titration_exp #Calculator Value sigfigs_6 <- #Number of sig figs in mole_NaOH_titration_exp
mole_NaOH_Consumed_exp <- #Calculate the moles of NaOH consumed in the experimental jar mole_NaOH_Consumed_exp #Calculator Value sigfigs_7 <- #Number of sig figs in mole_NaOH_Consumed_exp
mole_NaOH_Consumed_leaf <- #Calculate the moles of NaOH consumed in the experimental jar due solely to leaf decay mole_NaOH_Consumed_leaf #Calculator Value sigfigs_8 <- 3 #Number of sig figs in mole_NaOH_Consumed_leaff
mole_CO2_produced_leaf <- #Calculate the moles of CO_2 produced in the experimental leaf jar mole_CO2_produced_leaf #Calculator Value sigfigs_9 <- #Number of sig figs in mole_CO2_produced_leaf
mass_leaf <- #The mass of leaf material used in your experimental jar (g) days <- #Number of days your experiment lasted rate_leafdecay <- #Calculate the moles of CO_2 per gram per day rate_leafdecay #Calculator Value sigfigs_10 <- 3 #Number of sig figs in rate_leafdecay
C~6~H~12~O~6~ + 6O~2~ $\rightarrow$ 6CO~2~ + 6H~2~O
rate_glucose <- #Calulate the rate of glucose combustion rate_glucose #Calculator Value sigfigs_11 <- #Number of sig figs in rate_glucose
MW_Glucose <- #Calculate the molar mass of glucose Mole_glucose <- #Calculate the moles of glucose in 1 leaf Days_Decay <- #Calulate the number of days it will take for 1 leaf to decay Days_Decay #Calculator Value Days_Decay <- #Report the value to the correct number of significant digits Days_Decay #Result with Correct sig Figs
Explain a source of systematic error in your experiment and how it may have affected your final results. (Hint: Did this systematic error cause your number of days calculated to be too high or too low. Explain why.)
Calculate the percent variability for the measurements in the table below (don't forget to include a caption)
Measurement_Type <- c("[NaOH](M)", "[HCl] (M)", "Volume of NaOH used in Titration (mL)", "Total Volume in Titration (mL)", "Mass of Leaves (g)") Value_Measurement <- c() #Input the value for each of the measurements made Uncertainty <- c() #Input the uncertainty for each of the measurements made Per_Variation <- #Calculate the percent variation for each of the measurements made (100*uncertainty/value). Remember these are reported to 2 sig figs. T_1 <- data.frame(Measurement_Type, Value_Measurement, Uncertainty, Per_Variation) chem_table(T_1, caption="Input Caption")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.