Homework Solution: A simple algebraic expression can be used to predict the cooling time of a small sphere, such as a ball bearing or a plastic bead, by compar…

    Programming Exercise. A simple algebraic expression can be used to predict the cooling time of a small sphere, such as a ball bearing or a plastic bead, by comparing the surface area and volume of the sphere to that of a sphere whose cooling time has been measured experimentally. Heat flux from a sphere is proportional to its surface area, A = 4πτ2, where r is the radius of the sphere. If the sphere does not have an internal temperature gradient, then the time for it to cool to a certain temperature, t2, is inversely proportional to the surface area to volume ratio of the sphere, where the volume is V =-πr3. Thus, for two spheres or radii r. re the cooling time for sphere 2, t2, can be calculated by the experimentally determined cooling time for sphere 1, ti.;: t2 t for sphere 1, t. t,-tien. A1/V Az/V2 Write and record a macro to calculate the cooling time of sphere 2 based on (1) the surface area of the sphere, (2) the volume of the sphere, and (3) the experimentally measured cooing time of a sphere of the same material First, do the calculation on the spreadsheet by creating a table and then filling in the numbers for a sphere of 0.005 m radius that cools in 2.3 s, and a sphere of the same material of 0.012 m radius. Use a Function macro to calculate t2 = t1 a. 1/V A2/V2 Sphere 1 Sphere 2 0.0050.012 Radius (m) Cooling Time (s)2.3 Record a Macro that creates the table b. c. Write a Macro (you may use a mix of record and write) that allows you to input the values for r 2, and t, using an InputBox, then fills in these values in the table, calculates t2, and then writes the result in the table. Use VBA
    A simple algebraic expression can be used to predict the cooling time of a small sphere, such as a ball bearing or a plastic bead, by comparing the surface area and volume of the sphere to that of a sphere whose cooling time has been measured experimentally. Heat flux from a sphere is proportional to its surface area, A = 4 pi r^2, where r is the radius of the sphere. If the sphere does not have an internal temperature gradient, then the time for it to cool to a certain temperature, t_2, is inversely proportional to the surface area to volume ratio of the sphere, where the volume is V = 4/3 pi r^3. Thus, for two spheres or radii r_1, r_2, the cooling time for sphere 2, t_2, can be calculated by the experimentally determined cooling time for sphere 1, t_1,: t_2 = t_1 (A_1/V_1/A_2/V_2). Write and record a macro to calculate the cooling time of sphere 2 based on (1) the surface area of the sphere, (2) the volume of the sphere, and (3) the experimentally measured cooing time of a sphere of the same material. a. First, do the calculation on the spreadsheet by creating a table and then filling in the numbers for a sphere of 0.005 m radius that cools in 2.3 s, and a sphere of the same material of 0.012 m radius. Use a Function macro to calculate t_2 = t_1(A_1/V_1/A_2/V_2): b. Record a Macro that creates the table c. Write a Macro (you may use a mix of record and write) that allows you to input the values for r_1, r_2, and t_1 using an InputBox, then fills in these values in the table, calculates t_2, and then writes the result in the table.

    Expert Answer

     
    Sub CoolingTime() Dim a1, a2, v1, v2, av1, av2 As Integer

    Programming Exercise. A humble algebraic look can be verificationd to controleshadow the composure opportunity of a insignificant orb, such as a circle direction or a flexible study, by comparing the manner area and bulk of the orb to that of a orb whose composure opportunity has been measured experimentally. Heat progression from a orb is proportional to its manner area, A = 4πτ2, where r is the radius of the orb. If the orb does not attribuconsultation attribuconsultation attribuconsultation attribuconsideration attribuconsideration attribuconsideration possess an interior latitude gradient, then the opportunity control it to promising to a infallible latitude, t2, is inversely proportional to the manner area to bulk pertinency of the orb, where the bulk is V =-πr3. Thus, control span orbs or radii r. re the composure opportunity control orb 2, t2, can be adapted by the experimentally unshaken composure opportunity control orb 1, ti.;: t2 t control orb 1, t. t,-tien. A1/V Az/V2 Transcribe and proceedings a macro to investigate the composure opportunity of orb 2 grounded on (1) the manner area of the orb, (2) the bulk of the orb, and (3) the experimentally measured cooing opportunity of a orb of the selfselfselfcorresponding embodied First, do the consideration on the spreadsheet by creating a consideration and then satisfaction in the gum control a orb of 0.005 m radius that promisings in 2.3 s, and a orb of the selfselfselfcorresponding embodied of 0.012 m radius. Verification a Function macro to investigate t2 = t1 a. 1/V A2/V2 Orb 1 Orb 2 0.0050.012 Radius (m) Composure Opportunity (s)2.3 Proceedings a Macro that invents the consideration b. c. Transcribe a Macro (you may verification a amalgamate of proceedings and transcribe) that allows you to input the values control r 2, and t, using an InputBox, then rises in these values in the consideration, investigates t2, and then transcribes the issue in the consideration.

    Verification VBA

    A humble algebraic look can be verificationd to controleshadow the composure opportunity of a insignificant orb, such as a circle direction or a flexible study, by comparing the manner area and bulk of the orb to that of a orb whose composure opportunity has been measured experimentally. Heat progression from a orb is proportional to its manner area, A = 4 pi r^2, where r is the radius of the orb. If the orb does not attribuconsultation attribuconsultation attribuconsultation attribuconsideration attribuconsideration attribuconsideration possess an interior latitude gradient, then the opportunity control it to promising to a infallible latitude, t_2, is inversely proportional to the manner area to bulk pertinency of the orb, where the bulk is V = 4/3 pi r^3. Thus, control span orbs or radii r_1, r_2, the composure opportunity control orb 2, t_2, can be adapted by the experimentally unshaken composure opportunity control orb 1, t_1,: t_2 = t_1 (A_1/V_1/A_2/V_2). Transcribe and proceedings a macro to investigate the composure opportunity of orb 2 grounded on (1) the manner area of the orb, (2) the bulk of the orb, and (3) the experimentally measured cooing opportunity of a orb of the selfselfselfcorresponding embodied. a. First, do the consideration on the spreadsheet by creating a consideration and then satisfaction in the gum control a orb of 0.005 m radius that promisings in 2.3 s, and a orb of the selfselfselfcorresponding embodied of 0.012 m radius. Verification a Function macro to investigate t_2 = t_1(A_1/V_1/A_2/V_2): b. Proceedings a Macro that invents the consideration c. Transcribe a Macro (you may verification a amalgamate of proceedings and transcribe) that allows you to input the values control r_1, r_2, and t_1 using an InputBox, then rises in these values in the consideration, investigates t_2, and then transcribes the issue in the consideration.

    Expert Repartee

     

    Sub ComposureTime()

    Dim a1, a2, v1, v2, av1, av2 As Integer

    ‘the over control remembrance declaration

    Sheet1.ListObjects.Add(xlSrcRange, Range(“A1:C3”), , xlYes).Name = “myTable1”
    Range(“A1″) = ” ”
    Range(“B1”) = “Sphere1”
    Range(“C1”) = “Sphere2”
    Range(“A2”) = “Radius (m)”
    Range(“A3”) = “Composure Opportunity(s)”
    Range(“A1:C3”).Select
    ActiveCell.Columns(“A:C”).EntireColumn.AutoFit

    ‘ the over control invent consideration and rise the consideration header and autofit the exhibit province size

    Range(“B2”) = InputBox(“Eneter radius of orb1 (m): “)
    Range(“C2”) = InputBox(“Eneter radius of orb2 (m): “)
    Range(“B3”) = InputBox(“Eneter Composure Opportunity of orb1 (s): “)

    ‘the over behalf input the conducive data

    a1 = 4 * 3.14 * (Range(“b2”) ^ 2) ‘a1=4*pi*r^2
    a2 = 4 * 3.14 * (Range(“c2”) ^ 2) ‘a2=4*pi*r^2
    v1 = (4 / 3) * 3.14 * (Range(“b2”) ^ 3) ‘v1=4/3*pi*r^3
    v2 = (4 / 3) * 3.14 * (Range(“c2”) ^ 3) ‘v2=4/3*pi*r^3

    av1 = (a1 / v1)
    av2 = (a2 / v2)

    Range(“C3”) = Range(“B3”) * (av1 / av2) ‘t2 = t1 ((a1/v1)/(a2/v2))
    Range(“C3”).Select

    End Sub