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.
Sub CoolingTime()
Dim a1, a2, v1, v2, av1, av2 As Integer

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.

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