//*********************************delay 1*********************************
IF NOT (#rTmlag1 >= #rCycle * 0.5) THEN
#Hvar := #rCycle / (#rTmlag1 + #rCycle);
#sRueck1 := (#OutvNew - #sRueck1) * #Hvar + #sRueck1;
#OutvNew := #sRueck1;
ELSE
#Hvar := #rCycle / (#rTmlag1 * 2.0 + #rCycle);
#Hvar := (#OutvNew - #sRueck1) * #Hvar;
#OutvNew := #Hvar + #sRueck1;
#sRueck1 := 2 * #Hvar + #sRueck1;
END_IF;
//***************