A person by the name of Huebscher developed a relationship between the equivalent size of round ducts (in air conditioning applications) and rectangular ducts according to (ab) 0.625 (a + b)0.25' D = 1.3- Side of Rectangular Du 400 450 500 550 600 dimension of one side of the rectangular duct (mm) dimension of the other side rectangular duct (mm) Use VBA to create a custom-made dialog box to return values that shows the relationship between the circular and the rectangular duct dimensions, such as the values of D that would be entered into the table shown below. Length of one side of rectangular duct (length a), mm 150 175 125 122 133 122 133 122 133 122 133 122 133 100 109 109 109 where we have the following: D= a= b= 109 109 diameter of equivalent circular duct (mm) 143 143 143 143 143 200 152 152 152 152 152 Calculate Diameter

Principles of Heat Transfer (Activate Learning with these NEW titles from Engineering!)
8th Edition
ISBN:9781305387102
Author:Kreith, Frank; Manglik, Raj M.
Publisher:Kreith, Frank; Manglik, Raj M.
Chapter1: Basic Modes Of Heat Transfer
Section: Chapter Questions
Problem 1.46P
icon
Related questions
Question
A person by the name of Huebscher developed a relationship between the equivalent size of round ducts (in air conditioning applications) and rectangular ducts according to
(ab) 0.625
(a + b)0.25'
D = 1.3-
Side of Rectangular Du
400
450
500
550
600
diameter of equivalent circular duct (mm)
dimension of one side of the rectangular duct (mm)
dimension of the other side rectangular duct (mm)
Use VBA to create a custom-made dialog box to return values that shows the relationship between the circular and the rectangular duct dimensions, such as the values of D that would be entered into the table shown below.
Length of one side of rectangular duct (length a), mm
125
150
175
122
133
143
122
133
143
122
133
143
122
133
143
122
133
143
where we have the following:
D=
100
109
109
109
109
109
a=
b=
200
152
152
152
152
152
Calculate Diameter
Transcribed Image Text:A person by the name of Huebscher developed a relationship between the equivalent size of round ducts (in air conditioning applications) and rectangular ducts according to (ab) 0.625 (a + b)0.25' D = 1.3- Side of Rectangular Du 400 450 500 550 600 diameter of equivalent circular duct (mm) dimension of one side of the rectangular duct (mm) dimension of the other side rectangular duct (mm) Use VBA to create a custom-made dialog box to return values that shows the relationship between the circular and the rectangular duct dimensions, such as the values of D that would be entered into the table shown below. Length of one side of rectangular duct (length a), mm 125 150 175 122 133 143 122 133 143 122 133 143 122 133 143 122 133 143 where we have the following: D= 100 109 109 109 109 109 a= b= 200 152 152 152 152 152 Calculate Diameter
Sub CalculateDiameter ()
Dim a As Double
Dim b As Double
Dim D As Double
Dim i As Integer
Dim j As Integer
'Create input box to enter length of one side of rectangular duct (length a)
a = InputBox ("Enter length of one side of rectangular duct (length a) in mm: ")
'Create table to display results
Range ("A166").Value = "Length of Other Side of Rectangular Duct (length b), mm"
Range("B166").Value = "100"
Range("C166").Value = "125"
Range ("D166").Value = "150"
Range ("E166").Value = "175"
Range ("F166").Value = "200"
Range("A167").Value = "400"
Range("A168").Value = "450"
Range ("A169").Value = "500"
Range("A170").Value = "550"
Range("A171").Value = "600"
'Calculate equivalent size of round duct (D) using input value of a and values from table for b
For i = 2 To 6
For j = 2 To 6
End Sub
Next i
b = Cells (166, j).Value
A
D = 1.3* ((a * b) 0.625) / ((a + b)
Cells (i + 165, j).Value = Round (D, 2)
Next j
^ 0.25)
Transcribed Image Text:Sub CalculateDiameter () Dim a As Double Dim b As Double Dim D As Double Dim i As Integer Dim j As Integer 'Create input box to enter length of one side of rectangular duct (length a) a = InputBox ("Enter length of one side of rectangular duct (length a) in mm: ") 'Create table to display results Range ("A166").Value = "Length of Other Side of Rectangular Duct (length b), mm" Range("B166").Value = "100" Range("C166").Value = "125" Range ("D166").Value = "150" Range ("E166").Value = "175" Range ("F166").Value = "200" Range("A167").Value = "400" Range("A168").Value = "450" Range ("A169").Value = "500" Range("A170").Value = "550" Range("A171").Value = "600" 'Calculate equivalent size of round duct (D) using input value of a and values from table for b For i = 2 To 6 For j = 2 To 6 End Sub Next i b = Cells (166, j).Value A D = 1.3* ((a * b) 0.625) / ((a + b) Cells (i + 165, j).Value = Round (D, 2) Next j ^ 0.25)
Expert Solution
trending now

Trending now

This is a popular solution!

steps

Step by step

Solved in 3 steps with 1 images

Blurred answer
Knowledge Booster
Dimensional Analysis
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, mechanical-engineering and related others by exploring similar questions and additional content below.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
Principles of Heat Transfer (Activate Learning wi…
Principles of Heat Transfer (Activate Learning wi…
Mechanical Engineering
ISBN:
9781305387102
Author:
Kreith, Frank; Manglik, Raj M.
Publisher:
Cengage Learning
International Edition---engineering Mechanics: St…
International Edition---engineering Mechanics: St…
Mechanical Engineering
ISBN:
9781305501607
Author:
Andrew Pytel And Jaan Kiusalaas
Publisher:
CENGAGE L