init

core functions/油水两相流部分代码/pcow.m

@@ -0,0 +1,16 @@
+function h = pcow(sw, SW, PCOW, varargin)
+n = numel(varargin);
+if PCOW == 0
+    h = 0;
+else
+    if n == 0
+        h = interptable(SW, PCOW, sw);
+    else
+        SWF = varargin{1};
+        PCOWF = varargin{2};
+        rpt = varargin{3};
+        hm = interptable(SW, PCOW, sw);
+        hf = interptable(SWF, PCOWF, sw);
+        h = rpt .* hm + ~rpt .* hf;
+    end
+end