init

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

@@ -0,0 +1,15 @@
+function h = krw_ow(sw, SW, KRW, varargin)
+n = numel(varargin);
+if n == 0
+    h = interptable(SW, KRW, sw);
+else
+    SWF = varargin{1};
+    KRWF = varargin{2};
+    rpt = varargin{3};
+    hm = interptable(SW, KRW, sw);
+    hf = interptable(SWF, KRWF, sw);
+    h = rpt .* hm + ~rpt .* hf;
+end
+% h=sw-sw;
+end
+