R-Script: Combinación de errores en Velocidad de Transferencia de Oxígeno - (Ejercicio 3.1)

Problema 3.1 Combinación de errores

# Calcular el coeficiente de transferencia de masa (kLa) cuando: kLa=OTR/(Cg-Cl) y 
# Cg= 0.25 mol*m^-3 +- 4%, (Cg= solubilidad del oxígeno en el medio)
# CL= 0.183 mol*m^-3 +- 4%  (CL= conc. de oxígeno disuelto)
# y OTR (velocidad transferencia de oxígeno) = 0.011 +- 5% mol*m^-3*s^-1
Cg<-0.25 # mol*m^-3
CL<- 0.183 # mol*m^-3
OTR<- 0.011 # mol*m^-3*s^-1
pCg<-4 # % error Cg
pCL<-4 # % error CL
pOTR<-5 # % error OTR
Cx<-(Cg-CL) # Realiza el calculo de solubilidad y concentración de oxígeno disuelto
eCg<-(Cg*pCg/100) # Calcula el error absoluto de solubilidad de O2
eCL<-(CL*pCL/100) # calculo el error absoluto de oxígeno disuelto
eCx<-(eCg+eCL) # error absoluto de la relación solubilidad y concentración de O2
pCx<-(eCx/Cx*100) # error relativo de (Cg-CL)
kLa= OTR/(Cg-CL) # calcula el coeficiente de transferencia de masa (kLa)
pkLa<-pCx+pOTR # Calcula el error relativo de kLa
ekLa=(kLa*pkLa/100) # Calcula el error absoluto de kLa
# Resultado: kLa = 0.164 +- 0.05 s^-1