author | Mario de Sousa <msousa@fe.up.pt> |
Thu, 08 Nov 2012 17:31:29 +0000 | |
changeset 720 | f637ac331a68 |
parent 0 | fb772792efd1 |
permissions | -rwxr-xr-x |
FUNCTION_BLOCK INTEGRAL VAR_INPUT RUN : BOOL ; (* 1 = integrate, 0 = hold *) R1 : BOOL ; (* Overriding reset *) XIN : REAL ; (* Input variable *) X0 : REAL ; (* Initial value *) CYCLE : TIME ; (* Sampling period *) END_VAR VAR_OUTPUT Q : BOOL ; (* NOT R1 *) XOUT : REAL ; (* Integrated output *) END_VAR Q := NOT R1 ; IF R1 THEN XOUT := X0 ; ELSIF RUN THEN XOUT := XOUT + XIN * TIME_TO_REAL(CYCLE); END_IF ; END_FUNCTION_BLOCK