function L=L_SAO_cylinder_1(T_0, T_1, d, v_pr)
 % Определяет длину зоны активного охлаждения L [м] круглого проката
 % диаметром d [мм], движущегося со скоростью v_pr [м/с] высокотурбулизи-
 % рованным потоком воды с температуры конца прокатки T_0 [град. C] до
 % температуры конца ускоренного охлаждения T_1 [град. C]

% Время ожлаждения
tau=tau_cylinder_1(T_0, T_1, d);
% Длина ЗАО
L = tau.*v_pr;