function T_W = T_Water(T_0, T_1, d_pr, v_pr, T_W_0, Q)
% Определяет температуру охлаждающей воды T_W [град. C] после ее
% использования в линии ускоренного охлаждения. Охлаждается прокат
% диаметром d_pr [мм], движущийся со скоростью v_pr с температуры
% T_0 [град. C] до T_1 [град. C]. Температура воды на входе в линию
% составляет T_W_0 [град. C], расход воды - Q [л/с].

% При вычислениях будем использовать сплайн-интерполяцию зависимости
% теплосодержания стали от температуры
load Cylinder_1_M_Spline.mat i_ot_T

% Теплосодержание раската в начале охлаждения и в конце
i_0 = spline(i_ot_T(1,:), i_ot_T(2,:), T_0);
i_1 = spline(i_ot_T(1,:), i_ot_T(2,:), T_1);
% Снижение удельного теплосодержания раската
Del_i = i_0 - i_1;

% Площадь сечения раската
S = pi.*d_pr.^2./4;
% Масса погонного метра
m = 7.85E-3.*S;
% Секундный объем
M = m.*v_pr;

% Тепловая мощность ЛУО
q = M.*Del_i;

% Разогрев воды в ЛУО определяем как
Del_T = q./Q./4.19E3;

% Температура охлаждающей воды после ее использования составит
T_W = T_W_0 + Del_T;