# Tube efficiency Computation is consistent with the approach described in Hogue, Mark; Thompson, Martha; Farfan, Eduardo; Hadlock, Dennis, (2014), "Hand Calculations for Transport of Radioactive Aerosols through Sampling Systems" Health Phys 106, 5, S78-S87, , with the exception that the diffusion deposition mechanism is included. ```r tube_eff(df, params, L_cm, angle_to_horiz, elnum) ``` ## Arguments - `df`: is the particle data set (data frame) established with the `particle_dist` function - `params`: is the parameter data set for parameters that are not particle size-dependent - `L_cm`: tube length, cm - `angle_to_horiz`: angle to horizontal in degrees - `elnum`: element number to provide unique column names ## Returns data frame containing original particle distribution with added data for this element ## Details In order to run this function, first produce a particle distribution with the `particle_dist` function, then produce a parameter set with the `set_params` function. Both of these results must be stored as per examples described in the help set with each. ## Examples ```r # Example output is a sample of the full particle data set. # laminar flow (Reynolds number < 2100) df <- particle_dist() # distribution params <- set_params_1("D_tube" = 2.54, "Q_lpm" = 20, "T_C" = 25, "P_kPa" = 101.325) #example system parameters df <- set_params_2(df, params) #particle size-dependent parameters df <- probe_eff(df, params, orient = 'h') #probe orientation - horizontal df <- tube_eff(df, params, L_cm = 100, angle_to_horiz = 90, elnum = 2) (df[sort(sample(1:1000, 10)), ]) # turbulent flow (Reynolds number > 4000) df <- particle_dist() # distribution params <- set_params_1("D_tube" = 2.54, "Q_lpm" = 100, "T_C" = 25, "P_kPa" = 101.325) #example system parameters df <- set_params_2(df, params) #particle size-dependent parameters df <- probe_eff(df, params, orient = 'h') #probe orientation - horizontal df <- tube_eff(df, params, L_cm = 100, angle_to_horiz = 90, elnum = 2) (df[sort(sample(1:1000, 10)), ]) # midrange flow (Reynolds number > 2100 and < 4000) df <- particle_dist() # distribution params <- set_params_1("D_tube" = 2.54, "Q_lpm" = 60, "T_C" = 25, "P_kPa" = 101.325) #example system parameters df <- set_params_2(df, params) #particle size-dependent parameters df <- probe_eff(df, params, orient = 'h') #probe orientation - horizontal df <- tube_eff(df, params, L_cm = 100, angle_to_horiz = 90, elnum = 2) (df[sort(sample(1:1000, 10)), ]) ```

tube_eff function