36 lines
1.8 KiB
C
36 lines
1.8 KiB
C
#include "component_properties_internal.h"
|
|
#include <math.h>
|
|
|
|
int native_orifice(double p1, double p2, double h1, double h2,
|
|
double cq_area, double opening, double *flow,
|
|
double *cm, double *velocity) {
|
|
return native_orifice_context(NULL,p1,p2,h1,h2,cq_area,opening,flow,cm,velocity);
|
|
}
|
|
int native_orifice_context(NativePropertyCache *cache,double p1,double p2,double h1,double h2,
|
|
double cq_area,double opening,double *flow,double *cm,double *velocity) {
|
|
int forward = p1 >= p2;
|
|
double p = forward ? p1 : p2, pd = forward ? p2 : p1;
|
|
double T = native_temperature_ph_context(cache,&helium_medium,fmax(p,1),forward?h1:h2);
|
|
medium_valve(cache,&helium_medium,p,pd,T,cm,velocity);
|
|
double sign = forward ? 1 : -1;
|
|
*velocity *= sign;
|
|
*flow = opening == 0 || fabs(p1-p2) <= 1e-8 ? 0 :
|
|
sign * cq_area * opening * fmax(p, 1) * *cm / sqrt(fmax(T, 1));
|
|
if (opening == 0) *velocity = 0;
|
|
return isfinite(*flow) && isfinite(*cm) && isfinite(*velocity);
|
|
}
|
|
|
|
int native_medium_orifice(const NativeMedium *m, double p1, double p2, double h1, double h2,
|
|
double area, double opening, double *q, double *cm, double *v) {
|
|
return native_medium_orifice_context(NULL,m,p1,p2,h1,h2,area,opening,q,cm,v);
|
|
}
|
|
int native_medium_orifice_context(NativePropertyCache *cache,const NativeMedium *m,double p1,double p2,double h1,double h2,
|
|
double area,double opening,double *q,double *cm,double *v) {
|
|
double p=fmax(p1,p2),pd=fmin(p1,p2),sign=p1>=p2?1:-1;
|
|
double T=fmax(native_temperature_ph_context(cache,m,fmax(p,1),p1>=p2?h1:h2),1);
|
|
medium_valve(cache,m,p,pd,T,cm,v);
|
|
*q=fabs(p1-p2)<=1e-8?0:sign*area*opening*fmax(p,1)*(*cm)/sqrt(T);
|
|
*v*=fabs(opening)<=1e-12?0:sign;
|
|
return isfinite(*q) && isfinite(*cm) && isfinite(*v);
|
|
}
|