Answer Happy

v Particle H HO 9.5 The Fanning friction factor f for turbulent fluid flow in a pipe can be deter- mined by solving for the root of the von Karman equation 1 FC) = 4 logo(RVA) -0,4 VI where R is called the Reynolds number. How would the right-hand side of this equation be written in VBA? 9.6 Suppose that you place a spherical particle in a beaker containing a quiescent fluid (Figure 9.2). The settling velocity of the particle can be estimated with Stokes law, 8PpP Fluid Figure 9.2 A spherical particle selling in a beaker of Huid. U 18 where v is the downward velocity of the particle (cm/s), g is the acceleration due to gravity (= 980 cm/s), p, is the density of the particle (g/cm), p is the density of the fluid (g/cmº), p is the dynamic viscosity of the fluid (g/cm s)), and d is the particle's diameter (cm). If the particle is initially placed at a depth of H, in the fluid, develop a well- structured Sub procedure named Stokes to calculate how long it will take the particle to reach the bottom or top of the beaker. Your program should have the following characteristics: • Place an Option Explicit statement prior to your Sub procedure, and use Dim statements to assign appropriate data types to all variables. • Enter all the parameters on a worksheet entitled Input Data. • Include a Function procedure to calculate the velocity of the particle. • Use a Const statement to assign the value and set the data type of 8. Make g available throughout the whole module. Display the settling velocity in a worksheet cell on the Input Data sheet. • If the settling velocity is positive, use a message box to display the time it takes the particle to reach the bottom of the beaker. Otherwise, display the time it takes to reach the top. Employ the following parameters for the beaker and the particle: H = 20 cm H = 10 cm, g = 980 cm/s?, and d = 0.05 cm. Use the following fluid-particle combinations to test your program: Fluid Particle Pp (g/cm) Water @ 4°C Mercury @ 20 °C SAE 10W 30 @ 38 °C Seawater @ 10°C py(g/cm) 1 13.55 0.88 1.026 (g/cms)) 0.0157 0.0015 0.067 0.00131 Ice Platinum Rock Cork 0.92 21.45 2.65 0.12