Legal Statement Year 2000 releases (c) 2000 www.laurencebrundrett.com
Terms This is a license, not a sale. The following terms and conditions apply If you use this product you agree to the following terms and conditions: 1 Registering for this product grants you permission to use this product. The copyright remains with www.laurencebrundrett.com. This notice must be included with all copies made. 2 You may use this product only on a single computer or network, and only by one user at a time. You must register more copies if you need it for more users. 3 This product is sold "as is" without warrantees or liability. It is your responsibility to know how to use this software. Any product designed with this software is your responsibility. The author does not guarantee the accuracy of this product. All risk associated with this products use is assumed by you. 4 www.laurencebrundrett.com does not provide support for the use of this product 5 The codes and standards that this product is based on change periodically. It is your responsibility to check that you are using an appropriate version. This program is not a substitute for knowing the applicable codes and standards. The calculation sheet has a link back to the web page for this product. Check that the version you are using is the latest version. 6 Registering for this product does not guarantee that future versions will be made available as applicable codes and standards change.
Locked Cells This spreadsheet is locked for your convenience. You can move between input cells using the tab key. The password to unlock it is "100" If you make changes to this spreadsheet you are required to remove the "www.laurencebrundrett.com" text. You are responsible for any and all changes that you make.
Updates The codes and standards that this program are based on are updated periodically. If you have registered for this product, reasonable attempts will be made to email you when updated versions are available. You will also be notified when your registration has expired.
Comments If you have comment, corrections or questions about this product send an email to
[email protected].
Registration This program must be registered prior to commercial use. Register this program at www.laurencebrundrett.com Register
Printing A Printing macro is provided with this spreadsheet. Press Ctrl+p to print the calculations. The macro checks for a dangerous condition where Excel allows input values to be changed but does not recalculate the outputs. If this occurs, an error message will pop up. Your computer has run out of resources and must be restarted.
This protection is only available if you use the macro.
2 <- Useful page 2 formula 3 <- Useful page 3 formula
136 137 138 139 142 143 146 147 151 152 158 159 163 164 172 181 182 267 269 270 271
Area Replacement: Fig UG-37.1 Pressure From: A = 1*d*tr*F + 2*tn*tr*F*(1-frone) A Required (internal) = = 1*0*0*1 + 2*0*0*1*(1-1) Ae = 0.5*(d*trE*1 + 2*tn*trE*1*(1-frone)) A Required (external) = = 0.5*(0*0*1 + 2*0*0*1*(1-1)) A1 = max(d, 2*(t+tn)) * (E1*t-F*tr)-2*tn*(E1*t-F*tr)*(1-fr1) A1 = = max(0, 2*(0+0)) * (0*0-1*0)-2*0*(*0-1*0)*(1-1) A1e = max(d, 2*(t+tn)) * (Eone*t-F*trE)-2*tn*(Eone*t-F*trE)*(1-frone) A1e = = max(0, 2*(0+0)) * (0*0-1*0)-2*0*(0*0-1*0)*(1-1) A2 = min((tn-trn)*fr2*Min(5*t,2*L) , (tn-trn)*fr2*Min(5*tn,2*L)) A2 = = #DIV/0! A2e = min((tn-trnE)*frtwo*Min(5*t,2*L) , (tn-trnE)*frtwo*Min(5*tn,2*L)) A2e = = #DIV/0! A41 = Leg41^2*frTwo A41 = #DIV/0! A41 = Actual Area = #DIV/0! Actual-Required = Weld strength calculations are not required per UW-15(b)(1)
Internal 0.000
External
0.000 0.000 0.000 #DIV/0! #DIV/0! #DIV/0! #DIV/0! #DIV/0!
#DIV/0! #DIV/0! #DIV/0!
Universal Nozzle Calculator Written By: Laurence Brundrett Code: ASME VIII Sections: UG-37-45 Update Log Date Change 23-May-99 Verified with L-7.1 Verified with L-7.2 21-May-00 Audit Check Verified with L-7.1 - does not cover reinforcement Hand check calculations 12-Jul-00 Rewrite to match L-7.2 (UW-16(h)) only Removed equations referencing A3 and A43 Added geometry constraints Added legal section Added commentary Verified against Appendix L-7.2 Locked Cells - password = 100 19-Oct-00 Updated to A2000 format - new picture New print macro, legal statement Verified against L-7.2.1 - same results Cells Locked - Password = "100" 19-Oct-00 Modified from UW-16(h) - no proj New drawing Additional calculations for A3 and A43 Verification Calculations are required Cells Locked - Password = "100" 6-Nov-00 Added UG-45 checks Added Nozzle and Pipe Thickness calcs Verified against ASME L-7.3.1 F = 1 for this geometry Locked 27-Dec-00 Modified to universal format nozzle calculator All nozzle calculations are on one spreadsheet New configuration macro written New print macro written All nozzle drawings imported Nozzle UG-40(a) - verified 18-Feb-01 Added Nozzle UW-16.1(e) modified - verified 6-Apr-01 Added Nozzle UW-16.1(a) - verified against ASME L-7.7.1 Added Nozzle UW-16.1(b) - Same calculation as UW-16.1(a) Nozzle Required Thickness now calculated based on ID, not OD UG-40(a) reverified against ASME L-7.6.1 UW-16.1(e) reverified against ASME L-7.6.1 Version Number Changed to 0.6 UW-16.1 (a) and (b) reverified against ASME L-7.6.1 7-Apr-01 Added Nozzle UW-16.1 (c,d,e) 13-Apr-01 Updated selection formulas - all nozzle configurations Added Nozzle UW-16.1(I)
Added Nozzle UG-40(I) 14-Apr-01 Changed format of UG-45 to match calcs from PV Elite - No change in results UG-45 now calculated with undertolerance, compared to nozzle after undertolerance removed 17-Jun-01 Extrerior pressure calculations added 25-Jun-01 Extrerior pressure calculations added - not verified Verified UW-16.1 (c) only for internal pressure 27-Jun-01 Modified UW-16.1(e) - exterior pressure calculations Verified External Pressure Calculations 1-Jul-01 Verifed for all verisions of UW16(q) - in use for UW 16(q) Verified for UW-16(e) modified - in use for UW-16(e) modified Verified for UW-16(e) - in use for UW-16(e) 4-Jul-01 Verified for UW-16(h) modified 10-Jul-01 Modified all weld strength equations for internal and external pressure Standardized formats for projecting through and butting against vessel wall 13-Jul-01 Added UG-42(c) - area replacement calculation 7-Aug-01 Verified for UW-16(k) 2-Oct-01 Added hillside dh entry - manual hillside calcs - version 2.17 Verified against ASME L-7.7 3-Oct-01 Modified UG-40(a) - Removed excess information 10-Oct-01 Added flat plate UG-39 factor Verified flat plate factor Added Diameter Limit Verified Diameter Limit 11-Oct-01 Updated All Drawings Added UW-16.1(c) modified - identical to UW-16.1(e) modified Verified to UW-16.1(e) 12-Oct-01 All Audit Runs UG-40(a-2) Okay UW-16.1(e) mod Okay UW-16.1(c) mod Okay UW-16.1(c) mod flat Okay UW-16.1(h) Okay UW-16.1(h)Mod Okay UW-16.1(a) Okay UW-16.1(a)Hillside Okay UW-16.1(b) Okay UW-16.1(c) Okay UW-16.1(c) Limit Dia Okay UW-16.1(i) Okay UG-40(i) Okay UW-16.1(q) Okay UW-16.1(q) Mod Okay UW-16.1(q) Mod Proj Okay UW-16.1(q) Proj Okay 16-Oct-01 All Audit Runs Cont… UW-16.1(k) Okay 17-Oct-01 UW-16.1(i)mod Okay UG-45 Okay UG-42(c) Okay Version Number = 2.20 19-Oct-01 UW-16.1(I)&UG-40(a-2) Okay Version Number = 2.21
24-Oct-01 UW-16.1(k)mod Okay UW-16.1(k) Removed W3-3 (identical to W2-2) - Okay Version Number = 2.22 Added cell protection to macro - there is no password 19-Dec-01 Added cells for BM and Nozzle Chart Info 24-Feb-02 Corrected Geomety constraints shown for case UG-40(a-2) 12-Apr-02 Added exterior length limits to A2 for cases where exterior pipe is not of infinite length Added corrosion reduction in thickness for area A3 Verified UW-16.1(c) and UW-16.1(e) 16-Jun-02 error in A2 calculation when L=0 fixed Version = 2.25 6-Jul-02 Major Upgrade of setup macro Macro is now embeded in the Nozzle sheet Setup is now automated Version = 3.0 13-Jul-02 UG-45 equation is updated allows for external pressure correction based on internal pressure - UG-45 b2 Updated macro to blank hidden input rows instead of setting value to 0.000 - easier to see items need All Audit Runs UG-40(a-2) Okay UG40(a)&Uw16(i) Okay UW16(e) Okay UW16(e)Mod Okay UW16(h)M Okay UW16(h) Okay UW16(a) Okay Hillside calculation UW16(c) Okay UW16(e) Okay UW16(i) Okay UG42(c) Okay UG40(i) Okay UW16(q)MP Okay UW16(q)M Okay UW16(q) Okay UW16(i)mod Okay UW16(k) Okay UW16(k)mod Okay UW16(c)mod Okay UW16(b) Okay UW16(d) Okay UW16(q)P Okay Spreadsheet locked First copy published to web site
er undertolerance removed
not of infinite length
to 0.000 - easier to see items needing entry
