summaryrefslogtreecommitdiff
path: root/Utilib/src/steam.c
diff options
context:
space:
mode:
Diffstat (limited to 'Utilib/src/steam.c')
-rw-r--r--Utilib/src/steam.c317
1 files changed, 317 insertions, 0 deletions
diff --git a/Utilib/src/steam.c b/Utilib/src/steam.c
new file mode 100644
index 0000000..34b3934
--- /dev/null
+++ b/Utilib/src/steam.c
@@ -0,0 +1,317 @@
+/*
+freesteam - IAPWS-IF97 steam tables library
+Copyright (C) 2004-2009 John Pye
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/
+#define FREESTEAM_BUILDING_LIB
+#include "steam.h"
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "region.h"
+#include "b23.h"
+#include "backwards.h"
+#include "viscosity.h"
+#include "thcond.h"
+
+/* 'setter' functions for SteamState (forwards equations) */
+
+SteamState freesteam_region1_set_pT(double p, double T){
+ SteamState S;
+ S.region = 1;
+ S.valueR.R1.p = p;
+ S.valueR.R1.T = T;
+ /* FIXME add bounds check? */
+ return S;
+}
+
+SteamState freesteam_region2_set_pT(double p, double T){
+ SteamState S;
+ S.region = 2;
+ S.valueR.R2.p = p;
+ S.valueR.R2.T = T;
+ /* FIXME add bounds check? */
+ return S;
+}
+
+SteamState freesteam_region3_set_rhoT(double rho, double T){
+ SteamState S;
+ S.region = 3;
+ S.valueR.R3.rho = rho;
+ S.valueR.R3.T = T;
+ /* FIXME add bounds check? */
+ return S;
+}
+
+SteamState freesteam_region4_set_Tx(double T, double x){
+ SteamState S;
+ S.region = 4;
+ S.valueR.R4.T = T;
+ S.valueR.R4.x = x;
+ /* FIXME add bounds check? */
+ return S;
+}
+
+int freesteam_fprint(FILE *f, SteamState S){
+ int n = 0;
+ n += fprintf(f, "region %d: ", S.region);
+ switch(S.region){
+ case 1:
+ n += fprintf(f, "p = %f MPa, T = %f K\n", S.valueR.R1.p/1e6, S.valueR.R1.T);
+ break;
+ case 2:
+ n += fprintf(f, "p = %f MPa, T = %f K\n", S.valueR.R2.p/1e6, S.valueR.R2.T);
+ break;
+ case 3:
+ n += fprintf(f, "rho = %f kg/m3, T = %f K\n", S.valueR.R3.rho, S.valueR.R1.T);
+ break;
+ case 4:
+ n += fprintf(f, "T = %f, x = %f\n", S.valueR.R4.T, S.valueR.R4.x);
+ break;
+ }
+ return n;
+}
+
+/* 'getter' functions for SteamState */
+
+int freesteam_region(SteamState S){
+ return (int)S.region;
+}
+
+double freesteam_T(SteamState S){
+ switch(S.region){
+ case 1:
+ return S.valueR.R1.T;
+ case 2:
+ return S.valueR.R2.T;
+ case 3:
+ return S.valueR.R3.T;
+ case 4:
+ return S.valueR.R4.T;
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_T\n");
+ exit(1);
+ }
+}
+
+double freesteam_p(SteamState S){
+ switch(S.region){
+ case 1:
+ return S.valueR.R1.p;
+ case 2:
+ return S.valueR.R2.p;
+ case 3:
+ return freesteam_region3_p_rhoT(S.valueR.R3.rho, S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_psat_T(S.valueR.R4.T);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_p\n");
+ exit(1);
+ }
+}
+
+
+double freesteam_v(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_v_pT(S.valueR.R1.p,S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_v_pT(S.valueR.R2.p,S.valueR.R2.T);
+ case 3:
+ return 1./S.valueR.R3.rho;
+ case 4:
+ return freesteam_region4_v_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_v\n");
+ exit(1);
+ }
+}
+
+double freesteam_rho(SteamState S){
+ switch(S.region){
+ case 1:
+ return 1./freesteam_region1_v_pT(S.valueR.R1.p,S.valueR.R1.T);
+ case 2:
+ return 1./freesteam_region2_v_pT(S.valueR.R2.p,S.valueR.R2.T);
+ case 3:
+ return S.valueR.R3.rho;
+ case 4:
+ return 1./freesteam_region4_v_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_rho\n");
+ exit(1);
+ }
+}
+
+
+double freesteam_u(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_u_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_u_pT(S.valueR.R2.p, S.valueR.R2.T);
+ case 3:
+ return freesteam_region3_u_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_u_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_u\n");
+ exit(1);
+ }
+}
+
+double freesteam_h(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_h_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_h_pT(S.valueR.R2.p, S.valueR.R2.T);
+ case 3:
+ return freesteam_region3_h_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_h_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_h\n");
+ exit(1);
+ }
+}
+
+
+double freesteam_s(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_s_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_s_pT(S.valueR.R2.p, S.valueR.R2.T);
+ case 3:
+ return freesteam_region3_s_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_s_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_s\n");
+ exit(1);
+ }
+}
+
+double freesteam_cp(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_cp_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_cp_pT(S.valueR.R2.p, S.valueR.R2.T);
+ case 3:
+ return freesteam_region3_cp_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_cp_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_cp\n");
+ exit(1);
+ }
+}
+
+double freesteam_cv(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_cv_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_cv_pT(S.valueR.R2.p, S.valueR.R2.T);
+ case 3:
+ return freesteam_region3_cv_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_cv_Tx(S.valueR.R4.T, S.valueR.R4.x);
+ default:
+ fprintf(stderr,"ERROR: invalid region in freesteam_cv\n");
+ exit(1);
+ }
+}
+
+double freesteam_w(SteamState S){
+ switch(S.region){
+ case 1:
+ return freesteam_region1_w_pT(S.valueR.R1.p, S.valueR.R1.T);
+ case 2:
+ return freesteam_region2_w_pT(S.valueR.R2.p, S.valueR.R2.T);
+#if 0
+ case 3:
+ return freesteam_region3_w_rhoT(S.valueR.R3.rho,S.valueR.R3.T);
+ case 4:
+ return freesteam_region4_w_Tx(S.valueR.R4.T, S.valueR.R4.x);
+#endif
+ default:
+ fprintf(stderr,"ERROR: invalid region '%d' in freesteam_w\n",S.region);
+ exit(1);
+ }
+}
+
+double freesteam_x(SteamState S){
+ switch(S.region){
+ case 1:
+ return 0.;
+ case 2:
+ return 1.;
+ case 3:
+ if(S.valueR.R3.rho > IAPWS97_RHOCRIT)return 0.;
+ return 1.;
+ case 4:
+ return S.valueR.R4.x;
+ default:
+ fprintf(stderr,"ERROR: invalid region '%d' in freesteam_x\n",S.region);
+ exit(1);
+ }
+}
+
+double freesteam_mu(SteamState S){
+ static char warned = 0;
+ switch(S.region){
+ case 1:
+ return freesteam_mu_rhoT(1./freesteam_region1_v_pT(S.valueR.R1.p,S.valueR.R1.T), S.valueR.R1.T);
+ case 2:
+ return freesteam_mu_rhoT(1./freesteam_region2_v_pT(S.valueR.R2.p,S.valueR.R2.T), S.valueR.R2.T);
+ case 3:
+ return freesteam_mu_rhoT(S.valueR.R3.rho, S.valueR.R3.T);
+ case 4:
+ if(!warned){
+ fprintf(stderr,"WARNING: viscosity evaluation in region 4 is poorly defined! (this warning is only shown once)\n");
+ warned = 1;
+ }
+ return freesteam_mu_rhoT(1./freesteam_region4_v_Tx(S.valueR.R4.T, S.valueR.R4.x), S.valueR.R4.T);
+ default:
+ fprintf(stderr,"ERROR: invalid region '%d' in freesteam_mu\n",S.region);
+ exit(1);
+ }
+}
+
+double freesteam_k(SteamState S){
+ static char warned = 0;
+ switch(S.region){
+ case 1:
+ return freesteam_k_rhoT(1./freesteam_region1_v_pT(S.valueR.R1.p,S.valueR.R1.T), S.valueR.R1.T);
+ case 2:
+ return freesteam_k_rhoT(1./freesteam_region2_v_pT(S.valueR.R2.p,S.valueR.R2.T), S.valueR.R2.T);
+ case 3:
+ return freesteam_k_rhoT(S.valueR.R3.rho, S.valueR.R3.T);
+ case 4:
+ if(!warned){
+ fprintf(stderr,"WARNING: thermal conductivity evaluation in region 4 is poorly defined! (this warning is only shown once)\n");
+ warned = 1;
+ }
+ return freesteam_k_rhoT(1./freesteam_region4_v_Tx(S.valueR.R4.T, S.valueR.R4.x), S.valueR.R4.T);
+ default:
+ fprintf(stderr,"ERROR: invalid region '%d' in freesteam_k\n",S.region);
+ exit(1);
+ }
+}
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 13:23:57 +0000