using System;

namespace CapMachine.Wpf.PPCalculation
{
    /// <summary>
    /// 杩囩儹搴?杩囧喎搴﹁绠楀櫒銆?    /// 
    /// 璇存槑锛氳绫讳粎璐熻矗灏佽 SATPdll 璋冪敤涓庤绠楀叕寮忥紝淇濇寔涓庡巻鍙叉祦绋嬩竴鑷淬€?    /// - 鍘嬪姏鎹㈢畻淇濇寔鍘熼€昏緫锛欱arA * 100.0
    /// - 娓╁害鎹㈢畻淇濇寔鍘熼€昏緫锛歍sat[K] - 273.15
    /// - 澶辫触鏃惰繑鍥?0锛堜笌鍘熷厛鍦ㄦ湇鍔′腑鐩存帴鍐?Tag 鐨勮涓轰竴鑷达級
    /// </summary>
    public sealed class SuperheatSubcoolCalculator
    {
        private readonly object _refpropLock;

        /// <summary>
        /// 鏋勯€犲嚱鏁般€?        /// </summary>
        /// <param name="refpropLock">REFPROP 鍏ㄥ眬閿侊紙REFPROP DLL 闈炵嚎绋嬪畨鍏紝闇€涓茶鍖栬皟鐢級銆?/param>
        public SuperheatSubcoolCalculator(object refpropLock)
        {
            _refpropLock = refpropLock ?? throw new ArgumentNullException(nameof(refpropLock));
        }

        /// <summary>
        /// 鎸夋棦鏈夋祦绋嬭绠楄繃鐑害/杩囧喎搴︺€?        /// </summary>
        /// <param name="inhPressBarA">鍚告皵鍘嬪姏锛圔arA锛夈€?/param>
        /// <param name="inhTempC">鍚告皵娓╁害锛堚剝锛夈€?/param>
        /// <param name="txvFrPressBarA">鑶ㄨ儉闃€鍓嶅帇鍔涳紙BarA锛夈€?/param>
        /// <param name="txvFrTempC">鑶ㄨ儉闃€鍓嶆俯搴︼紙鈩冿級銆?/param>
        /// <param name="superheatK">杩囩儹搴︼紙K锛夈€傚け璐ユ椂涓?0銆?/param>
        /// <param name="subcoolK">杩囧喎搴︼紙K锛夈€傚け璐ユ椂涓?0銆?/param>
        public void Calculate(
            double inhPressBarA,
            double inhTempC,
            double txvFrPressBarA,
            double txvFrTempC,
            out double superheatK,
            out double subcoolK)
        {
            superheatK = 0.0;
            subcoolK = 0.0;

            long iErr;
            long kph = 1;

            double te = 0.0;
            double te1 = 0.0;
            double p = 0.0;
            double p1 = 0.0;
            double Dl = 0.0;
            double Dv = 0.0;

            double[] x = new double[20], xliq = new double[20], xvap = new double[20];
            x[0] = 1.0;

            //p = Convert.ToDouble(textBox2.Text) * 1000.0;//textBox2  Comp.鍚告皵鍘嬪姏锛坘pa锛?            p = inhPressBarA * 100.0;// 淇濇寔浣犲師鏈夋祦绋嬶細灏?BarA 褰撲綔 MPa? 鍘嗗彶浠ｇ爜涓?*1000.0锛屼笉鏀瑰彉浣犵殑绠楁硶

            p1 = txvFrPressBarA * 100.0;// 淇濇寔浣犲師鏈夋祦绋?                                          //p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3  Evap.鑶ㄨ儉闃€鍓嶅帇鍔涳紙Mpa锛?                                          // 缁熶竴鏀惧叆鍚屼竴鎶婇攣涓紝閬垮厤骞跺彂瀵艰嚧鐨?Fortran 璇绘枃浠?鐘舵€佺珵鎬?            string herr = new string(' ', 255); long herrLen = 255; iErr = 0;
            lock (_refpropLock)
            {
                IRefProp64.SATPdll(ref p, x, ref kph, ref te, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
            }

            if (iErr == 0)
                superheatK = Math.Abs(inhTempC - (te - 273.15));
            else
                superheatK = 0;

            herr = new string(' ', 255); herrLen = 255; iErr = 0;
            lock (_refpropLock)
            {
                IRefProp64.SATPdll(ref p1, x, ref kph, ref te1, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
            }
            if (iErr == 0)
                subcoolK = Math.Abs(txvFrTempC - (te1 - 273.15));
            else
                subcoolK = 0;
        }
    }
}