27 lines
689 B
Plaintext
27 lines
689 B
Plaintext
|
|
(* @PATH := '\/TASK0_VOID' *)
|
|
(* @SYMFILEFLAGS := '59392' *)
|
|
PROGRAM Signal_Gen
|
|
VAR
|
|
mRamp : SlewLimit ;
|
|
mRampOut : REAL ;
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
gTask0Cycle_Time := UDINT_TO_REAL (gSystem_Task_Info [1].cycleTime) / 10000000;
|
|
|
|
IF gTime_sec<>0 THEN
|
|
Omegat := 2 * gP_Greek * gTime_sec * 5 / 60 ;
|
|
END_IF
|
|
|
|
mRamp(i_InValue:= 0.4 * gBlenderNomSpeed * BOOL_TO_INT (gClock_120s),i_SlewMax:=(0.4 * gBlenderNomSpeed / 10) ,i_Cycle:=gTask0Cycle_Time, out:=mRampOut ) ;
|
|
Ramp_Sgn := mRampOut ;
|
|
|
|
IF gFirstProd_Done AND NOT gBlenderAlarm AND gInFillerProductReq THEN
|
|
gFillerProductFlow := gBlenderNomSpeed * 0.55 + Ramp_Sgn ;
|
|
ELSE
|
|
gFillerProductFlow := 0 ;
|
|
END_IF
|
|
|
|
END_PROGRAM
|