author | laurent |
Mon, 19 Oct 2009 18:12:44 +0200 | |
changeset 211 | 5249d313ff7c |
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