plc4good.org.ua



diameter



, .
.



Sources taken from : SIMATIC Winder and Tension Control





, .



diameter


diameter




IF rewind THEN
myTempReal := (actualDiameter * actualDiameter / 4.0 + webThickness * length / PI);
IF myTempReal > 0.0 THEN
RestDiameterCalc := 2.0 * SQRT(myTempReal);
ELSE
RestDiameterCalc := 0.0;
END_IF;
ELSE
myTempReal := (actualDiameter * actualDiameter / 4.0 - webThickness * length / PI);
IF myTempReal > 0.0 THEN
RestDiameterCalc := 2.0 * SQRT(myTempReal);
ELSE
RestDiameterCalc := 0.0;
END_IF;
END_IF;







.



diameter



RestLengthCalc := ABS(PI*(targetDiameter*targetDiameter - actualDiameter*actualDiameter)/
(4.0 * LIMIT(MN:=MIN_THICKNESS,
IN:= ABS (webThickness),
MX:= MAX_THICKNESS))
) + offset;





Documentation (pdf, 9Mb)

Project (zip, 46Kb)