{"id":344443,"date":"2023-01-25T09:01:18","date_gmt":"2023-01-25T09:01:18","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=344443"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=344443","title":{"rendered":"\u0411\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u0441\u0432\u043e\u0439\u0441\u0442\u0432 \u0432\u043e\u0434\u044b \u0438 \u0432\u043e\u0434\u044f\u043d\u043e\u0433\u043e \u043f\u0430\u0440\u0430<\/span>"},"content":{"rendered":"
<\/div>\n
\n
\n
\n
\n

\u041f\u0440\u0438 \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0438 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u044b \u041c\u0435\u0436\u0434\u0443\u043d\u0430\u0440\u043e\u0434\u043d\u043e\u0439 \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u0438 \u043f\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u0432\u043e\u0434\u044b \u0438 \u0432\u043e\u0434\u044f\u043d\u043e\u0433\u043e \u043f\u0430\u0440\u0430 (\u041c\u0410\u0421\u041f\u0412, \u0430\u043d\u0433.IASPW):<\/p>\n

    \n
  1. \n

    Revised Release on the IAPWS Industrial Formulation 1997 For the Thermodynamic Properties of Water and Steam. August 2007. (\u0414\u0430\u043b\u0435\u0435 \u0432 \u0442\u0435\u043a\u0441\u0442\u0435 IF97)<\/p>\n<\/li>\n

  2. \n

    Release on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance. September 2008. <\/p>\n<\/li>\n<\/ol>\n

    <\/figcaption><\/figure>\n

    1.\u00a0\u041e\u0441\u043d\u043e\u0432\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n

    \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c(t As Double, p As Double, Optional reg) As Double, [\u043c3<\/sup>\/\u043a\u0433]<\/p>\n

    \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double, [\u043a\u0433\/ \u043c3<\/sup>]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n

    \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n

    \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430(t As Double, p As Double, Optional reg) As Double, [\u043c\/\u0441]<\/p>\n

    \u0412\u0441\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0438\u043c\u0435\u044e\u0442 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0443 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430. \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u0430\u043c\u043e\u0441\u0442\u043e\u044f\u0442\u0435\u043b\u044c\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u043e\u0431\u043b\u0430\u0441\u0442\u044c (\u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 Region<\/em><\/strong>) \u0438 \u0444\u043e\u0440\u043c\u0443\u043b\u0443, \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u0442\u044c \u0432 \u044d\u0442\u043e\u043c \u0440\u0435\u0433\u0438\u043e\u043d\u0435.<\/p>\n

    \u0415\u0441\u043b\u0438 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u044c, \u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043e\u043f\u0443\u0441\u043a\u0430\u044e\u0442 \u0440\u0443\u0447\u043d\u043e\u0435 \u0432\u044b\u0431\u043e\u0440 \u0440\u0435\u0433\u0438\u043e\u043d\u0430. \u042d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c\u0441\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u0432 \u043c\u0435\u0442\u0430\u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u043e\u043c \u0440\u0435\u0433\u0438\u043e\u043d\u0435. \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 reg<\/em><\/strong> \u044d\u0442\u043e \u0447\u0438\u0441\u043b\u0430 \u0441 \u043d\u043e\u043c\u0435\u0440\u0430\u043c\u0438 \u0440\u0435\u0433\u0438\u043e\u043d\u043e\u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u043d\u0430 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 \u0444\u043e\u0440\u043c\u0443\u043b\u044f\u0446\u0438\u0438 IF97. \u041a\u0440\u043e\u043c\u0435 \u044d\u0442\u043e\u0433\u043e \u0434\u043b\u044f \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043c\u0435\u0442\u0430\u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u044b\u0445 \u043f\u0430\u0440\u043e\u0432 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 reg=21<\/em><\/strong> (\u0442\u0430\u043a \u043a\u0430\u043a \u044d\u0442\u0430 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043f\u0435\u0440\u0435\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043e\u0431\u043b\u0430\u0441\u0442\u044c\u044e 1 \u2013 \u0432\u043e\u0434\u0430).<\/p>\n

    \u0412 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 3 \u0432 IF97 \u0432 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u043e\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3<\/em><\/strong> \u0441 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0434\u043e 3 \u0437\u043d\u0430\u043a\u043e\u0432 \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u043f\u044f\u0442\u043e\u0439. \u0412\u0441\u043b\u0435\u0434\u0441\u0442\u0432\u0438\u0435 \u044d\u0442\u043e\u0433\u043e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043d\u0438\u0436\u0430\u0442\u044c\u0441\u044f, \u0430 \u0432 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 \u043f\u043e\u0433\u0440\u0435\u0448\u043d\u043e\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u0434\u043e\u0441\u0442\u0438\u0433\u0430\u0442\u044c 3-4%. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0446\u0435\u043b\u0435\u0441\u043e\u043e\u0431\u0440\u0430\u0437\u043d\u0435\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438.<\/p>\n

    \u0417\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435<\/u><\/em><\/p>\n

    \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430<\/em><\/strong> \u0432 3-\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432\u043c\u0435\u0441\u0442\u043e \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0438\u0431\u0431\u0441\u0430 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u044d\u043d\u0435\u0440\u0433\u0438\u044e \u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430.<\/p>\n

    2.\u00a0\u0424\u0443\u043d\u043a\u0446\u0438\u0438 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438<\/h4>\n

    \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u04353(t As Double, ro As Double) As Double, [\u041f\u0430]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n

    \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n

    \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u04303(t As Double, ro As Double) As Double, [\u043c\/\u0441]<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u0438 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0438\u043c\u0435\u044e\u0442 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0443 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u0432 \u043a\u0433\/ \u043c3<\/sup>. \u0414\u0430\u043d\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u044b \u0444\u043e\u0440\u043c\u0443\u043b\u0430\u043c IF97 \u0438 \u0434\u0430\u044e\u0442 \u043d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u0442\u043e\u0447\u043d\u044b\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0432 \u044d\u0442\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438.<\/p>\n

    3.\u00a0\u0412\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n

    \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t As Double, p As Double, Optional accuracy) As Double<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u043b\u044f 3-\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442 \u043f\u043e\u0438\u0441\u043a \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0439 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c : \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0432 \u041c\u041f\u0430. \u041f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 3, \u0447\u0442\u043e \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 3 \u0437\u043d\u0430\u043a\u0430\u043c \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u00b10,001 \u043a\u0433\/ \u043c3<\/sup>. \u0412 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 (P=22,064\u041c\u041f\u0430 \u0438 t=373,946\u00b0\u0421) \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043d\u0435 \u043c\u043e\u0436\u0435\u0442 \u0442\u043e\u0447\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437-\u0437\u0430 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0433\u0440\u0430\u0444\u0438\u043a \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u03c1=f(p) \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0433\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u044b\u043c \u0438 \u043f\u043e\u0433\u0440\u0435\u0448\u043d\u043e\u0441\u0442\u044c \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u0435\u0442 \u0434\u043e 3-4% \u0438 \u0431\u043e\u043b\u0435\u0435. \u0414\u043b\u044f \u043f\u043e\u0432\u044b\u0448\u0435\u043d\u0438\u044f \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u0435\u0442\u0441\u044f \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0431\u043e\u043b\u0435\u0435 \u0432\u044b\u0441\u043e\u043a\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438. \u041c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e \u0434\u043e\u043f\u0443\u0441\u0442\u0438\u043c\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u043e accuracy=13 !!!<\/em><\/strong> \u042d\u0442\u043e \u0432\u044b\u0437\u0432\u0430\u043d\u043e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0441 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043e\u043f\u0435\u0440\u0438\u0440\u0443\u0435\u0442 VBA \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u0442\u0438\u043f\u0430 double. \u041f\u0440\u0438 \u0432\u0432\u043e\u0434\u0435 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 14 \u0438 \u0431\u043e\u043b\u0435\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0437\u0430\u0432\u0438\u0441\u0430\u0435\u0442.<\/u><\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0432 \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d\u0435 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0435\u0439 \u043e\u0442 113,6 \u0434\u043e 762,4 \u043a\u0433\/ \u043c3<\/sup>. \u0412 \u0441\u043b\u0443\u0447\u0430\u0435 \u0435\u0441\u043b\u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u0445\u043e\u0434\u0438\u0442 \u0437\u0430 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u0440\u0430\u043c\u043a\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043e\u0448\u0438\u0431\u043a\u0443 \u043d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 #\u0417\u041d\u0410\u0427!<\/strong><\/p>\n

    4.\u00a0\u0412\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n

    \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(p As Double) As Double, [\u00b0\u0421]<\/p>\n

    \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(t As Double) As Double, [\u041c\u041f\u0430]<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u0433\u0440\u0430\u0444\u0438\u043a \u043a\u0440\u0438\u0432\u043e\u0439 \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u044e\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 \u0438\u0445 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0438\u043b\u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0432\u0442\u043e\u0440\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440. \u0410\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b \u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u044b: \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430, \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f.<\/p>\n

    \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(p As Double) As Double, [\u00b0\u0421]<\/p>\n

    \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(t As Double) As Double, [\u041c\u041f\u0430]<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u0433\u0440\u0430\u0444\u0438\u043a \u043a\u0440\u0438\u0432\u043e\u0439 \u043b\u0438\u043d\u0438\u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0432\u0430\u044e\u0449\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u044c 2 (\u043f\u0430\u0440) \u043e\u0442 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 1 \u0438 3. \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f.<\/p>\n

    \u0417\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435<\/u><\/em><\/p>\n

    \u041f\u0440\u0438 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430\u0445 \u0434\u043e 350\u00b0\u0421 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u043e\u0432\u043f\u0430\u0434\u0430\u044e\u0442 \u0441 \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c\u0438 \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f.<\/p>\n

    Region(t As Double, p As Double) As Byte<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043d\u043e\u043c\u0435\u0440 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0439 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u043c \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0438 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435. \u041d\u043e\u043c\u0435\u0440\u0430 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0442 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 IF97<\/p>\n

    JF(t As Double, p As Double, Trigger As Byte, reg As Byte) As Double<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0445 \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u043d\u044b\u0445 \u044d\u043d\u0435\u0440\u0433\u0438\u0439 \u0440\u0435\u0433\u0438\u043e\u043d\u0430 reg<\/em><\/strong>. \u0414\u043b\u044f 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u044d\u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0441\u0432\u043e\u0431\u043e\u0434\u043d\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430 \"f(\u03c1,t)\/RT\", \u0430 \u0434\u043b\u044f \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u044f \u0413\u0438\u0431\u0431\u0441\u0430 \"g(p,t)\/RT\"<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0438\u043c\u0435\u0435\u0442 4 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430:<\/p>\n

    1.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f<\/p>\n

    2.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430<\/p>\n

    3.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Trigger \u0438\u043c\u0435\u0435\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u044b\u0435 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u044b:<\/p>\n

    a.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u0430\u043c\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u2013 0<\/p>\n

    b.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0427\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u2013 1<\/p>\n

    c.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0412\u0442\u043e\u0440\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u2013 2<\/p>\n

    d.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0421\u043c\u0435\u0448\u0430\u043d\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 3<\/p>\n

    e.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0427\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 4<\/p>\n

    f.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0412\u0442\u043e\u0440\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 5<\/p>\n

    4.\u00a0\u00a0\u00a0\u00a0\u00a0 \u0420\u0435\u0433\u0438\u043e\u043d \u0438\u043c\u0435\u0435\u0442 \u0434\u043e\u043f\u0443\u0441\u0442\u0438\u043c\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u2013 1,2,3,4,5,21<\/p>\n

    \u0412\u044f\u0437\u043a\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double, [\u041f\u0430\u2219\u0441]<\/p>\n

    \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0432\u044f\u0437\u043a\u043e\u0441\u0442\u0438 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u043d\u0443\u044e \u0432 \u041f\u0430\u2219\u0441 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u043d\u043d\u0443\u044e \u043f\u043e \u0444\u043e\u0440\u043c\u0443\u043b\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 \u00abRelease on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance\u00bb \u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044c 2008. \u041d\u043e \u0442\u0430\u043a \u043a\u0430\u043a \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u03bc2 <\/sub>\u043f\u0440\u0438\u043d\u044f\u0442 \u0440\u0430\u0432\u043d\u044b\u043c \u0435\u0434\u0438\u043d\u0438\u0446\u0435, \u0442\u043e \u0432 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 (P=22,064\u041c\u041f\u0430 \u0438 t=373,946\u00b0\u0421) \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043d\u0435 \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c\u0430. \u0412 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u044f\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0441 \u043f\u0440\u0438\u0435\u043c\u043b\u0435\u043c\u043e\u0439 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0434\u043e 1-2%. \u0412 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u043e\u043c \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0441\u043e\u0432\u043f\u0430\u0434\u0430\u0435\u0442 \u0441 \u043e\u0431\u043b\u0430\u0441\u0442\u044c\u044e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 IF97.<\/p>\n

    5.\u00a0\u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u041c\u0418 2412-97<\/h4>\n

    \u0412 \u0432\u0435\u0440\u0441\u0438\u0438 1.1. \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0438 \u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c\u044b\u0435 \u043f\u043e \u0444\u043e\u0440\u043c\u0443\u043b\u0430\u043c \u041f.1 \u0438 \u041f.2 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u043c \u0432 \u041c\u0418 2412-97 \u00ab\u0412\u043e\u0434\u044f\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0442\u0435\u043f\u043b\u043e\u0441\u043d\u0430\u0431\u0436\u0435\u043d\u0438\u044f. \u0423\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0438\u0437\u043c\u0435\u0440\u0435\u043d\u0438\u0439 \u0442\u0435\u043f\u043b\u043e\u0432\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0442\u0435\u043f\u043b\u043e\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044f\u00bb.<\/p>\n

    \u00a0\u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c_\u041c\u0418(t As Double, p As Double) As Double, [\u043a\u0433\/ \u043c3<\/sup>]<\/p>\n

    \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f_\u041c\u0418(t As Double, p As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n

    Attribute VB_Name = \"IF97_1_1\" Option Base 1 Public N1, I1, J1 'I phase Public N02, J02, Nr2, Ir2, Jr2 'II phase Public N02m, Nr2m, Ir2m, Jr2m 'metastable-vapor region Public N3, I3, J3 'III phase Public N05, J05, Nr5, Ir5, Jr5 'V phase Public Vi0, VHi, Vi, Vj, VHij ' Viscosity Const non = 0, dt = 1, dtt = 2, dtp = 3, dp = 4, dpp = 5 ' \u0422\u0440\u0438\u0433\u0433\u0435\u0440\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0438\u0431\u0431\u0441\u0430 Const R = 461.526, Default_accuracy = 3 Sub Auto_Open()     MsgBox \"\u041f\u0440\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b :\" & vbCrLf & \"1. Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam (\u0420\u0435\u0434\u0430\u043a\u0446\u0438\u044f 2007 \u0433\u043e\u0434\u0430).\" & vbCrLf & \"2. Release on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance.\" & vbCrLf & \"3. \u041c\u0418 2412-97 \u0412\u043e\u0434\u044f\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0442\u0435\u043f\u043b\u043e\u0441\u043d\u0430\u0431\u0436\u0435\u043d\u0438\u044f \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0438\u0437\u043c\u0435\u0440\u0435\u043d\u0438\u0439 \u0442\u0435\u043f\u043b\u043e\u0432\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0442\u0435\u043f\u043b\u043e\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044f\", , \"\u041e\u041e\u041e \u00ab\u0420\u043e\u0433\u0430 \u0438 \u041a\u043e\u043f\u044b\u0442\u0430\u00bb\"     N1 = Array(0.14632971213167, -0.84548187169114, -3.756360367204, 3.3855169168385, -0.95791963387872, 0.15772038513228, -0.016616417199501, 8.1214629983568E-04, 2.8319080123804E-04, -6.0706301565874E-04, -0.018990068218419, -0.032529748770505, -0.021841717175414, -5.283835796993E-05, -4.7184321073267E-04, -3.0001780793026E-04, 4.7661393906987E-05, -4.4141845330846E-06, -7.2694996297594E-16, -3.1679644845054E-05, -2.8270797985312E-06, -8.5205128120103E-10, -2.2425281908E-06, -6.5171222895601E-07, -1.4341729937924E-13, -4.0516996860117E-07, -1.2734301741641E-09, -1.7424871230634E-10, -6.8762131295531E-19, 1.4478307828521E-20, 2.6335781662795E-23, -1.1947622640071E-23, 1.8228094581404E-24, -9.3537087292458E-26)     I1 = Array(0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 8, 8, 21, 23, 29, 30, 31, 32)     J1 = Array(-2, -1, 0, 1, 2, 3, 4, 5, -9, -7, -1, 0, 1, 3, -3, 0, 1, 3, 17, -4, 0, 6, -5, -2, 10, -8, -11, -6, -29, -31, -38, -39, -40, -41)     N02 = Array(-9.6927686500217, 10.086655968018, -0.005608791128302, 0.071452738081455, -0.40710498223928, 1.4240819171444, -4.383951131945, -0.28408632460772, 0.021268463753307)     N02m = Array(-9.6937268393049, 10.087275970006, -0.005608791128302, 0.071452738081455, -0.40710498223928, 1.4240819171444, -4.383951131945, -0.28408632460772, 0.021268463753307)     J02 = Array(0, 1, -5, -4, -3, -2, -1, 2, 3)     Nr2 = Array(-1.7731742473213E-03, -0.017834862292358, -0.045996013696365, -0.057581259083432, -0.05032527872793, -3.3032641670203E-05, -1.8948987516315E-04, -3.9392777243355E-03, -0.043797295650573, -2.6674547914087E-05, 2.0481737692309E-08, 4.3870667284435E-07, -3.227767723857E-05, -1.5033924542148E-03, -0.040668253562649, -7.8847309559367E-10, 1.2790717852285E-08, 4.8225372718507E-07, 2.2922076337661E-06, -1.6714766451061E-11, -2.1171472321355E-03, -23.895741934104, -5.905956432427E-18, -1.2621808899101E-06, -0.038946842435739, 1.1256211360459E-11, -0.082311340897998, 1.9809712802088E-08, 1.0406965210174E-19, -1.0234747095929E-13, -1.0018179379511E-09, -8.0882908646985E-11, 0.10693031879409, -0.33662250574171, 8.9185845355421E-25, 3.0629316876232E-13, -4.2002467698208E-06, -5.9056029685639E-26, 3.7826947613457E-06, -1.2768608934681E-15, 7.3087610595061E-29, 5.5414715350778E-17, -9.436970724121E-07)     Ir2 = Array(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 10, 10, 10, 16, 16, 18, 20, 20, 20, 21, 22, 23, 24, 24, 24)     Jr2 = Array(0, 1, 2, 3, 6, 1, 2, 4, 7, 36, 0, 1, 3, 6, 35, 1, 2, 3, 7, 3, 16, 35, 0, 11, 25, 8, 36, 13, 4, 10, 14, 29, 50, 57, 20, 35, 48, 21, 53, 39, 26, 40, 58)     Nr2m = Array(-7.3362260186506E-03, -0.088223831943146, -0.072334555213245, -4.0813178534455E-03, 2.0097803380207E-03, -0.053045921898642, -0.007619040908697, -6.3498037657313E-03, -0.086043093028588, 0.007532158152277, -7.9238375446139E-03, -2.2888160778447E-04, -0.002645650148281)     Ir2m = Array(1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5)     Jr2m = Array(0, 2, 5, 11, 1, 7, 16, 4, 16, 7, 10, 9, 10)     N3 = Array(-15.732845290239, 20.944396974307, -7.6867707878716, 2.6185947787954, -2.808078114862, 1.2053369696517, -8.4566812812502E-03, -1.2654315477714, -1.1524407806681, 0.88521043984318, -0.64207765181607, 0.38493460186671, -0.85214708824206, 4.8972281541877, -3.0502617256965, 0.039420536879154, 0.12558408424308, -0.2799932969871, 1.389979956946, -2.018991502357, -8.2147637173963E-03, -0.47596035734923, 0.0439840744735, -0.44476435428739, 0.90572070719733, 0.70522450087967, 0.10770512626332, -0.32913623258954, -0.50871062041158, -0.022175400873096, 0.094260751665092, 0.16436278447961, -0.013503372241348, -0.014834345352472, 5.7922953628084E-04, 3.2308904703711E-03, 8.0964802996215E-05, -1.6557679795037E-04, -4.4923899061815E-05)     I3 = Array(0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 8, 9, 9, 10, 10, 11)     J3 = Array(0, 1, 2, 7, 10, 12, 23, 2, 6, 15, 17, 0, 2, 6, 7, 22, 26, 0, 2, 4, 16, 26, 0, 2, 4, 26, 1, 3, 26, 0, 2, 26, 2, 26, 2, 26, 0, 1, 26)     N05 = Array(-13.179983674201, 6.8540841634434, -0.024805148933466, 0.36901534980333, -3.1161318213925, -0.32961626538917)     J05 = Array(0, 1, -3, -2, -1, 2)     Nr5 = Array(1.5736404855259E-03, 9.0153761673944E-04, -5.0270077677648E-03, 2.2440037409485E-06, -4.1163275453471E-06, 3.7919454822955E-08)     Ir5 = Array(1, 1, 1, 2, 2, 3)     Jr5 = Array(1, 2, 3, 3, 9, 7)     VHi = Array(1.67752, 2.20462, 0.6366564, -0.241605)     Vi = Array(0, 1, 2, 3, 0, 1, 2, 3, 5, 0, 1, 2, 3, 4, 0, 1, 0, 3, 4, 3, 5)     Vj = Array(0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 4, 4, 5, 6, 6)     VHij = Array(0.520094, 0.0850895, -1.08374, -0.289555, 0.222531, 0.999115, 1.88797, 1.26613, 0.120573, -0.281378, -0.906851, -0.772479, -0.489837, -0.25704, 0.161913, 0.257399, -0.0325372, 0.0698452, 0.00872102, -0.00435673, -0.000593264) End Sub Function Region(t As Double, p As Double) As Byte     Dim pf, tf As Double     If ((t <= 590) And (p <= 100)) Then         pf = \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(t)     End If     Region = 0     If ((590 < t) And (t <= 800) And (0 <= p) And (p <= 100)) Then         Region = 2     ElseIf ((800 < t) And (t <= 2000) And (0 <= p) And (p <= 50)) Then         Region = 5     ElseIf ((0 <= t) And (t <= 350) And (pf < p) And (p <= 100)) Then         Region = 1     ElseIf ((350 < t) And (t <= 590) And (pf < p) And (p <= 100)) Then         Region = 3     ElseIf ((0 <= t) And (t <= 590) And (0 <= p) And (p < pf)) Then         Region = 2     ElseIf ((0 <= t) And (t <= 590) And (p = pf)) Then         Region = 4     End If End Function Function \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t As Double, p As Double, Optional accuracy) As Double Dim ro_max As Double, ro_mid As Double, ro_min As Double, p_mid As Double, faccuracy As Double     If t < 373.946 Then         If \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(t) < p Then             ro_min = 322             ro_max = 762.4         Else             ro_min = 113.6             ro_max = 322         End If     Else             ro_min = 113.6             ro_max = 762.4     End If     ro_mid = (ro_max + ro_min) \/ 2     p_mid = ro_mid ^ 2 * R * (t + 273.15) * JF(t, ro_mid, dp, 3) \/ 322000000 - p     If IsMissing(accuracy) Then faccuracy = 10 ^ (-Default_accuracy) Else faccuracy = 10 ^ (-accuracy)     Do While (Abs(p_mid) > faccuracy) And (Abs(ro_max - ro_mid) > faccuracy)         If p_mid < 0 Then             ro_min = ro_mid         Else             ro_max = ro_mid         End If         ro_mid = (ro_max + ro_min) \/ 2         p_mid = ro_mid ^ 2 * R * (t + 273.15) * JF(t, ro_mid, dp, 3) \/ 322000000 - p     Loop     If Abs(p_mid) > faccuracy Then \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3 = 1 \/ 0 Else \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3 = ro_mid End Function Function \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430(t As Double, ro As Double) As Double     \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430 = JF(t, ro, non, 3) * (t + 273.15) * R End Function Function \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u04353(t As Double, ro As Double) As Double     \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u04353 = ro ^ 2 * R * (t + 273.15) * JF(t, ro, dp, 3) \/ 322 End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f3(t As Double, ro As Double) As Double     \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f3 = R * 647.096 * JF(t, ro, dt, 3) End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f3(t As Double, ro As Double) As Double     \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f3 = R * (647.096 \/ (t + 273.15) * JF(t, ro, dt, 3) - JF(t, ro, non, 3)) End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f3(t As Double, ro As Double) As Double     \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f3 = R * (647.096 * JF(t, ro, dt, 3) + (t + 273.15) * JF(t, ro, dp, 3) * ro \/ 322) End Function Function \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double     Dim tf As Double, rof As Double, fp As Double     tf = 647.096 \/ (t + 273.15)     rof = ro \/ 322     fp = JF(t, ro, dp, 3)     \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f3 = (-tf ^ 2 * JF(t, ro, dtt, 3) + (fp - tf * JF(t, ro, dtp, 3)) ^ 2 \/ (2 * fp \/ rof + JF(t, ro, dpp, 3))) * R End Function Function \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double     \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f3 = -(647.096 \/ (t + 273.15)) ^ 2 * JF(t, ro, dtt, 3) * R End Function Function \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u04303(t As Double, ro As Double) As Double     Dim tf As Double, rof As Double, fp As Double     tf = 647.096 \/ (t + 273.15)     rof = ro \/ 322     fp = JF(t, ro, dp, 3)     \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u04303 = (R * (t + 273.15) * rof ^ 2 * (2 * fp \/ rof + JF(t, ro, dpp, 3) - (fp - tf * JF(t, ro, dtp, 3)) ^ 2 \/ (tf ^ 2 * JF(t, ro, dtt, 3)))) ^ 0.5 End Function Function \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1, 2, 4, 5, 21         \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430 = JF(t, p, non, Trigger) * (t + 273.15) * R     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430 = JF(t, ro, non, 3) * (t + 273.15) * R     End Select End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c = (t + 273.15) * R * JF(t, p, dp, Trigger) \/ 16530000     Case Is = 2, 4, 5, 21         \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c = (t + 273.15) * R * JF(t, p, dp, Trigger) \/ 1000000     Case Is = 3         \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c = 1 \/ \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)     End Select End Function Function \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c = 1 \/ ((t + 273.15) * R * JF(t, p, dp, Trigger) \/ 16530000)     Case Is = 2, 4, 5, 21         \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c = 1 \/ ((t + 273.15) * R * JF(t, p, dp, Trigger) \/ 1000000)     Case Is = 3         \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)     End Select End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f = R * (1386 * JF(t, p, dt, Trigger) - p \/ 16.53 * (t + 273.15) * JF(t, p, dp, Trigger))     Case Is = 2, 4, 21         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f = R * (540 * JF(t, p, dt, Trigger) - p * (t + 273.15) * JF(t, p, dp, Trigger))     Case Is = 5         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f = R * (1000 * JF(t, p, dt, Trigger) - p * (t + 273.15) * JF(t, p, dp, Trigger))     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f = R * 647.096 * JF(t, ro, dt, Trigger)     End Select End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f = R * (1386 \/ (t + 273.15) * JF(t, p, dt, Trigger) - JF(t, p, non, Trigger))     Case Is = 2, 4, 21         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f = R * (540 \/ (t + 273.15) * JF(t, p, dt, Trigger) - JF(t, p, non, Trigger))     Case Is = 5         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f = R * (1000 \/ (t + 273.15) * JF(t, p, dt, Trigger) - JF(t, p, non, Trigger))     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f = R * (647.096 \/ (t + 273.15) * JF(t, ro, dt, Trigger) - JF(t, ro, non, Trigger))     End Select End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f = R * 1386 * JF(t, p, dt, Trigger)     Case Is = 2, 4, 21         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f = R * 540 * JF(t, p, dt, Trigger)     Case Is = 5         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f = R * 1000 * JF(t, p, dt, Trigger)     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f = R * (647.096 * JF(t, ro, dt, Trigger) + (t + 273.15) * JF(t, ro, dp, Trigger) * ro \/ 322)     End Select End Function Function \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double, tf As Double, rof As Double, fp As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f = -R * (1386 \/ (t + 273.15)) ^ 2 * JF(t, p, dtt, Trigger)     Case Is = 2, 4, 21         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f = -R * (540 \/ (t + 273.15)) ^ 2 * JF(t, p, dtt, Trigger)     Case Is = 5         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f = -R * (1000 \/ (t + 273.15)) ^ 2 * JF(t, p, dtt, Trigger)     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         tf = 647.096 \/ (t + 273.15)         rof = ro \/ 322         fp = JF(t, ro, dp, Trigger)         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f = (-tf ^ 2 * JF(t, ro, dtt, Trigger) + (fp - tf * JF(t, ro, dtp, Trigger)) ^ 2 \/ (2 * fp \/ rof + JF(t, ro, dpp, Trigger))) * R     End Select End Function Function \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double, tf As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         tf = 1386 \/ (t + 273.15)         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f = R * (-tf ^ 2 * JF(t, p, dtt, Trigger) + (JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ JF(t, p, dpp, Trigger))     Case Is = 2, 4, 21         tf = 540 \/ (t + 273.15)         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f = R * (-tf ^ 2 * JF(t, p, dtt, Trigger) + (JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ JF(t, p, dpp, Trigger))     Case Is = 5         tf = 1000 \/ (t + 273.15)         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f = R * (-tf ^ 2 * JF(t, p, dtt, Trigger) + (JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ JF(t, p, dpp, Trigger))     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f = -(647.096 \/ (t + 273.15)) ^ 2 * JF(t, ro, dtt, 3) * R     End Select End Function Function \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double, tf As Double, rof As Double, fp As Double     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     Select Case Trigger     Case Is = 1         tf = 1386 \/ (t + 273.15)         \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430 = Sqr(R * (t + 273.15) * JF(t, p, dp, Trigger) ^ 2 \/ ((JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ (tf ^ 2 * JF(t, p, dtt, Trigger)) - JF(t, p, dpp, Trigger)))     Case Is = 2, 4, 21         tf = 540 \/ (t + 273.15)         \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430 = Sqr(R * (t + 273.15) * JF(t, p, dp, Trigger) ^ 2 \/ ((JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ (tf ^ 2 * JF(t, p, dtt, Trigger)) - JF(t, p, dpp, Trigger)))     Case Is = 5         tf = 1000 \/ (t + 273.15)         \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430 = Sqr(R * (t + 273.15) * JF(t, p, dp, Trigger) ^ 2 \/ ((JF(t, p, dp, Trigger) - tf * JF(t, p, dtp, Trigger)) ^ 2 \/ (tf ^ 2 * JF(t, p, dtt, Trigger)) - JF(t, p, dpp, Trigger)))     Case Is = 3         ro = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t, p)         tf = 647.096 \/ (t + 273.15)         rof = ro \/ 322         fp = JF(t, ro, dp, Trigger)         \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430 = (R * (t + 273.15) * rof ^ 2 * (2 * fp \/ rof + JF(t, ro, dpp, Trigger) - (fp - tf * JF(t, ro, dtp, Trigger)) ^ 2 \/ (tf ^ 2 * JF(t, ro, dtt, Trigger)))) ^ 0.5     End Select End Function Function \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(p As Double) As Double     Dim pf As Double, E As Double, F As Double, G As Double, D As Double     Const N1 = 1167.0521452767, n2 = -724213.16703206, N3 = -17.073846940092, n4 = 12020.82470247, n5 = -3232555.0322333, n6 = 14.91510861353, n7 = -4823.2657361591, n8 = 405113.40542057, n9 = -0.23855557567849, n10 = 650.17534844798     pf = p ^ 0.25     E = pf ^ 2 + N3 * pf + n6     F = N1 * pf ^ 2 + n4 * pf + n7     G = n2 * pf ^ 2 + n5 * pf + n8     D = 2 * G \/ (-F - (F ^ 2 - 4 * E * G) ^ 0.5)     \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f = (n10 + D - ((n10 + D) ^ 2 - 4 * (n9 + n10 * D)) ^ 0.5) \/ 2 - 273.15 End Function Function \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(t As Double) As Double     Dim tf As Double, a As Double, B As Double, C As Double     Const N1 = 1167.0521452767, n2 = -724213.16703206, N3 = -17.073846940092, n4 = 12020.82470247, n5 = -3232555.0322333, n6 = 14.91510861353, n7 = -4823.2657361591, n8 = 405113.40542057, n9 = -0.23855557567849, n10 = 650.17534844798     tf = (t + 273.15) + n9 \/ (t + 273.15 - n10)     a = tf ^ 2 + N1 * tf + n2     B = N3 * tf ^ 2 + n4 * tf + n5     C = n6 * tf ^ 2 + n7 * tf + n8     \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f = (2 * C \/ (-B + (B ^ 2 - 4 * a * C) ^ 0.5)) ^ 4 End Function Function \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(p As Double) As Double     If p < 16.5292 Then         Dim pf As Double, E As Double, F As Double, G As Double, D As Double         Const N1 = 1167.0521452767, n2 = -724213.16703206, N3 = -17.073846940092, n4 = 12020.82470247, n5 = -3232555.0322333, n6 = 14.91510861353, n7 = -4823.2657361591, n8 = 405113.40542057, n9 = -0.23855557567849, n10 = 650.17534844798         pf = p ^ 0.25         E = pf ^ 2 + N3 * pf + n6         F = N1 * pf ^ 2 + n4 * pf + n7         G = n2 * pf ^ 2 + n5 * pf + n8         D = 2 * G \/ (-F - (F ^ 2 - 4 * E * G) ^ 0.5)         \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u0433\u0440\u0430\u043d\u0438\u0446\u044b = (n10 + D - ((n10 + D) ^ 2 - 4 * (n9 + n10 * D)) ^ 0.5) \/ 2 - 273.15     Else         \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u0433\u0440\u0430\u043d\u0438\u0446\u044b = 572.54459862746 + ((p - 13.91883977887) \/ 1.0192970039326E-03) ^ 0.5 - 273.15     End If End Function Function \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(t As Double) As Double     If t < 350 Then         Dim tf As Double, a As Double, B As Double, C As Double         Const N1 = 1167.0521452767, n2 = -724213.16703206, N3 = -17.073846940092, n4 = 12020.82470247, n5 = -3232555.0322333, n6 = 14.91510861353, n7 = -4823.2657361591, n8 = 405113.40542057, n9 = -0.23855557567849, n10 = 650.17534844798         tf = (t + 273.15) + n9 \/ (t + 273.15 - n10)         a = tf ^ 2 + N1 * tf + n2         B = N3 * tf ^ 2 + n4 * tf + n5         C = n6 * tf ^ 2 + n7 * tf + n8         \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b = (2 * C \/ (-B + (B ^ 2 - 4 * a * C) ^ 0.5)) ^ 4     Else         \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b = 348.05185628969 - 1.1671859879975 * (t + 273.15) + 1.0192970039326E-03 * (t + 273.15) ^ 2     End If End Function Function \u0412\u044f\u0437\u043a\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double     Dim Trigger As Byte, ro As Double, tf As Double, rof As Double, fp As Double     Dim i As Integer     If IsMissing(reg) Then Trigger = Region(t, p) Else Trigger = reg     tf = (t + 273.15) \/ 647.096     rof = \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c(t, p, Trigger) \/ 322     mu0 = 0     For i = 1 To 4         mu0 = mu0 + VHi(i) \/ tf ^ (i - 1)     Next     mu0 = 100 * tf ^ 0.5 \/ mu0     mu1 = 0     For i = 1 To 21         mu1 = mu1 + VHij(i) * (1 \/ tf - 1) ^ Vi(i) * (rof - 1) ^ Vj(i)     Next     mu1 = Exp(rof * mu1)     mu2 = 1     \u0412\u044f\u0437\u043a\u043e\u0441\u0442\u044c = mu0 * mu1 * mu2 * 0.000001 End Function Function JF(t As Double, p As Double, Trigger As Byte, reg As Byte) As Double Dim i As Integer, tf As Double, pf As Double, rof As Double Select Case reg Case 1     pf = p \/ 16.53     tf = 1386 \/ (t + 273.15)     JF = 0     Select Case Trigger     Case non         For i = 1 To 34             JF = JF + N1(i) * (7.1 - pf) ^ I1(i) * (tf - 1.222) ^ J1(i)         Next     Case dt         For i = 1 To 34             JF = JF + N1(i) * J1(i) * (7.1 - pf) ^ I1(i) * (tf - 1.222) ^ (J1(i) - 1)         Next     Case dtt         For i = 1 To 34             JF = JF + N1(i) * J1(i) * (J1(i) - 1) * (7.1 - pf) ^ I1(i) * (tf - 1.222) ^ (J1(i) - 2)         Next     Case dtp         For i = 1 To 34             JF = JF - N1(i) * I1(i) * J1(i) * (7.1 - pf) ^ (I1(i) - 1) * (tf - 1.222) ^ (J1(i) - 1)         Next     Case dp         For i = 1 To 34             JF = JF - N1(i) * I1(i) * (7.1 - pf) ^ (I1(i) - 1) * (tf - 1.222) ^ J1(i)         Next     Case dpp         For i = 1 To 34             JF = JF + N1(i) * I1(i) * (I1(i) - 1) * (7.1 - pf) ^ (I1(i) - 2) * (tf - 1.222) ^ J1(i)         Next     End Select Case 2, 4     pf = p     tf = 540 \/ (t + 273.15)     Select Case Trigger     Case non         JF = Log(p)         For i = 1 To 9             JF = JF + N02(i) * tf ^ J02(i)         Next         For i = 1 To 43             JF = JF + Nr2(i) * pf ^ Ir2(i) * (tf - 0.5) ^ Jr2(i)         Next     Case dt         JF = 0         For i = 1 To 9             JF = JF + N02(i) * J02(i) * tf ^ (J02(i) - 1)         Next         For i = 1 To 43             JF = JF + Nr2(i) * pf ^ Ir2(i) * Jr2(i) * (tf - 0.5) ^ (Jr2(i) - 1)         Next     Case dtt         JF = 0         For i = 1 To 9             JF = JF + N02(i) * J02(i) * (J02(i) - 1) * tf ^ (J02(i) - 2)         Next         For i = 1 To 43             JF = JF + Nr2(i) * pf ^ Ir2(i) * Jr2(i) * (Jr2(i) - 1) * (tf - 0.5) ^ (Jr2(i) - 2)         Next     Case dtp         JF = 0         For i = 1 To 43             JF = JF + Nr2(i) * Ir2(i) * pf ^ (Ir2(i) - 1) * Jr2(i) * (tf - 0.5) ^ (Jr2(i) - 1)         Next     Case dp         JF = 1 \/ pf         For i = 1 To 43             JF = JF + Nr2(i) * Ir2(i) * pf ^ (Ir2(i) - 1) * (tf - 0.5) ^ Jr2(i)         Next     Case dpp         JF = -1 \/ pf ^ 2         For i = 1 To 43             JF = JF + Nr2(i) * Ir2(i) * (Ir2(i) - 1) * pf ^ (Ir2(i) - 2) * (tf - 0.5) ^ Jr2(i)         Next     End Select Case 21     pf = p     tf = 540 \/ (t + 273.15)     Select Case Trigger     Case non         JF = Log(p)         For i = 1 To 9             JF = JF + N02m(i) * tf ^ J02(i)         Next         For i = 1 To 13             JF = JF + Nr2m(i) * pf ^ Ir2m(i) * (tf - 0.5) ^ Jr2m(i)         Next     Case dt         JF = 0         For i = 1 To 9             JF = JF + N02m(i) * J02(i) * tf ^ (J02(i) - 1)         Next         For i = 1 To 13             JF = JF + Nr2m(i) * pf ^ Ir2m(i) * Jr2m(i) * (tf - 0.5) ^ (Jr2m(i) - 1)         Next     Case dtt         JF = 0         For i = 1 To 9             JF = JF + N02m(i) * J02(i) * (J02(i) - 1) * tf ^ (J02(i) - 2)         Next         For i = 1 To 13             JF = JF + Nr2m(i) * pf ^ Ir2m(i) * Jr2m(i) * (Jr2m(i) - 1) * (tf - 0.5) ^ (Jr2m(i) - 2)         Next     Case dtp         JF = 0         For i = 1 To 13             JF = JF + Nr2m(i) * Ir2m(i) * pf ^ (Ir2m(i) - 1) * Jr2m(i) * (tf - 0.5) ^ (Jr2m(i) - 1)         Next     Case dp         JF = 1 \/ pf         For i = 1 To 13             JF = JF + Nr2m(i) * Ir2m(i) * pf ^ (Ir2m(i) - 1) * (tf - 0.5) ^ Jr2m(i)         Next     Case dpp         JF = -1 \/ pf ^ 2         For i = 1 To 13             JF = JF + Nr2m(i) * Ir2m(i) * (Ir2m(i) - 1) * pf ^ (Ir2m(i) - 2) * (tf - 0.5) ^ Jr2m(i)         Next     End Select Case 3     rof = p \/ 322     tf = 647.096 \/ (t + 273.15)     Select Case Trigger     Case non         JF = 1.0658070028513 * Log(rof)         For i = 1 To 39             JF = JF + N3(i) * rof ^ I3(i) * tf ^ J3(i)         Next     Case dt         JF = 0         For i = 1 To 39             JF = JF + N3(i) * rof ^ I3(i) * J3(i) * tf ^ (J3(i) - 1)         Next     Case dtt         JF = 0         For i = 1 To 39             JF = JF + N3(i) * rof ^ I3(i) * J3(i) * (J3(i) - 1) * tf ^ (J3(i) - 2)         Next     Case dtp         JF = 0         For i = 1 To 39             JF = JF + N3(i) * I3(i) * rof ^ (I3(i) - 1) * J3(i) * tf ^ (J3(i) - 1)         Next     Case dp         JF = 1.0658070028513 \/ rof         For i = 1 To 39             JF = JF + N3(i) * I3(i) * rof ^ (I3(i) - 1) * tf ^ J3(i)         Next     Case dpp         JF = -1.0658070028513 \/ rof ^ 2         For i = 1 To 39             JF = JF + N3(i) * I3(i) * (I3(i) - 1) * rof ^ (I3(i) - 2) * tf ^ J3(i)         Next     End Select Case 5     pf = p     tf = 1000 \/ (t + 273.15)     Select Case Trigger     Case non         JF = Log(p)         For i = 1 To 6             JF = JF + N05(i) * tf ^ J05(i)         Next         For i = 1 To 6             JF = JF + Nr5(i) * pf ^ Ir5(i) * tf ^ Jr5(i)         Next     Case dt         JF = 0         For i = 1 To 6             JF = JF + N05(i) * J05(i) * tf ^ (J05(i) - 1)         Next         For i = 1 To 6             JF = JF + Nr5(i) * pf ^ Ir5(i) * Jr5(i) * tf ^ (Jr5(i) - 1)         Next     Case dtt         JF = 0         For i = 1 To 6             JF = JF + N05(i) * J05(i) * (J05(i) - 1) * tf ^ (J05(i) - 2)         Next         For i = 1 To 6             JF = JF + Nr5(i) * pf ^ Ir5(i) * Jr5(i) * (Jr5(i) - 1) * tf ^ (Jr5(i) - 2)         Next     Case dtp         JF = 0         For i = 1 To 6             JF = JF + Nr5(i) * Ir5(i) * pf ^ (Ir5(i) - 1) * Jr5(i) * tf ^ (Jr5(i) - 1)         Next     Case dp         JF = 1 \/ pf         For i = 1 To 6             JF = JF + Nr5(i) * Ir5(i) * pf ^ (Ir5(i) - 1) * tf ^ Jr5(i)         Next     Case dpp         JF = -1 \/ pf ^ 2         For i = 1 To 6             JF = JF + Nr5(i) * Ir5(i) * (Ir5(i) - 1) * pf ^ (Ir5(i) - 2) * tf ^ Jr5(i)         Next     End Select End Select End Function Function \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c_\u041c\u0418(t As Double, p As Double) As Double     tau = (t + 273.15) \/ 647.14     Pi = p \/ 22.064     \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c_\u041c\u0418 = 1000 \/ (114.332 * tau - 431.6382 + 706.5474 \/ tau - 641.9127 \/ tau ^ 2 + 349.4417 \/ tau ^ 3 - 113.8191 \/ tau ^ 4 + 20.5199 \/ tau ^ 5 - 1.578507 \/ tau ^ 6 + Pi * (-3.117072 + 6.589303 \/ tau - 5.210142 \/ tau ^ 2 + 1.819096 \/ tau ^ 3 - 0.2365448 \/ tau ^ 4) + Pi ^ 2 * (-6.417443 * tau + 19.84842 - 24.00174 \/ tau + 14.21655 \/ tau ^ 2 - 4.13194 \/ tau ^ 3 + 0.4721637 \/ tau ^ 4)) End Function Function \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f_\u041c\u0418(t As Double, p As Double) As Double     tau = (t + 273.15) \/ 647.14     Pi = p \/ 22.064     \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f_\u041c\u0418 = (7809.096 * tau - 13868.72 + 12725.22 \/ tau - 6370.893 \/ tau ^ 2 + 1595.86 \/ tau ^ 3 - 159.9064 \/ tau ^ 4 + Pi * (9.488789 \/ tau + 1) + Pi ^ 2 * (-148.1135 * tau + 224.3027 - 111.4602 \/ tau + 18.15823 \/ tau ^ 2)) * 1000 End Function<\/code><\/pre>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n
      <\/div>\n
      
     \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  https:\/\/habr.com\/ru\/post\/712656\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
    <\/div>\n
    \n
    \n
    \n
    \n
    \u041f\u0440\u0438 \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0438 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u044b \u041c\u0435\u0436\u0434\u0443\u043d\u0430\u0440\u043e\u0434\u043d\u043e\u0439 \u0430\u0441\u0441\u043e\u0446\u0438\u0430\u0446\u0438\u0438 \u043f\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u0432\u043e\u0434\u044b \u0438 \u0432\u043e\u0434\u044f\u043d\u043e\u0433\u043e \u043f\u0430\u0440\u0430 (\u041c\u0410\u0421\u041f\u0412, \u0430\u043d\u0433.IASPW):<\/p>\n
      \n
    1. \n
      Revised Release on the IAPWS Industrial Formulation 1997 For the Thermodynamic Properties of Water and Steam. August 2007. (\u0414\u0430\u043b\u0435\u0435 \u0432 \u0442\u0435\u043a\u0441\u0442\u0435 IF97)<\/p>\n<\/li>\n
    2. \n
      Release on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance. September 2008. <\/p>\n<\/li>\n<\/ol>\n
      <\/figcaption><\/figure>\n
      1.\u00a0\u041e\u0441\u043d\u043e\u0432\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n
      \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u044b\u0439_\u043e\u0431\u044a\u0435\u043c(t As Double, p As Double, Optional reg) As Double, [\u043c3<\/sup>\/\u043a\u0433]<\/p>\n
      \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double, [\u043a\u0433\/ \u043c3<\/sup>]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n
      \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f(t As Double, p As Double, Optional reg) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n
      \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u0430(t As Double, p As Double, Optional reg) As Double, [\u043c\/\u0441]<\/p>\n
      \u0412\u0441\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0438\u043c\u0435\u044e\u0442 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0443 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430. \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u0430\u043c\u043e\u0441\u0442\u043e\u044f\u0442\u0435\u043b\u044c\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u043e\u0431\u043b\u0430\u0441\u0442\u044c (\u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 Region<\/em><\/strong>) \u0438 \u0444\u043e\u0440\u043c\u0443\u043b\u0443, \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u0442\u044c \u0432 \u044d\u0442\u043e\u043c \u0440\u0435\u0433\u0438\u043e\u043d\u0435.<\/p>\n
      \u0415\u0441\u043b\u0438 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u044c, \u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043e\u043f\u0443\u0441\u043a\u0430\u044e\u0442 \u0440\u0443\u0447\u043d\u043e\u0435 \u0432\u044b\u0431\u043e\u0440 \u0440\u0435\u0433\u0438\u043e\u043d\u0430. \u042d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c\u0441\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u0432 \u043c\u0435\u0442\u0430\u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u043e\u043c \u0440\u0435\u0433\u0438\u043e\u043d\u0435. \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 reg<\/em><\/strong> \u044d\u0442\u043e \u0447\u0438\u0441\u043b\u0430 \u0441 \u043d\u043e\u043c\u0435\u0440\u0430\u043c\u0438 \u0440\u0435\u0433\u0438\u043e\u043d\u043e\u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u043d\u0430 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 \u0444\u043e\u0440\u043c\u0443\u043b\u044f\u0446\u0438\u0438 IF97. \u041a\u0440\u043e\u043c\u0435 \u044d\u0442\u043e\u0433\u043e \u0434\u043b\u044f \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043c\u0435\u0442\u0430\u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u044b\u0445 \u043f\u0430\u0440\u043e\u0432 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 reg=21<\/em><\/strong> (\u0442\u0430\u043a \u043a\u0430\u043a \u044d\u0442\u0430 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043f\u0435\u0440\u0435\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043e\u0431\u043b\u0430\u0441\u0442\u044c\u044e 1 \u2013 \u0432\u043e\u0434\u0430).<\/p>\n
      \u0412 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 3 \u0432 IF97 \u0432 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u043e\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3<\/em><\/strong> \u0441 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0434\u043e 3 \u0437\u043d\u0430\u043a\u043e\u0432 \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u043f\u044f\u0442\u043e\u0439. \u0412\u0441\u043b\u0435\u0434\u0441\u0442\u0432\u0438\u0435 \u044d\u0442\u043e\u0433\u043e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043d\u0438\u0436\u0430\u0442\u044c\u0441\u044f, \u0430 \u0432 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 \u043f\u043e\u0433\u0440\u0435\u0448\u043d\u043e\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u0434\u043e\u0441\u0442\u0438\u0433\u0430\u0442\u044c 3-4%. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0446\u0435\u043b\u0435\u0441\u043e\u043e\u0431\u0440\u0430\u0437\u043d\u0435\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438.<\/p>\n
      \u0417\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435<\/u><\/em><\/p>\n
      \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0438\u0431\u0431\u0441\u0430<\/em><\/strong> \u0432 3-\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432\u043c\u0435\u0441\u0442\u043e \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0438\u0431\u0431\u0441\u0430 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u044d\u043d\u0435\u0440\u0433\u0438\u044e \u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430.<\/p>\n
      2.\u00a0\u0424\u0443\u043d\u043a\u0446\u0438\u0438 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438<\/h4>\n
      \u042d\u043d\u0435\u0440\u0433\u0438\u044f_\u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u04353(t As Double, ro As Double) As Double, [\u041f\u0430]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0435\u0440\u0433\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0440\u043e\u043f\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0431\u0430\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n
      \u0422\u0435\u043f\u043b\u043e\u0435\u043c\u043a\u043e\u0441\u0442\u044c_\u0438\u0437\u043e\u0445\u043e\u0440\u043d\u0430\u044f3(t As Double, ro As Double) As Double, [\u0414\u0436\/(\u043a\u0433\u2219\u00b0\u0421)]<\/p>\n
      \u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c_\u0437\u0432\u0443\u043a\u04303(t As Double, ro As Double) As Double, [\u043c\/\u0441]<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u0438 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0438\u043c\u0435\u044e\u0442 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0443 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c \u0432 \u043a\u0433\/ \u043c3<\/sup>. \u0414\u0430\u043d\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u044b \u0444\u043e\u0440\u043c\u0443\u043b\u0430\u043c IF97 \u0438 \u0434\u0430\u044e\u0442 \u043d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u0442\u043e\u0447\u043d\u044b\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0432 \u044d\u0442\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438.<\/p>\n
      3.\u00a0\u0412\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n
      \u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c3(t As Double, p As Double, Optional accuracy) As Double<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u043b\u044f 3-\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442 \u043f\u043e\u0438\u0441\u043a \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0439 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c : \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0432 \u041c\u041f\u0430. \u041f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 3, \u0447\u0442\u043e \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 3 \u0437\u043d\u0430\u043a\u0430\u043c \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u043f\u044f\u0442\u043e\u0439 \u00b10,001 \u043a\u0433\/ \u043c3<\/sup>. \u0412 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 (P=22,064\u041c\u041f\u0430 \u0438 t=373,946\u00b0\u0421) \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043d\u0435 \u043c\u043e\u0436\u0435\u0442 \u0442\u043e\u0447\u043d\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437-\u0437\u0430 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0433\u0440\u0430\u0444\u0438\u043a \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u03c1=f(p) \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0433\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u044b\u043c \u0438 \u043f\u043e\u0433\u0440\u0435\u0448\u043d\u043e\u0441\u0442\u044c \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u0435\u0442 \u0434\u043e 3-4% \u0438 \u0431\u043e\u043b\u0435\u0435. \u0414\u043b\u044f \u043f\u043e\u0432\u044b\u0448\u0435\u043d\u0438\u044f \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u0435\u0442\u0441\u044f \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0431\u043e\u043b\u0435\u0435 \u0432\u044b\u0441\u043e\u043a\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438. \u041c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e \u0434\u043e\u043f\u0443\u0441\u0442\u0438\u043c\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u043e accuracy=13 !!!<\/em><\/strong> \u042d\u0442\u043e \u0432\u044b\u0437\u0432\u0430\u043d\u043e \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0441 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043e\u043f\u0435\u0440\u0438\u0440\u0443\u0435\u0442 VBA \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u0442\u0438\u043f\u0430 double. \u041f\u0440\u0438 \u0432\u0432\u043e\u0434\u0435 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 14 \u0438 \u0431\u043e\u043b\u0435\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0437\u0430\u0432\u0438\u0441\u0430\u0435\u0442.<\/u><\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0432 \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d\u0435 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0435\u0439 \u043e\u0442 113,6 \u0434\u043e 762,4 \u043a\u0433\/ \u043c3<\/sup>. \u0412 \u0441\u043b\u0443\u0447\u0430\u0435 \u0435\u0441\u043b\u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u044b\u0445\u043e\u0434\u0438\u0442 \u0437\u0430 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u0440\u0430\u043c\u043a\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043e\u0448\u0438\u0431\u043a\u0443 \u043d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 #\u0417\u041d\u0410\u0427!<\/strong><\/p>\n
      4.\u00a0\u0412\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/h4>\n
      \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(p As Double) As Double, [\u00b0\u0421]<\/p>\n
      \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f(t As Double) As Double, [\u041c\u041f\u0430]<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u0433\u0440\u0430\u0444\u0438\u043a \u043a\u0440\u0438\u0432\u043e\u0439 \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u044e\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 \u0438\u0445 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0438\u043b\u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0432\u0442\u043e\u0440\u043e\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440. \u0410\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b \u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u044b: \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430, \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f.<\/p>\n
      \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(p As Double) As Double, [\u00b0\u0421]<\/p>\n
      \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435_\u0433\u0440\u0430\u043d\u0438\u0446\u044b(t As Double) As Double, [\u041c\u041f\u0430]<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0432 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u0433\u0440\u0430\u0444\u0438\u043a \u043a\u0440\u0438\u0432\u043e\u0439 \u043b\u0438\u043d\u0438\u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0438\u0432\u0430\u044e\u0449\u0435\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u044c 2 (\u043f\u0430\u0440) \u043e\u0442 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 1 \u0438 3. \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0434\u0435\u043d\u0442\u0438\u0447\u043d\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f.<\/p>\n
      \u0417\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435<\/u><\/em><\/p>\n
      \u041f\u0440\u0438 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430\u0445 \u0434\u043e 350\u00b0\u0421 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u043e\u0432\u043f\u0430\u0434\u0430\u044e\u0442 \u0441 \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c\u0438 \u043b\u0438\u043d\u0438\u0438 \u043d\u0430\u0441\u044b\u0449\u0435\u043d\u0438\u044f.<\/p>\n
      Region(t As Double, p As Double) As Byte<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043d\u043e\u043c\u0435\u0440 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0439 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u043c \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0438 \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435. \u041d\u043e\u043c\u0435\u0440\u0430 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0442 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 IF97<\/p>\n
      JF(t As Double, p As Double, Trigger As Byte, reg As Byte) As Double<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0445 \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u043d\u044b\u0445 \u044d\u043d\u0435\u0440\u0433\u0438\u0439 \u0440\u0435\u0433\u0438\u043e\u043d\u0430 reg<\/em><\/strong>. \u0414\u043b\u044f 3-\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u044d\u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0441\u0432\u043e\u0431\u043e\u0434\u043d\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0435\u043b\u044c\u043c\u0433\u043e\u043b\u044c\u0446\u0430 , \u0430 \u0434\u043b\u044f \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u0435\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u044f \u0413\u0438\u0431\u0431\u0441\u0430 <\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0438\u043c\u0435\u0435\u0442 4 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430:<\/p>\n
      1.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0422\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0430 \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445 \u0426\u0435\u043b\u044c\u0441\u0438\u044f<\/p>\n
      2.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0414\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 \u041c\u041f\u0430<\/p>\n
      3.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Trigger \u0438\u043c\u0435\u0435\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u044b\u0435 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u044b:<\/p>\n
      a.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u0430\u043c\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u2013 0<\/p>\n
      b.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0427\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u2013 1<\/p>\n
      c.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0412\u0442\u043e\u0440\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u2013 2<\/p>\n
      d.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0421\u043c\u0435\u0448\u0430\u043d\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u043f\u043e \u0442\u0435\u043c\u043f\u0435\u0440\u0430\u0442\u0443\u0440\u0435 \u0438 \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 3<\/p>\n
      e.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0427\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 4<\/p>\n
      f.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u0412\u0442\u043e\u0440\u0430\u044f \u0447\u0430\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u0430\u044f \u0434\u0430\u0432\u043b\u0435\u043d\u0438\u044e (\u0438\u043b\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f 3-\u0433\u043e \u0440\u0435\u0433\u0438\u043e\u043d\u0430)\u00a0 — 5<\/p>\n
      4.\u00a0\u00a0\u00a0\u00a0\u00a0 \u0420\u0435\u0433\u0438\u043e\u043d \u0438\u043c\u0435\u0435\u0442 \u0434\u043e\u043f\u0443\u0441\u0442\u0438\u043c\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u2013 1,2,3,4,5,21<\/p>\n
      \u0412\u044f\u0437\u043a\u043e\u0441\u0442\u044c(t As Double, p As Double, Optional reg) As Double, [\u041f\u0430\u2219\u0441]<\/p>\n
      \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0432\u044f\u0437\u043a\u043e\u0441\u0442\u0438 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u043d\u0443\u044e \u0432 \u041f\u0430\u2219\u0441 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u043d\u043d\u0443\u044e \u043f\u043e \u0444\u043e\u0440\u043c\u0443\u043b\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u0432 \u00abRelease on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance\u00bb \u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044c 2008. \u041d\u043e \u0442\u0430\u043a \u043a\u0430\u043a \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u03bc2 <\/sub>\u043f\u0440\u0438\u043d\u044f\u0442 \u0440\u0430\u0432\u043d\u044b\u043c \u0435\u0434\u0438\u043d\u0438\u0446\u0435, \u0442\u043e \u0432 \u0440\u0430\u0439\u043e\u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 (P=22,064\u041c\u041f\u0430 \u0438 t=373,946\u00b0\u0421) \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043d\u0435 \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c\u0430. \u0412 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0445 \u043e\u0431\u043b\u0430\u0441\u0442\u044f\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0441 \u043f\u0440\u0438\u0435\u043c\u043b\u0435\u043c\u043e\u0439 \u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c\u044e \u0434\u043e 1-2%. \u0412 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u043e\u043c \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0441\u043e\u0432\u043f\u0430\u0434\u0430\u0435\u0442 \u0441 \u043e\u0431\u043b\u0430\u0441\u0442\u044c\u044e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u043b\u044f \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0430 IF97.<\/p>\n
      5.\u00a0\u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u041c\u0418 2412-97<\/h4>\n
      \u0412 \u0432\u0435\u0440\u0441\u0438\u0438 1.1. \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u0438 \u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c\u044b\u0435 \u043f\u043e \u0444\u043e\u0440\u043c\u0443\u043b\u0430\u043c \u041f.1 \u0438 \u041f.2 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u043c \u0432 \u041c\u0418 2412-97 \u00ab\u0412\u043e\u0434\u044f\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0442\u0435\u043f\u043b\u043e\u0441\u043d\u0430\u0431\u0436\u0435\u043d\u0438\u044f. \u0423\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0438\u0437\u043c\u0435\u0440\u0435\u043d\u0438\u0439 \u0442\u0435\u043f\u043b\u043e\u0432\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0442\u0435\u043f\u043b\u043e\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044f\u00bb.<\/p>\n
      \u00a0\u041f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u044c_\u041c\u0418(t As Double, p As Double) As Double, [\u043a\u0433\/ \u043c3<\/sup>]<\/p>\n
      \u0423\u0434\u0435\u043b\u044c\u043d\u0430\u044f_\u044d\u043d\u0442\u0430\u043b\u044c\u043f\u0438\u044f_\u041c\u0418(t As Double, p As Double) As Double, [\u0414\u0436\/\u043a\u0433]<\/p>\n
      Attribute VB_Name = \"IF97_1_1\" Option Base 1 Public N1, I1, J1 'I phase Public N02, J02, Nr2, Ir2, Jr2 'II phase Public N02m, Nr2m, Ir2m, Jr2m 'metastable-vapor region Public N3, I3, J3 'III phase Public N05, J05, Nr5, Ir5, Jr5 'V phase Public Vi0, VHi, Vi, Vj, VHij ' Viscosity Const non = 0, dt = 1, dtt = 2, dtp = 3, dp = 4, dpp = 5 ' \u0422\u0440\u0438\u0433\u0433\u0435\u0440\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0413\u0438\u0431\u0431\u0441\u0430 Const R = 461.526, Default_accuracy = 3 Sub Auto_Open()     MsgBox \"\u041f\u0440\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b :\" & vbCrLf & \"1. Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam (\u0420\u0435\u0434\u0430\u043a\u0446\u0438\u044f 2007 \u0433\u043e\u0434\u0430).\" & vbCrLf & \"2. Release on the IAPWS Formulation 2008 for the Viscosity of Ordinary Water Substance.\" & vbCrLf & \"3. \u041c\u0418 2412-97 \u0412\u043e\u0434\u044f\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0442\u0435\u043f\u043b\u043e\u0441\u043d\u0430\u0431\u0436\u0435\u043d\u0438\u044f \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0438\u0437\u043c\u0435\u0440\u0435\u043d\u0438\u0439 \u0442\u0435\u043f\u043b\u043e\u0432\u043e\u0439 \u044d\u043d\u0435\u0440\u0433\u0438\u0438 \u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0442\u0435\u043f\u043b\u043e\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044f\", , \"\u041e\u041e\u041e \u00ab\u0420\u043e\u0433\u0430 \u0438 \u041a\u043e\u043f\u044b\u0442\u0430\u00bb\"     N1 = Array(0.14632971213167, -0.84548187169114, -3.756360367204, 3.3855169168385, -0.95791963387872, 0.15772038513228, -0.016616417199501, 8.1214629983568E-04, 2.8319080123804E-04, -6.0706301565874E-04, -0.018990068218419, -0.032529748770505, -0.021841717175414, -5.283835796993E-05, -4.7184321073267E-04, -3.0001780793026E-04, 4.7661393906987E-05, -4.4141845330846E-06, -7.2694996297594E-16, -3.1679644845054E-05, -2.8270797985312E-06, -8.5205128120103E-10, -2.2425281908E-06, -6.5171222895601E-07, -1.4341729937924E-13, -4.0516996860117E-07, -1.2734301741641E-09, -1.7424871230634E-10, -6.8762131295531E-19, 1.4478307828521E-20, 2.6335781662795E-23, -1.1947622640071E-23, 1.8228094581404E-24, -9.3537087292458E-26)     I1 = Array(0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 8, 8, 21, 23, 29, 30, 31, 32)     J1 = Array(-2, -1, 0, 1, 2, 3, 4, 5, -9, -7, -1, 0, 1, 3, -3, 0, 1, 3, 17, -4, 0, 6, -5, -2, 10, -8, -11, -6, -29, -31, -38, -39, -40, -41)     N02 = Array(-9.6927686500217, 10.086655968018, -0.005608791128302, 0.071452738081455, -0.40710498223928, 1.4240819171444, -4.383951131945, -0.28408632460772, 0.021268463753307)     N02m = Array(-9.6937268393049, 10.087275970006, -0.005608791128302, 0.071452738081455, -0.40710498223928, 1.4240819171444, -4.383951131945, -0.28408632460772, 0.021268463753307)     J02 = Array(0, 1, -5, -4, -3, -2, -1, 2, 3)     Nr2 = Array(-1.7731742473213E-03, -0.017834862292358, -0.045996013696365, -0.057581259083432, -0.05032527872793, -3.3032641670203E-05, -1.8948987516315E-04, -3.9392777243355E-03, -0.043797295650573, -2.6674547914087E-05, 2.0481737692309E-08, 4.3870667284435E-07, -3.227767723857E-05, -1.5033924542148E-03, -0.040668253562649, -7.8847309559367E-10, 1.2790717852285E-08, 4.8225372718507E-07, 2.2922076337661E-06, -1.6714766451061E-11, -2.1171472321355E-03, -23.895741934104, -5.905956432427E-18, -1.2621808899101E-06, -0.038946842435739, 1.1256211360459E-11, -0.082311340897998, 1.9809712802088E-08, 1.0406965210174E-19, -1.0234747095929E-13, -1.0018179379511E-09, -8.0882908646985E-11, 0.10693031879409, -0.33662250574171, 8.9185845355421E-25, 3.0629316876232E-13, -4.2002467698208E-06, -5.9056029685639E-26, 3.7826947613457E-06, -1.2768608934681E-15, 7.3087610595061E-29, 5.5414715350778E-17, -9.436970724121E-07)     Ir2 = Array(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 10, 10,<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-344443","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/344443","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=344443"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/344443\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=344443"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=344443"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=344443"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}