#count := #count + 1;
IF #count = 10 THEN
IF #HMI_自动启停 AND (#HMI速度设定值 = #PLC斜坡输出值) AND ((#HMI速度设定值 - 0.2) < #实际线速度) AND (#实际线速度 < (#HMI速度设定值 + 0.2)) THEN
#Diameter_unwind_temp := ABS((#实际线速度 * #放卷减速比 * 1000.0 / #放卷实际转速 / 3.14));
#Diameter_wind_temp := ABS((#实际线速度 * #收卷减速比 * 1000.0 / #收卷实际转速 / 3.14));
END_IF;
#count := 0;
END_IF;
IF #HMI_自动启停 = 0 OR #HMI速度设定值 <> #PLC斜坡输出值 OR (#实际线速度 <= (#HMI速度设定值 - 0.2)) OR (#实际线速度 >= (#HMI速度设定值 + 0.2)) THEN
#count := 0;
END_IF;

IF #Diameter_unwind_temp > #线辊最大直径 THEN
#Diameter_unwind_temp := #线辊最大直径;
END_IF;
IF #Diameter_unwind_temp < #线辊最小直径 THEN
#Diameter_unwind_temp := #线辊最小直径;
END_IF;

IF #Diameter_wind_temp > #线辊最大直径 THEN
#Diameter_wind_temp := #线辊最大直径;
END_IF;
IF #Diameter_wind_temp < #线辊最小直径 THEN
#Diameter_wind_temp := #线辊最小直径;
END_IF;

IF #HMI_自动启停 THEN
IF #Diameter_unwind_temp > #放卷实际卷径 THEN
IF #Diameter_unwind_temp - #放卷实际卷径 > 1 THEN
#放卷实际卷径 := #放卷实际卷径 + 1;
ELSE
#放卷实际卷径 := #Diameter_unwind_temp;
END_IF;
ELSE
IF #放卷实际卷径 - #Diameter_unwind_temp > 1 THEN
#放卷实际卷径 := #放卷实际卷径 - 1;
ELSE
#放卷实际卷径 := #Diameter_unwind_temp;
END_IF;
END_IF;

IF #Diameter_wind_temp > #收卷实际卷径 THEN
    IF #Diameter_wind_temp - #收卷实际卷径 > 1 THEN
        #收卷实际卷径 := #收卷实际卷径 + 1;
    ELSE
        #收卷实际卷径 := #Diameter_wind_temp;
    END_IF;
ELSE
    IF #收卷实际卷径 - #Diameter_wind_temp > 1 THEN
        #收卷实际卷径 := #收卷实际卷径 - 1;
    ELSE
        #收卷实际卷径 := #Diameter_wind_temp;
    END_IF;
END_IF;

ELSE
#Diameter_unwind_temp := #放卷实际卷径;
#Diameter_wind_temp := #收卷实际卷径;
END_IF;
IF #放卷实际卷径 > #线辊最大直径 THEN
#放卷实际卷径 := #线辊最大直径;
END_IF;
IF #放卷实际卷径 < #线辊最小直径 THEN
#放卷实际卷径 := #线辊最小直径;
END_IF;

IF #收卷实际卷径 > #线辊最大直径 THEN
#收卷实际卷径 := #线辊最大直径;
END_IF;
IF #收卷实际卷径 < #线辊最小直径 THEN
#收卷实际卷径 := #线辊最小直径;
END_IF;

/////////////////////////////计算主电机实际卷径//////////////////////////////////
(*
IF #HMI_自动启停 AND (#HMI速度设定值 = #PLC斜坡输出值) AND #HMI速度设定值 < 10 THEN
#主电机实际卷径 := ABS((#实际线速度 * 1.6 * 1000.0 / #主电机实际转速 / 3.14));
END_IF;
*)