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

Elements Of Electromagnetics
7th Edition
ISBN:9780190698614
Author:Sadiku, Matthew N. O.
Publisher:Sadiku, Matthew N. O.
ChapterMA: Math Assessment
Section: Chapter Questions
Problem 1.1MA
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
Elements Of Electromagnetics
Elements Of Electromagnetics
Mechanical Engineering
ISBN:
9780190698614
Author:
Sadiku, Matthew N. O.
Publisher:
Oxford University Press
Mechanics of Materials (10th Edition)
Mechanics of Materials (10th Edition)
Mechanical Engineering
ISBN:
9780134319650
Author:
Russell C. Hibbeler
Publisher:
PEARSON
Thermodynamics: An Engineering Approach
Thermodynamics: An Engineering Approach
Mechanical Engineering
ISBN:
9781259822674
Author:
Yunus A. Cengel Dr., Michael A. Boles
Publisher:
McGraw-Hill Education
Control Systems Engineering
Control Systems Engineering
Mechanical Engineering
ISBN:
9781118170519
Author:
Norman S. Nise
Publisher:
WILEY
Mechanics of Materials (MindTap Course List)
Mechanics of Materials (MindTap Course List)
Mechanical Engineering
ISBN:
9781337093347
Author:
Barry J. Goodno, James M. Gere
Publisher:
Cengage Learning
Engineering Mechanics: Statics
Engineering Mechanics: Statics
Mechanical Engineering
ISBN:
9781118807330
Author:
James L. Meriam, L. G. Kraige, J. N. Bolton
Publisher:
WILEY