
function Steamtable()

Saturation_Temperature=mlist(['hm','T [K]','p [Pa]','v1 [m^3/kg]','v2 [m^3/kg]','u1 [kJ/kg]','u2 [kJ/kg]','h1 [kJ/kg]','h2 [kJ/kg]','s1 [kJ/(kg*K)]','s2 [kJ/(kg*K)]']);

Saturation_Temperature('T [K]')=[273.16,278.15,283.15,288.15,293.15,298.15,303.15,308.15,313.15,318.15,323.15,328.15,333.15,338.15,343.15,348.15,353.15,358.15,363.15,368.15,373.15,378.15,383.15,388.15,393.15,398.15,403.15,408.15,413.15,418.15,423.15,428.15,433.15,438.15,443.15,448.15,453.15,458.15,463.15,468.15,473.15,478.15,483.15,488.15,493.15,498.15,503.15,508.15,513.15,518.15,523.15,528.15,533.15,538.15,543.15,548.15,553.15,558.15,563.15,568.15,573.15,578.15,583.15,588.15,593.15,603.15,613.15,623.15,633.15,643.15,647.29];

Saturation_Temperature('p [Pa]')=[611.3,872.1,1227.6,1705.1,2339,3169,4246,5628,7384,9593,12349,15758,19940,25030,31190,38580,47390,57830,70140,84550,101350,120820,143270,169060,198530,232100,270100,313000,361300,415400,475800,543100,617800,700500,791700,892000,1002100,1122700,1254400,1397800,1553800,1723000,1906200,2104000,2318000,2548000,2795000,3060000,3344000,3648000,3973000,4319000,4688000,5081000,5499000,5942000,6412000,6909000,7436000,7993000,8581000,9202000,9856000,10547000,11274000,12845000,14586000,16513000,18651000,21030000,22090000];

Saturation_Temperature('v1 [m^3/kg]')=[0.001,0.001,0.001,0.001001,0.001002,0.001003,0.001004,0.001006,0.001008,0.00101,0.001012,0.001015,0.001017,0.00102,0.001023,0.001026,0.001029,0.001033,0.001036,0.00104,0.001044,0.001048,0.001052,0.001056,0.00106,0.001065,0.00107,0.001075,0.00108,0.001085,0.001091,0.001096,0.001102,0.001108,0.001114,0.001121,0.001127,0.001134,0.001141,0.001149,0.001157,0.001164,0.001173,0.001181,0.00119,0.001199,0.001209,0.001219,0.001229,0.00124,0.001251,0.001263,0.001276,0.001289,0.001302,0.001317,0.001332,0.001348,0.001366,0.001384,0.001404,0.001425,0.001447,0.001472,0.001499,0.001561,0.001638,0.00174,0.001893,0.002213,0.003155];

Saturation_Temperature('v2 [m^3/kg]')=[206.14,147.12,106.38,77.93,57.79,43.36,32.89,25.22,19.52,15.26,12.03,9.568,7.671,6.197,5.042,4.131,3.407,2.828,2.361,1.982,1.6729,1.4194,1.2102,1.0366,0.8919,0.7706,0.6685,0.5822,0.5089,0.4463,0.3928,0.3468,0.3071,0.2727,0.2428,0.2168,0.19405,0.17409,0.15654,0.14105,0.12736,0.11521,0.10441,0.09479,0.08619,0.07849,0.07158,0.06537,0.05976,0.05471,0.05013,0.04598,0.04221,0.03877,0.03564,0.03279,0.03017,0.02777,0.02557,0.02354,0.02167,0.019948,0.01835,0.016867,0.015488,0.012996,0.010797,0.008813,0.006945,0.004925,0.003155];

Saturation_Temperature('u1 [kJ/kg]')=[0,20.97,42,62.99,83.95,104.88,125.78,146.67,167.56,188.44,209.32,230.21,251.11,272.02,292.95,313.9,334.86,355.84,376.85,397.88,418.94,440.02,461.14,482.3,503.5,524.74,546.02,567.35,588.74,610.18,631.68,653.24,674.87,696.56,718.33,740.17,762.09,784.1,806.19,828.37,850.65,873.04,895.53,918.14,940.87,963.73,986.74,1009.89,1033.21,1056.71,1080.39,1104.28,1128.39,1152.74,1177.36,1202.25,1227.46,1253,1278.92,1305.2,1332,1359.3,1387.1,1415.5,1444.6,1505.3,1570.3,1641.9,1725.2,1844,2029.6];

Saturation_Temperature('u2 [kJ/kg]')=[2375.3,2382.3,2389.2,2396.1,2402.9,2409.8,2416.6,2423.4,2430.1,2436.8,2443.5,2450.1,2456.6,2463.1,2469.6,2475.9,2482.2,2488.4,2494.5,2500.6,2506.5,2512.4,2518.1,2523.7,2529.3,2534.6,2539.9,2545,2550,2554.9,2559.5,2564.1,2568.4,2572.5,2576.5,2580.2,2583.7,2587,2590,2592.8,2595.3,2597.5,2599.5,2601.1,2602.4,2603.3,2603.9,2604.1,2604,2603.4,2602.4,2600.9,2599,2596.6,2593.7,2590.2,2586.1,2581.4,2576,2569.9,2563,2555.2,2546.4,2536.6,2525.5,2498.9,2464.6,2418.4,2351.5,2228.5,2029.6];

Saturation_Temperature('h1 [kJ/kg]')=[0.01,20.98,42.01,62.99,83.96,104.89,125.79,146.68,167.57,188.45,209.33,230.23,251.13,272.06,292.98,313.93,334.91,355.9,376.92,397.96,419.04,440.15,461.3,482.48,503.71,524.99,546.31,567.69,589.13,610.63,632.2,653.84,675.55,697.34,719.21,741.17,763.22,785.37,807.62,829.98,852.45,875.04,897.76,920.62,943.62,966.78,990.12,1013.62,1037.32,1061.23,1085.36,1109.73,1134.37,1159.28,1184.51,1210.07,1235.99,1262.31,1289.07,1316.3,1344,1372.4,1401.3,1431,1461.5,1525.3,1594.2,1670.6,1760.5,1890.5,2099.3];

Saturation_Temperature('h2 [kJ/kg]')=[2501.4,2510.6,2519.8,2528.9,2538.1,2547.2,2556.3,2565.3,2574.3,2583.2,2592.1,2600.9,2609.6,2618.3,2626.8,2635.3,2643.7,2651.9,2660.1,2668.1,2676.1,2683.8,2691.5,2699,2706.3,2713.5,2720.5,2727.3,2733.9,2740.3,2746.5,2752.4,2758.1,2763.5,2768.7,2773.6,2778.2,2782.4,2786.4,2790,2793.2,2796,2798.5,2800.5,2802.1,2803.3,2804,2804.2,2803.8,2803,2801.5,2799.5,2796.9,2793.6,2789.7,2785,2779.6,2773.3,2766.2,2758.1,2749,2738.7,2727.3,2714.5,2700.1,2665.9,2622,2563.9,2481,2332.1,2099.3];

Saturation_Temperature('s1 [kJ/(kg*K)]')=[0,0.0761,0.151,0.2245,0.2966,0.3674,0.4369,0.5053,0.5725,0.6387,0.7038,0.7679,0.8312,0.8935,0.9549,1.0155,1.0753,1.1343,1.1925,1.25,1.3069,1.363,1.4185,1.4734,1.5276,1.5813,1.6344,1.687,1.7391,1.7907,1.8418,1.8925,1.9427,1.9925,2.0419,2.0909,2.1396,2.1879,2.2359,2.2835,2.3309,2.378,2.4248,2.4714,2.5178,2.5639,2.6099,2.6558,2.7015,2.7472,2.7927,2.8383,2.8838,2.9294,2.9751,3.0208,3.0668,3.113,3.1594,3.2062,3.2534,3.301,3.3493,3.3982,3.448,3.5507,3.6594,3.7777,3.9147,4.1106,4.4298];

Saturation_Temperature('s2 [kJ/(kg*K)]')=[9.1562,9.0257,8.9008,8.7814,8.6672,8.558,8.4533,8.3531,8.257,8.1648,8.0763,7.9913,7.9069,7.831,7.7553,7.6824,7.6122,7.5445,7.4791,7.4159,7.3549,7.2958,7.2387,7.1833,7.1296,7.0775,7.0269,6.9777,6.9299,6.8833,6.8379,6.7935,6.7502,6.7078,6.6663,6.6256,6.5857,6.5465,6.5079,6.4698,6.4323,6.3952,6.3585,6.3221,6.2861,6.2503,6.2146,6.1791,6.1437,6.1083,6.073,6.0375,6.0019,5.9662,5.9301,5.8938,5.8571,5.8199,5.7821,5.7437,5.7045,5.6643,5.623,5.5804,5.5362,5.4417,5.3357,5.2112,5.0526,4.7971,4.4298];

Saturation_Pressure=mlist(['hm','T [K]','p [Pa]','v1 [m^3/kg]','v2 [m^3/kg]','u1 [kJ/kg]','u2 [kJ/kg]','h1 [kJ/kg]','h2 [kJ/kg]','s1 [kJ/(kg*K)]','s2 [kJ/(kg*K)]']);

Saturation_Pressure('T [K]')=[273.16,280.13,286.18,290.65,294.23,297.23,302.11,306.03,313.44,318.96,327.12,333.21,338.12,342.25,349.02,354.48,364.93,372.78,379.14,384.52,389.21,393.38,397.15,400.59,403.75,406.7,409.45,412.03,414.47,416.78,421.08,425.01,428.63,432,435.16,438.12,440.93,443.58,446.11,448.53,450.84,453.06,457.24,461.14,464.79,468.22,471.47,478.91,485.57,491.6,497.14,507.05,515.75,523.55,537.14,548.79,559.03,568.21,576.55,584.21,591.3,597.9,604.08,609.9,615.39,620.59,625.52,630.21,634.69,638.96,643.04,646.95,647.29];

Saturation_Pressure('p [Pa]')=[611.3,1000,1500,2000,2500,3000,4000,5000,7500,10000,15000,20000,25000,30000,40000,50000,75000,100000,125000,150000,175000,200000,225000,250000,275000,300000,325000,350000,375000,400000,450000,500000,550000,600000,650000,700000,750000,800000,850000,900000,950000,1000000,1100000,1200000,1300000,1400000,1500000,1750000,2000000,2250000,2500000,3000000,3500000,4000000,5000000,6000000,7000000,8000000,9000000,10000000,11000000,12000000,13000000,14000000,15000000,16000000,17000000,18000000,19000000,20000000,21000000,22000000,22090000];

Saturation_Pressure('v1 [m^3/kg]')=[0.001,0.001,0.001001,0.001001,0.001002,0.001003,0.001004,0.001005,0.001008,0.00101,0.001014,0.001017,0.00102,0.001022,0.001027,0.00103,0.001037,0.001043,0.001048,0.001053,0.001057,0.001061,0.001064,0.001067,0.00107,0.001073,0.001076,0.001079,0.001081,0.001084,0.001088,0.001093,0.001097,0.001101,0.001104,0.001108,0.001112,0.001115,0.001118,0.001121,0.001124,0.001127,0.001133,0.001139,0.001144,0.001149,0.001154,0.001166,0.001177,0.001187,0.001197,0.001217,0.001235,0.001252,0.001286,0.001319,0.001351,0.001384,0.001418,0.001452,0.001489,0.001527,0.001567,0.001611,0.001658,0.001711,0.00177,0.00184,0.001924,0.002036,0.002207,0.002742,0.003155];

Saturation_Pressure('v2 [m^3/kg]')=[206.14,129.21,87.98,67,54.25,45.67,34.8,28.19,19.24,14.67,10.02,7.649,6.204,5.229,3.993,3.24,2.217,1.694,1.3749,1.1593,1.0036,0.8857,0.7933,0.7187,0.6573,0.6058,0.562,0.5243,0.4914,0.4625,0.414,0.3749,0.3427,0.3157,0.2927,0.2729,0.2556,0.2404,0.227,0.215,0.2042,0.19444,0.17753,0.16333,0.15125,0.14084,0.13177,0.11349,0.09963,0.08875,0.07998,0.06668,0.05707,0.04978,0.03944,0.03244,0.02737,0.02352,0.02048,0.018026,0.015987,0.014263,0.01278,0.011485,0.010337,0.009306,0.008364,0.007489,0.006657,0.005834,0.004952,0.003568,0.003155];

Saturation_Pressure('u1 [kJ/kg]')=[0,29.3,54.71,73.48,88.48,101.04,121.45,137.81,168.78,191.82,225.92,251.38,271.9,289.2,317.53,340.44,384.31,417.36,444.19,466.94,486.8,504.49,520.47,535.1,548.59,561.15,572.9,583.95,594.4,604.31,622.77,639.68,655.32,669.9,683.56,696.44,708.64,720.22,731.27,741.83,751.95,761.68,780.09,797.29,813.44,828.7,843.16,876.46,906.44,933.83,959.11,1004.78,1045.43,1082.31,1147.81,1205.44,1257.55,1305.57,1350.51,1393.04,1433.7,1473,1511.1,1548.6,1585.6,1622.7,1660.2,1698.9,1739.9,1785.6,1842.1,1961.9,2029.6];

Saturation_Pressure('u2 [kJ/kg]')=[2375.3,2385,2393.3,2399.5,2404.4,2408.5,2415.2,2420.5,2430.5,2437.9,2448.7,2456.7,2463.1,2468.4,2477,2483.9,2496.7,2506.1,2513.5,2519.7,2524.9,2529.5,2533.6,2537.2,2540.5,2543.6,2546.4,2548.9,2551.3,2553.6,2557.6,2561.2,2564.5,2567.4,2570.1,2572.5,2574.7,2576.8,2578.7,2580.5,2582.1,2583.6,2586.4,2588.8,2591,2592.8,2594.5,2597.8,2600.3,2602,2603.1,2604.1,2603.7,2602.3,2597.1,2589.7,2580.5,2569.8,2557.8,2544.4,2529.8,2513.7,2496.1,2476.8,2455.5,2431.7,2405,2374.3,2338.1,2293,2230.6,2087.1,2029.6];

Saturation_Pressure('h1 [kJ/kg]')=[0.01,29.3,54.71,73.48,88.49,101.05,121.46,137.82,168.79,191.83,225.94,251.4,271.93,289.23,317.58,340.49,384.39,417.46,444.32,467.11,486.99,504.7,520.72,535.37,548.89,561.47,573.25,584.33,594.81,604.74,623.25,640.23,655.93,670.56,684.28,697.22,709.47,721.11,732.22,742.83,753.02,762.81,781.34,798.65,814.93,830.3,844.89,878.5,908.79,936.49,962.11,1008.42,1049.75,1087.31,1154.23,1213.35,1267,1316.64,1363.26,1407.56,1450.1,1491.3,1531.5,1571.1,1610.5,1650.1,1690.3,1732,1776.5,1826.3,1888.4,2022.2,2099.3];

Saturation_Pressure('h2 [kJ/kg]')=[2501.4,2514.2,2525.3,2533.5,2540,2545.5,2554.4,2561.5,2574.8,2584.7,2599.1,2609.7,2618.2,2625.3,2636.8,2645.9,2663,2675.5,2685.4,2693.6,2700.6,2706.7,2712.1,2716.9,2721.3,2725.3,2729,2732.4,2735.6,2738.6,2743.9,2748.7,2753,2756.8,2760.3,2763.5,2766.4,2769.1,2771.6,2773.9,2776.1,2778.1,2781.7,2784.8,2787.6,2790,2792.2,2796.4,2799.5,2801.7,2803.1,2804.2,2803.4,2801.4,2794.3,2784.3,2772.1,2758,2742.1,2724.7,2705.6,2684.9,2662.2,2637.6,2610.5,2580.6,2547.2,2509.1,2464.5,2409.7,2334.6,2165.6,2099.3];

Saturation_Pressure('s1 [kJ/(kg*K)]')=[0,0.1059,0.1957,0.2607,0.312,0.3545,0.4226,0.4764,0.5764,0.6493,0.7549,0.832,0.8931,0.9439,1.0259,1.091,1.213,1.3026,1.374,1.4336,1.4849,1.5301,1.5706,1.6072,1.6408,1.6718,1.7006,1.7275,1.7528,1.7766,1.8207,1.8607,1.8973,1.9312,1.9627,1.9922,2.02,2.0462,2.071,2.0946,2.1172,2.1387,2.1792,2.2166,2.2515,2.2842,2.315,2.3851,2.4474,2.5035,2.5547,2.6457,2.7253,2.7964,2.9202,3.0267,3.1211,3.2068,3.2858,3.3596,3.4295,3.4962,3.5606,3.6232,3.6848,3.7461,3.8079,3.8715,3.9388,4.0139,4.1075,4.311,4.4298];

Saturation_Pressure('s2 [kJ/(kg*K)]')=[9.1562,8.9756,8.8279,8.7237,8.6432,8.5776,8.4746,8.3951,8.2515,8.1502,8.0085,7.9085,7.8314,7.7686,7.67,7.5939,7.4564,7.3594,7.2844,7.2233,7.1717,7.1271,7.0878,7.0527,7.0209,6.9919,6.9652,6.9405,6.9175,6.8959,6.8565,6.8213,6.7893,6.76,6.7331,6.708,6.6847,6.6628,6.6421,6.6226,6.6041,6.5865,6.5536,6.5233,6.4953,6.4693,6.4448,6.3896,6.3409,6.2972,6.2575,6.1869,6.1253,6.0701,5.9734,5.8892,5.8133,5.7432,5.6772,5.6141,5.5527,5.4924,5.4323,5.3717,5.3098,5.2455,5.1777,5.1044,5.0228,4.9269,4.8013,4.5327,4.4298];

Superheated_Steam=mlist(['hm','T [K]','p [Pa]','v [m^3/kg]','u [kJ/kg]','h [kJ/kg]','s [kJ/(kg*K)]']);

Superheated_Steam('T [K]')=[318.96,323.15,373.15,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,354.48,373.15,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,372.78,373.15,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,393.38,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,406.7,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,416.78,423.15,473.15,523.15,573.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,425.01,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,432,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,443.58,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,453.06,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,461.14,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,468.22,473.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,474.56,498.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,480.3,498.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,485.57,498.15,523.15,573.15,623.15,673.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,,497.14,498.15,523.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,507.05,523.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,515.75,523.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,523.55,548.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,530.64,548.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,537.14,548.15,573.15,623.15,673.15,723.15,773.15,873.15,973.15,1073.15,1173.15,1273.15,548.79,573.15,623.15,673.15,723.15,773.15,823.15,873.15,973.15,1073.15,1173.15,1273.15,559.03,573.15,623.15,673.15,723.15,773.15,823.15,873.15,973.15,1073.15,1173.15,1273.15,568.21,573.15,623.15,673.15,723.15,773.15,823.15,873.15,973.15,1073.15,1173.15,1273.15,576.55,598.15,623.15,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,584.21,598.15,623.15,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,601.04,623.15,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,615.39,623.15,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,627.9,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,638.96,673.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15,648.15,673.15,698.15,723.15,773.15,823.15,873.15,923.15,973.15,1073.15,1173.15,1273.15];

Superheated_Steam('p [Pa]')=[10000,10000,10000,10000,10000,10000,10000,10000,10000,10000,10000,10000,10000,10000,50000,50000,50000,50000,50000,50000,50000,50000,50000,50000,50000,50000,50000,100000,100000,100000,100000,100000,100000,100000,100000,100000,100000,100000,100000,100000,200000,200000,200000,200000,200000,200000,200000,200000,200000,200000,200000,200000,300000,300000,300000,300000,300000,300000,300000,300000,300000,300000,300000,300000,400000,400000,400000,400000,400000,400000,400000,400000,400000,400000,400000,400000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,600000,600000,600000,600000,600000,600000,600000,600000,600000,600000,600000,600000,800000,800000,800000,800000,800000,800000,800000,800000,800000,800000,800000,800000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1000000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1200000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1400000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1600000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,1800000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,2500000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3000000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,3500000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4000000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,4500000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,6000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,7000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,8000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,9000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,12500000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,17500000,17500000,17500000,17500000,17500000,17500000,17500000,17500000,17500000,17500000,17500000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,25000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,35000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,40000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000,60000000];

Superheated_Steam('v [m^3/kg]')=[14.674,14.869,17.196,19.512,21.825,24.136,26.445,31.063,35.679,40.295,44.911,49.526,54.141,58.757,3.24,3.418,3.889,4.356,4.82,5.284,6.209,7.134,8.057,8.981,9.904,10.828,11.751,1.694,1.6958,1.9364,2.172,2.406,2.639,3.103,3.565,4.028,4.49,4.952,5.414,5.875,0.8857,0.9596,1.0803,1.1988,1.3162,1.5493,1.7814,2.013,2.244,2.475,2.706,2.937,0.6058,0.6339,0.7163,0.7964,0.8753,1.0315,1.1867,1.3414,1.4957,1.6499,1.8041,1.9581,0.4625,0.4708,0.5342,0.5951,0.6548,0.7726,0.8893,1.0055,1.1215,1.2372,1.3529,1.4685,0.3749,0.4249,0.4744,0.5226,0.5701,0.6173,0.7109,0.8041,0.8969,0.9896,1.0822,1.1747,0.3157,0.352,0.3938,0.4344,0.4742,0.5137,0.592,0.6697,0.7472,0.8245,0.9017,0.9788,0.2404,0.2608,0.2931,0.3241,0.3544,0.3834,0.4433,0.5018,0.5601,0.6181,0.6761,0.734,0.19444,0.206,0.2327,0.2579,0.2825,0.3066,0.3541,0.4011,0.4478,0.4943,0.5407,0.5871,0.16333,0.1693,0.19234,0.2138,0.2345,0.2548,0.2946,0.3339,0.3729,0.4118,0.4505,0.4892,0.14084,0.14302,0.1635,0.18228,0.2003,0.2178,0.2521,0.286,0.3195,0.3528,0.3861,0.4192,0.1238,0.13287,0.14184,0.15862,0.17456,0.19005,0.2203,0.25,0.2794,0.3086,0.3377,0.3668,0.11042,0.11673,0.12497,0.14021,0.15457,0.16847,0.1955,0.222,0.2482,0.2742,0.3001,0.326,0.09963,0.10377,0.11144,0.12547,0.13857,0.1512,0.17568,0.1996,0.2232,0.2467,0.27,0.2933,0.07998,0.08027,0.087,0.0989,0.10976,0.1201,0.13014,0.13998,0.1593,0.17832,0.19716,0.2159,0.2346,0.06668,0.07058,0.08114,0.09053,0.09936,0.10787,0.11619,0.13243,0.14838,0.16414,0.1798,0.19541,0.05707,0.05872,0.06842,0.07678,0.08453,0.09196,0.09918,0.11324,0.12699,0.14056,0.15402,0.16743,0.04978,0.05457,0.05884,0.06645,0.07341,0.08002,0.08643,0.09885,0.11095,0.12287,0.13469,0.14645,0.04406,0.0473,0.05135,0.0584,0.06475,0.07074,0.07651,0.08765,0.09847,0.10911,0.11965,0.13013,0.03944,0.04141,0.04532,0.05194,0.05781,0.0633,0.06857,0.07869,0.08849,0.09811,0.10762,0.11707,0.03244,0.03616,0.04223,0.04739,0.05214,0.05665,0.06101,0.06525,0.07352,0.0816,0.08958,0.09749,0.02737,0.02947,0.03524,0.03993,0.04416,0.04814,0.05195,0.05565,0.06283,0.06981,0.07669,0.0835,0.02352,0.02426,0.02995,0.03432,0.03817,0.04175,0.04516,0.04845,0.05481,0.06097,0.06702,0.07301,0.02048,0.02327,0.0258,0.02993,0.0335,0.03677,0.03987,0.04285,0.04574,0.04857,0.05409,0.0595,0.06485,0.018026,0.019861,0.02242,0.02641,0.02975,0.03279,0.03564,0.03837,0.04101,0.04358,0.04859,0.05349,0.05832,0.013495,0.016126,0.02,0.02299,0.0256,0.02801,0.03029,0.03248,0.0346,0.03869,0.04267,0.04658,0.010337,0.01147,0.015649,0.018445,0.0208,0.02293,0.02491,0.0268,0.02861,0.0321,0.03546,0.03875,0.00792,0.012447,0.015174,0.017358,0.019288,0.02106,0.02274,0.02434,0.02738,0.03031,0.03316,0.005834,0.009942,0.012695,0.014768,0.016555,0.018178,0.019693,0.02113,0.02385,0.02645,0.02897,0.0019731,0.006004,0.007881,0.009162,0.011123,0.012724,0.014137,0.015433,0.016646,0.018912,0.021045,0.0231,0.0017892,0.00279,0.005303,0.006735,0.008678,0.010168,0.011446,0.012596,0.013661,0.015623,0.017448,0.019196,0.0017003,0.0021,0.003428,0.004961,0.006927,0.008345,0.009527,0.010575,0.011533,0.013278,0.014883,0.01641,0.0016407,0.0019077,0.002532,0.003693,0.005622,0.006984,0.008094,0.009063,0.009941,0.011523,0.012962,0.014324,0.0015594,0.0017309,0.002007,0.002486,0.003892,0.005118,0.006112,0.006966,0.007727,0.009076,0.010283,0.011411,0.0015028,0.0016335,0.0018165,0.002085,0.002956,0.003956,0.004834,0.005595,0.006272,0.007459,0.008508,0.00948];

Superheated_Steam('u [kJ/kg]')=[2437.9,2443.9,2515.5,2587.9,2661.3,2736,2812.1,2968.9,3132.3,3302.5,3479.6,3663.8,3855,4053,2483.9,2511.6,2585.6,2659.9,2735,2811.3,2968.5,3132,3302.2,3479.4,3663.6,3854.9,4052.9,2506.1,2506.7,2582.8,2658.1,2733.7,2810.4,2967.9,3131.6,3301.9,3479.2,3663.5,3854.8,4052.8,2529.5,2576.9,2654.4,2731.2,2808.6,2966.7,3130.8,3301.4,3478.8,3663.1,3854.5,4052.5,2543.6,2570.8,2650.7,2728.7,2806.7,2965.6,3130,3300.8,3478.4,3662.9,3854.2,4052.3,2553.6,2564.5,2646.8,2726.1,2804.8,2964.4,3129.2,3300.2,3477.9,3662.4,3853.9,4052,2561.2,2642.9,2723.5,2802.9,2882.6,2963.2,3128.4,3299.6,3477.5,3662.1,3853.6,4051.8,2567.4,2638.9,2720.9,2801,2881.2,2962.1,3127.6,3299.1,3477,3661.8,3853.4,4051.5,2576.8,2630.6,2715.5,2797.2,2878.2,2959.7,3126,3297.9,3476.2,3661.1,3852.8,4051,2583.6,2621.9,2709.9,2793.2,2875.2,2957.3,3124.4,3296.8,3475.3,3660.4,3852.2,4050.5,2588.8,2612.8,2704.2,2789.2,2872.2,2954.9,3122.8,3295.6,3474.4,3659.7,3851.6,4050,2592.8,2603.1,2698.3,2785.2,2869.2,2952.5,3121.1,3294.4,3473.6,3659,3851.1,4050,2596,2644.7,2692.3,2781.1,2866.1,2950.1,3119.5,3293.3,3472.7,3658.3,3850.5,4049,2598.4,2636.6,2686,2776.9,2863,2947.7,3117.9,3292.1,3471.8,3657.6,3849.9,4048.5,2600.3,2628.3,2679.6,2772.6,2859.8,2945.2,3116.2,3290.9,3470.9,3657,3849.3,4048,2603.1,2605.6,2662.6,2761.6,2851.9,2939.1,3025.5,3112.1,3288,3468.7,3655.3,3847.9,4046.7,2604.1,2644,2750.1,2843.7,2932.8,3020.4,3108,3285,3466.5,3653.5,3846.5,4045.4,2603.7,2623.7,2738,2835.3,2926.4,3015.3,3103,3282.1,3464.3,3651.8,3845,4044.1,2602.3,2667.9,2725.3,2826.7,2919.9,3010.2,3099.5,3279.1,3462.1,3650,3843.6,4042.9,2600.1,2650.3,2712,2817.8,2913.3,3005,3095.3,3276,3459.9,3648.3,3842.2,4041.6,2597.1,2631.3,2698,2808.7,2906.6,2999.7,3091,3273,3457.6,3646.6,3840.7,4040.4,2589.7,2667.2,2789.6,2892.9,2988.9,3082.2,3174.6,3266.9,3453.1,3643.1,3837.8,4037.8,2580.5,2632.2,2769.4,2878.6,2978,3073.4,3167.2,3260.7,3448.5,3639.5,3835,4035.3,2569.1,2590.9,2747.7,2863.8,2966.7,3064.3,3159.8,3254.4,3443.9,3636,3832.1,4032.8,2557.8,2646.6,2724.4,2848.4,2955.2,3055.2,3152.2,3248.1,3343.6,3439.3,3632.5,3829.2,4030.3,2544.4,2610.4,2699.2,2832.4,2943.4,3045.8,3144.6,3241.7,3338.2,3434.7,3628.9,3826.3,4027.8,2505.1,2624.6,2789.3,2912.5,3021.7,3125,3225.4,3324.4,3422.9,3620,3819.1,4021.6,2453.3,2520.4,2740.7,2879.5,2996.6,3104.7,3208.6,3310.3,3410.9,3610.9,3811.9,4015.4,2390.2,2685,2844.2,2970.3,3083.9,3191.5,3296,3398.7,3601.8,3804.7,4009.3,2293,2619.3,2806.2,2942.9,3062.4,3174,3281.4,3386.4,3592.7,3797.5,4003.1,1798.7,2430.1,2609.2,2720.7,2884.3,3017.5,3137.9,3251.6,3361.3,3574.3,3783,3990,1737.8,2067.4,2455.1,2619.3,2820.7,2970.3,3100.5,3221,3335.8,3555.5,3768.5,3978.8,1702.9,1914.1,2253.4,2498.7,2751.9,2921,3062,3189.8,3309.8,3536.7,3754,3966.7,1677.1,1854.6,2096.9,2365.1,2678.4,2869.7,3022.6,3158,3283.6,3517.8,3739.4,3954.6,1638.6,1788.1,1959.7,2159.6,2525.5,2763.6,2942,3093.5,3230.5,3479.8,3710.3,3930.5,1609.4,1745.4,1892.7,2053.9,2390.6,2658.8,2861.1,3028.8,3177.2,3441.5,3681,3906.4];

Superheated_Steam('h [kJ/kg]')=[2584.7,2592.6,2687.5,2783,2879.5,2977.3,3076.5,3279.6,3489.1,3705.4,3928.7,4159,4396.4,4640.6,2645.9,2682.5,2780.1,2877.7,2976,3075.5,3278.9,3488.7,3705.1,3928.5,4158.9,4396.3,4640.5,2675.5,2676.2,2776.4,2875.3,2974.3,3074.3,3278.2,3488.1,3704.7,3928.2,4158.6,4396.1,4640.3,2706.7,2768.8,2870.5,2971,3071.8,3276.6,3487.1,3704,3927.6,4158.2,4395.8,4640,2725.3,2761,2865.6,2967.6,3069.3,3275,3486,3703.2,3927.1,4157.8,4395.4,4639.7,2738.6,2752.8,2860.5,2964.2,3066.8,3273.4,3484.9,3702.4,3926.5,4157.3,4395.1,4639.4,2748.7,2855.4,2960.7,3064.2,3167.7,3271.9,3483.9,3701.7,3925.9,4156.9,4394.7,4639.1,2756.8,2850.1,2957.2,3061.6,3165.7,3270.3,3482.8,3700.9,3925.3,4156.5,4394.4,4638.8,2769.1,2839.3,2950,3056.5,3161.7,3267.1,3480.6,3699.4,3924.2,4155.6,4393.7,4638.2,2778.1,2827.9,2942.6,3051.2,3157.7,3263.9,3478.5,3697.9,3923.1,4154.7,4392.9,4637.6,2784.8,2815.9,2935,3045.8,3153.6,3260.7,3476.3,3696.3,3922,4153.8,4392.2,4637,2784.8,2815.9,2935,3045.8,3153.6,3260.7,3476.3,3696.3,3922,4153.8,4392.2,4637.02,2794,2857.3,2919.2,3034.8,3145.4,3254.2,3472,3693.2,3919.7,4152.1,4390.8,4635.8,2797.1,2846.7,2911,3029.2,3141.2,3250.9,3469.8,3691.7,3918.5,4151.2,4390.1,4635.2,2799.5,2835.8,2902.5,3023.5,3137,3247.6,3467.6,3690.1,3917.4,4150.3,4389.4,4634.6,2803.1,2806.3,2880.1,3008.8,3126.3,3239.3,3350.8,3462.1,3686.3,3914.5,4148.2,4387.6,4633.1,2804.2,2855.8,2993.5,3115.3,3230.9,3344,3456.5,3682.3,3911.7,4145.9,4385.9,4631.6,2803.4,2829.2,2977.5,3104,3222.3,3337.2,3450.9,3678.4,3908.8,4143.7,4384.1,4630.1,2801.4,2886.2,2960.7,3092.5,3213.6,3330.3,3445.3,3674.4,3905.9,4141.5,4382.3,4628.7,2798.3,2863.2,2943.1,3080.6,3204.7,3323.3,3439.6,3670.5,3903,4139.3,4380.6,4627.2,2794.3,2838.3,2924.5,3068.4,3195.7,3316.2,3433.8,3666.5,3900.1,4137.1,4378.8,4625.7,2784.3,2884.2,3043,3177.2,3301.8,3422.2,3540.6,3658.4,3894.2,4132.7,4375.3,4622.7,2772.1,2838.4,3016,3158.1,3287.1,3410.3,3530.9,3650.3,3888.3,4128.2,4371.8,4619.8,2758,2785,2987.3,3138.3,3272,3398.3,3521,3642,3882.4,4123.8,4368.3,4616.9,2742.1,2856,2956.6,3117.8,3256.6,3386.1,3511,3633.7,3755.3,3876.5,4119.3,4364.8,4614,2724.7,2809.1,2923.4,3096.5,3240.9,3373.7,3500.9,3625.3,3748.2,3870.5,4114.8,4361.2,4611,2673.8,2826.2,3039.3,3199.8,3341.8,3475.2,3604,3730.4,3855.3,4103.6,4352.5,4603.8,2610.5,2692.4,2975.5,3156.2,3308.6,3448.6,3582.3,3712.3,3840.1,4092.4,4343.8,4596.6,2528.8,2902.9,3109.7,3274.1,3421.4,3560.1,3693.9,3824.6,4081.1,4335.1,4589.5,2409.7,2818.1,3060.1,3238.2,3393.5,3537.6,3675.3,3809,4069.7,4326.4,4582.5,1848,2580.2,2806.3,2949.7,3162.4,3335.6,3491.4,3637.4,3777.5,4047.1,4309.1,4568.5,1791.5,2151.1,2614.2,2821.4,3081.1,3275.4,3443.9,3598.9,3745.6,4024.2,4291.9,4554.7,1762.4,1987.6,2373.4,2672.4,2994.4,3213,3395.3,3559.9,3713.5,4001.5,4274.9,4541.1,1742.8,1930.9,2198.1,2512.8,2903.3,3149.1,3346.4,3520.6,3681.2,3978.7,4257.9,4527.6,1716.6,1874.6,2060,2284,2720.1,3019.5,3247.6,3441.8,3616.8,3933.6,4224.4,4501.1,1699.5,1843.4,2001.7,2179,2567.9,2896.2,3151.2,3364.5,3553.5,3889.1,4191.5,4475.2];

Superheated_Steam('s [kJ/(kg*K)]')=[8.1502,8.1749,8.4479,8.6882,8.9038,9.1002,9.2813,9.6077,9.8978,10.1608,10.4028,10.6281,10.8396,11.0393,7.5939,7.6947,7.9401,8.158,8.3556,8.5373,8.8642,9.1546,9.4178,9.6599,9.8852,10.0967,10.2964,7.3594,7.3614,7.6134,7.8343,8.0333,8.2158,8.5435,8.8342,9.0976,9.3398,9.5652,9.7767,9.9764,7.1272,7.2795,7.5066,7.7086,7.8926,8.2218,8.5133,8.777,9.0194,9.2449,9.4566,9.6563,6.9919,7.0778,7.3115,7.5166,7.7022,8.033,8.3251,8.5892,8.8319,9.0576,9.2692,9.469,6.8959,6.9299,7.1706,7.3789,7.5662,7.8985,8.1913,8.4558,8.6987,8.9244,9.1362,9.336,6.8213,7.0592,7.2709,7.4599,7.6329,7.7938,8.0873,8.3522,8.5952,8.8211,9.0329,9.2328,6.76,6.9665,7.1816,7.3724,7.5464,7.7079,8.0021,8.2674,8.5107,8.7367,8.9486,9.1485,6.6628,6.8158,7.0384,7.2328,7.4089,7.5716,7.8673,8.1333,8.377,8.6033,8.8153,9.0153,6.5865,6.694,6.9247,7.1229,7.3011,7.4651,7.7622,8.029,8.2731,8.4996,8.7118,8.9119,6.5233,6.5898,6.8294,7.0317,7.2121,7.3774,7.6759,7.9435,8.1881,8.4148,8.6272,8.8274,6.4693,6.4975,6.7467,6.9534,7.136,7.3026,7.6027,7.871,8.116,8.3431,8.5556,8.7559,6.4218,6.5518,6.6732,6.8844,7.0694,7.2374,7.539,7.808,8.0535,8.2808,8.4935,8.6938,6.3794,6.4808,6.6066,6.8226,7.01,7.1794,7.4825,7.7523,7.9983,8.2258,8.4386,8.6391,6.3409,6.4147,6.5453,6.7664,6.9563,7.1271,7.4317,7.7024,7.9487,8.1765,8.3895,8.5901,6.2575,6.2639,6.4085,6.6438,6.8403,7.0148,7.1746,7.3234,7.596,7.8435,8.072,8.2853,8.4861,6.1869,6.2872,6.539,6.7428,6.9212,7.0834,7.2338,7.5085,7.7571,7.9862,8.1999,8.4009,6.1253,6.1749,6.4461,6.6579,6.8405,7.0052,7.1572,7.4339,7.6837,7.9134,8.1276,8.3288,6.0701,6.2285,6.3615,6.5821,6.769,6.9363,7.0901,7.3688,7.6198,7.8502,8.0647,8.2662,6.0198,6.1401,6.2828,6.5131,6.7047,6.8746,7.0301,7.311,7.5631,7.7942,8.0091,8.2108,5.9734,6.0544,6.2084,6.4493,6.6459,6.8186,6.9759,7.2589,7.5122,7.744,7.9593,8.1612,5.8892,6.0674,6.3335,6.5408,6.7193,6.8803,7.0288,7.1677,7.4234,7.6566,7.8727,8.0751,5.8133,5.9305,6.2283,6.4478,6.6327,6.7975,6.9486,7.0894,7.3476,7.5822,7.7991,8.002,5.7432,5.7906,6.1301,6.3634,6.5551,6.724,6.8778,7.0206,7.2812,7.5173,7.7351,7.9384,5.6772,5.8712,6.0361,6.2854,6.4844,6.6576,6.8142,6.9589,7.0943,7.2221,7.4596,7.6783,7.8821,5.6141,5.7568,5.9443,6.212,6.419,6.5966,6.7561,6.9029,7.0398,7.1687,7.4077,7.6272,7.8315,5.4624,5.7118,6.0417,6.2719,6.4618,6.629,6.781,6.9218,7.0536,7.2965,7.5182,7.7237,5.3098,5.4421,5.8811,6.1404,6.3443,6.5199,6.6776,6.8224,6.9572,7.204,7.4279,7.6348,5.1419,5.7213,6.0184,6.2383,6.423,6.5866,6.7357,6.8736,7.1244,7.3507,7.5589,4.9269,5.554,5.9017,6.1401,6.3348,6.5048,6.6582,6.7993,7.0544,7.283,7.4925,4.032,5.1418,5.4723,5.6744,5.9592,6.1765,6.3602,6.5229,6.6707,6.9345,7.168,7.3802,3.9305,4.4728,5.1504,5.4424,5.7905,6.0342,6.2331,6.4058,6.5606,6.8332,7.0718,7.2867,3.8722,4.2126,4.7747,5.1962,5.6282,5.9026,6.1179,6.301,6.4631,6.745,6.9886,7.2064,3.829,4.1135,4.5029,4.9459,5.47,5.7785,6.0114,6.2054,6.375,6.6662,6.915,7.1356,3.7639,4.0031,4.2734,4.5884,5.1726,5.5485,5.8178,6.0342,6.2189,6.529,6.7882,7.0146,3.7141,3.9318,4.1626,4.4121,4.9321,5.3441,5.6452,5.8829,6.0824,6.4109,6.6805,6.9127];

Subcooled_Liquid=mlist(['hm','T [K]','p [Pa]','v [m^3/kg]','u [kJ/kg]','h [kJ/kg]','s [kJ/(kg*K)]']);

Subcooled_Liquid('T [K]')=[273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,,513.15,533.15,537.14,273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,513.15,533.15,553.15,573.15,584.21,273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,513.15,533.15,553.15,573.15,593.15,613.15,615.39,273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,513.15,533.15,553.15,573.15,593.15,613.15,633.15,638.96,273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,513.15,533.15,553.15,573.15,593.15,613.15,633.15,653.15,273.15,293.15,313.15,333.15,353.15,373.15,393.15,413.15,433.15,453.15,473.15,493.15,513.15,533.15,553.15,573.15,593.15,613.15,633.15,653.15];

Subcooled_Liquid('p [Pa]')=[5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,5000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,10000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,15000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,20000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,30000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000,50000000];

Subcooled_Liquid('v [m^3/kg]')=[0.0009977,0.0009995,0.0010056,0.0010149,0.0010268,0.001041,0.0010576,0.0010768,0.0010988,0.001124,0.001153,,0.0011866,0.0012264,0.0012749,0.0012859,0.0009952,0.0009972,0.0010034,0.0010127,0.0010245,0.0010385,0.0010549,0.0010737,0.0010953,0.0011199,0.001148,0.0011805,0.0012187,0.0012645,0.0013216,0.0013972,0.0014524,0.0009928,0.000995,0.0010013,0.0010105,0.0010222,0.0010361,0.0010522,0.0010707,0.0010918,0.0011159,0.0011433,0.0011748,0.0012114,0.001255,0.0013084,0.001377,0.0014724,0.0016311,0.0016581,0.0009904,0.0009928,0.0009992,0.0010084,0.0010199,0.0010337,0.0010496,0.0010678,0.0010885,0.001112,0.0011388,0.0011693,0.0012046,0.0012462,0.0012965,0.0013596,0.0014437,0.0015684,0.0018226,0.002036,0.0009856,0.0009886,0.0009951,0.0010042,0.0010156,0.001029,0.0010445,0.0010621,0.0010821,0.0011047,0.0011302,0.001159,0.001192,0.0012303,0.0012755,0.0013304,0.0013997,0.001492,0.0016265,0.0018691,0.0009766,0.0009804,0.0009872,0.0009962,0.0010073,0.0010201,0.0010348,0.0010515,0.0010703,0.0010912,0.0011146,0.0011408,0.0011702,0.0012034,0.0012415,0.001286,0.0013388,0.0014032,0.0014838,0.0015884];

Subcooled_Liquid('u [kJ/kg]')=[0.04,83.65,166.95,250.23,333.72,417.52,501.8,586.76,672.62,759.63,848.1,938.4,1031.4,1127.9,1147.8,0.09,83.36,166.35,249.36,332.59,416.12,500.08,584.68,670.13,756.65,844.5,934.1,1026,1121.1,1220.9,1328.4,1393,0.15,83.06,165.76,248.51,331.48,414.74,498.4,582.66,667.71,753.76,841,929.9,1020.8,1114.6,1212.5,1316.6,1431.1,1567.5,1585.6,0.19,82.77,165.17,247.68,330.4,413.39,496.76,580.69,665.35,750.95,837.7,925.9,1016,1108.6,1204.7,1306.1,1415.7,1539.7,1702.8,1785.6,0.25,82.17,164.04,246.06,328.3,410.78,493.59,576.88,660.82,745.59,831.4,918.3,1006.9,1097.4,1190.7,1287.9,1390.7,1501.7,1626.6,1781.4,0.2,81,161.86,242.98,324.34,405.88,487.65,569.77,652.41,735.69,819.7,904.7,990.7,1078.1,1167.2,1258.7,1353.3,1452,1556,1667.2];

Subcooled_Liquid('h [kJ/kg]')=[5.04,88.65,171.97,255.3,338.85,422.72,507.09,592.15,678.12,765.25,853.9,944.4,1037.5,1134.3,1154.2,10.04,93.33,176.38,259.49,342.83,426.5,510.64,595.42,681.08,767.84,856,945.9,1038.1,1133.7,1234.1,1342.3,1407.6,0.15,97.99,180.78,263.67,346.81,430.28,514.19,598.72,684.09,770.5,858.2,947.5,1039,1133.4,1232.1,1337.3,1453.2,1591.9,1610.5,20.01,102.62,185.16,267.85,350.8,434.06,517.76,602.04,687.12,773.2,860.5,949.3,1040,1133.5,1230.6,1333.3,1444.6,1571,1739.3,1826.3,29.82,111.84,193.89,276.19,358.77,441.66,524.93,608.75,693.28,778.73,865.3,953.1,1042.6,1134.3,1229,1327.8,1432.7,1546.5,1675.4,1837.5,49.03,130.02,211.21,292.79,374.7,456.89,539.39,622.35,705.92,790.25,875.5,961.7,1049.2,1138.2,1229.3,1323,1420.2,1522.1,1630.2,1746.6];

Subcooled_Liquid('s [kJ/(kg*K)]')=[0.0001,0.2956,0.5705,0.8285,1.072,1.303,1.5233,1.7343,1.9375,2.1341,2.3255,2.5128,2.6979,2.883,2.9202,0.0002,0.2945,0.5686,0.8258,1.0688,1.2992,1.5189,1.7292,1.9317,2.1275,2.3178,2.5039,2.6872,2.8699,3.0548,3.2469,3.3596,0.0004,0.2934,0.5666,0.8232,1.0656,1.2955,1.5145,1.7242,1.926,2.121,2.3104,2.4953,2.6771,2.8576,3.0393,3.226,3.4247,3.6546,3.6848,0.0004,0.2923,0.5646,0.8206,1.0624,1.2917,1.5102,1.7193,1.9204,2.1147,2.3031,2.487,2.6674,2.8459,3.0248,3.2071,3.3979,3.6075,3.8772,4.0139,0.0001,0.2899,0.5607,0.8154,1.0561,1.2844,1.5018,1.7098,1.9096,2.1024,2.2893,2.4711,2.649,2.8243,2.9986,3.1741,3.3539,3.5426,3.7494,4.0012,-0.0014,0.2848,0.5527,0.8052,1.044,1.2703,1.4857,1.6915,1.8891,2.0794,2.2634,2.4419,2.6158,2.786,2.9537,3.12,3.2868,3.4557,3.6291,3.8101];

Sublimation=mlist(['hm','T [K]','p [Pa]','vs [m^3/kg]','v2 [m^3/kg]','us [kJ/kg]','u2 [kJ/kg]','hs [kJ/kg]','h2 [kJ/kg]','ss [kJ/(kg*K)]','s2 [kJ/(kg*K)]']);

Sublimation('T [K]')=[273.16,273.15,271.15,269.15,267.15,265.15,263.15,261.15,259.15,257.15,255.15,253.15,251.15,249.15,247.15,245.15,243.15,241.15,239.15,237.15,235.15,233.15];

Sublimation('p [Pa]')=[611.3,610.8,517.6,437.5,368.9,310.2,260.2,217.6,181.5,151,125.2,103.5,85.3,70.1,57.4,46.9,38.1,30.9,25,20.1,16.1,12.9];

Sublimation('vs [m^3/kg]')=[0.0010908,0.0010908,0.0010904,0.0010901,0.0010898,0.0010894,0.0010891,0.0010888,0.0010884,0.0010881,0.0010878,0.0010874,0.0010871,0.0010868,0.0010864,0.0010861,0.0010858,0.0010854,0.0010851,0.0010848,0.0010844,0.0010841];

Sublimation('v2 [m^3/kg]')=[206.1,206.3,241.7,283.8,334.2,394.4,466.7,553.7,658.8,786,940.5,1128.6,1358.4,1640.1,1986.4,2413.7,2943,3600,4419,5444,6731,8354];

Sublimation('us [kJ/kg]')=[-333.4,-333.43,-337.62,-341.78,-345.91,-350.02,-354.09,-358.14,-362.15,-366.14,-370.1,-374.03,-377.93,-381.8,-385.64,-389.45,-393.23,-396.98,-400.71,-404.4,-408.06,-411.7];

Sublimation('u2 [kJ/kg]')=[2375.3,2375.3,2372.6,2369.8,2367,2364.2,2361.4,2358.7,2355.9,2353.1,2350.3,2347.5,2344.7,2342,2339.2,2336.4,2333.6,2330.8,2328,2325.2,2322.4,2319.6];

Sublimation('hs [kJ/kg]')=[-333.4,-333.43,-337.62,-341.78,-345.91,-350.02,-354.09,-358.14,-362.15,-366.14,-370.1,-374.03,-377.93,-381.8,-385.64,-389.45,-393.23,-396.98,-400.71,-404.4,-408.06,-411.7];

Sublimation('h2 [kJ/kg]')=[2501.4,2501.3,2497.7,2494,2490.3,2486.6,2482.9,2479.2,2475.5,2471.8,2468.1,2464.3,2460.6,2456.9,2453.2,2449.5,2445.8,2442.1,2438.4,2434.7,2430.9,2427.2];

Sublimation('ss [kJ/(kg*K)]')=[-1.221,-1.221,-1.237,-1.253,-1.268,-1.284,-1.299,-1.315,-1.331,-1.346,-1.362,-1.377,-1.393,-1.408,-1.424,-1.439,-1.455,-1.471,-1.486,-1.501,-1.517,-1.532];

Sublimation('s2 [kJ/(kg*K)]')=[9.156,9.157,9.219,9.283,9.348,9.414,9.481,9.55,9.619,9.69,9.762,9.835,9.909,9.985,10.062,10.141,10.221,10.303,10.386,10.47,10.556,10.644];

A1=Saturation_Temperature('v1 [m^3/kg]')
A2=Saturation_Temperature('v2 [m^3/kg]')
A3=Saturation_Temperature('h1 [kJ/kg]')
A4=Saturation_Temperature('h2 [kJ/kg]')
A5=Saturation_Temperature('s1 [kJ/(kg*K)]')
A6=Saturation_Temperature('s2 [kJ/(kg*K)]')

B=Saturation_Temperature('T [K]')
C=Saturation_Temperature('p [Pa]')

D1=Saturation_Pressure('v1 [m^3/kg]')
D2=Saturation_Pressure('v2 [m^3/kg]')
D3=Saturation_Pressure('h1 [kJ/kg]')
D4=Saturation_Pressure('h2 [kJ/kg]')
D5=Saturation_Pressure('s1 [kJ/(kg*K)]')
D6=Saturation_Pressure('s2 [kJ/(kg*K)]')

E=Saturation_Pressure('T [K]')
F=Saturation_Pressure('p [Pa]')

G1=Superheated_Steam('v [m^3/kg]')
G2=Superheated_Steam('h [kJ/kg]')
G3=Superheated_Steam('s [kJ/(kg*K)]')

H=Superheated_Steam('T [K]')
I=Superheated_Steam('p [Pa]')

J1=Subcooled_Liquid('v [m^3/kg]')
J2=Subcooled_Liquid('h [kJ/kg]')
J3=Subcooled_Liquid('s [kJ/(kg*K)]')

K=Subcooled_Liquid('T [K]')
L=Subcooled_Liquid('p [Pa]')

M1=Sublimation('vs [m^3/kg]')
M2=Sublimation('v2 [m^3/kg]')
M3=Sublimation('hs [kJ/kg]')
M4=Sublimation('h2 [kJ/kg]')
M5=Sublimation('ss [kJ/(kg*K)]')
M6=Sublimation('s2 [kJ/(kg*K)]')

N=Sublimation('T [K]')
O=Sublimation('p [Pa]')

//Darstellung
figure("figure_name",gettext("p-v-T Diagramm for Water"),"Position",[50,50,500,500],"BackgroundColor",[1.0,1.0,1.0])
title('$p-v-T\ diagram\ for\ water$','color','black','fontsize',5)
s1=10
s2=5
s3=5
c1="red"
c2="green"
c3="blue"
marker1="."
marker2="."
marker3="."

scatter3(A1',B',C',s1,c1,marker1)
scatter3(A2',B',C',s1,c1,marker1)

scatter3(D1',E',F',s1,c1,marker1)
scatter3(D2',E',F',s1,c1,marker1)

scatter3(G1',H',I',s1,c1,marker1)

scatter3(J1',K',L',s1,c1,marker1)

scatter3(M1',N',O',s1,c1,marker1)
scatter3(M2',N',O',s1,c1,marker1)

xgrid()
xlabel('specific Volume v [m^3/kg]')
ylabel('Temperature T [K]')
zlabel('Pressure p [Pa]')


figure("figure_name",gettext("T-s Diagramm for Water"),"Position",[50,50,500,500],"BackgroundColor",[1.0,1.0,1.0])
title('$T-s\ diagram\ for\ water$','color','black','fontsize',5)

scatter(A5,B,s2,c2,marker2)
scatter(A6,B,s2,c2,marker2)

scatter(D5,E,s2,c2,marker2)
scatter(D6,E,s2,c2,marker2)

scatter(G3,H,s2,c2,marker2)

scatter(J3,K,s2,c2,marker2)

scatter(M5,N,s2,c2,marker2)
scatter(M6,N,s2,c2,marker2)

xgrid()
xlabel('Entropie s [kJ/kg]')
ylabel('Temperature T [K]')

figure("figure_name",gettext("h-s Diagramm for Water"),"Position",[50,50,500,500],"BackgroundColor",[1.0,1.0,1.0])
title('$h-s\ diagram\ for\ water$','color','black','fontsize',5)

scatter(A5,A3,s3,c3,marker3)
scatter(A6,A4,s3,c3,marker1)

scatter(D5,D3,s3,c3,marker3)
scatter(D6,D4,s3,c3,marker1)

scatter(G3,G2,s3,c3,marker3)

scatter(J3,J2,s3,c3,marker3)

scatter(M5,M3,s3,c3,marker3)
scatter(M6,M4,s3,c3,marker3)

xgrid()
xlabel('Entropie s [kJ/kg]')
ylabel('Enthalpie h [kJ/kg]')

endfunction

//create the *.bin files in libdir
//libdir = TMPDIR;
//save(libdir + '/Steamtable.bin','Steamtable');

//mputl(['Steamtable'],libdir+'/names');

//build the library
//mylibfoo = lib(libdir+'/');

// check the library
//mylibfoo
//[n,p] = libraryinfo('mylibfoo')
