AnnexF/ramp_st.txt
author Edouard Tisserant
Tue, 14 Dec 2021 08:48:05 +0100
changeset 1096 fad6e7a818e2
parent 0 fb772792efd1
permissions -rwxr-xr-x
Variable forcing now uses limited list and buffer instead of systematical instance tree traversal and in-tree "fvalue" to keep track of forced value for pointed variables (external, located). Pointer swapping is performed when forcing externals and located, with backup being restored when forcing is reset. Match Beremiz commit 93ad018fb602.
 FUNCTION_BLOCK RAMP
   VAR_INPUT
     RUN : BOOL ;      (* 0 - track X0, 1 - ramp to/track X1 *)     
     X0,X1 : REAL ;
     TR : TIME ;       (* Ramp duration *)
     CYCLE : TIME ;    (* Sampling period *)
   END_VAR
   VAR_OUTPUT
     BUSY : BOOL ; (* BUSY = 1 during ramping period *)
     XOUT : REAL := 0.0 ;
   END_VAR
   VAR XI : REAL ;       (* Initial value *)
       T : TIME := T#0s; (* Elapsed time of ramp *)
   END_VAR
   BUSY := RUN ;
   IF RUN THEN
      IF T >= TR THEN BUSY := 0 ; XOUT := X1 ;
      ELSE XOUT := XI + (X1-XI) * TIME_TO_REAL(T)
                                / TIME_TO_REAL(TR) ;
           T := T + CYCLE ;
      END_IF ;
   ELSE XOUT := X0 ; XI := X0 ; T := t#0s ;
   END_IF ;
 END_FUNCTION_BLOCK