Sub Initialize() ' Reads ASME constants into Cnst() and bLil Kount1 = 59: Kount2 = 59: Kount3 = 36: Kount4 = 36Įps = Eps - (Buv + bLil * Th * Sum - Buv * bLil * Th * Top / Bot) / Bot 'Private B, Eps, Sum, Kount1, Kount2, Kount3, Kount4, Top, Bot, Buv, Bl, MĮps = Cnst(1) * Th ' Initialize Eps which is Epselon (h/hCrit)Įps = Eps - (Top + bLil * Th * Sum) * B ^ M Sig = Sig - bLil * (Sum - Top / Bot) / Bot ![]() ' Private B, Sig, Sum, Kount1, Kount2, Kount3, Kount4, Top, Bot, Bl, M ![]() It will not calculate "in the other direction." You must iterate (or use Excel's Solver) to do that. ![]() Note that it calculates in only one direction> Pressure and Temperature (psia, degF) to the steam properties. The VBA listing below calculates some of the steam table functions using the 1967 ASME formulation.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |