(* 方法1 *) (*---------------声明部分----------------------*) FUNCTION_BLOCK Filter_ActLoad VAR_INPUT     Act_B:REAL; END_VAR VAR_OUTPUT     Act_F:REAL; END_VAR VAR     arr:ARRAY[0..6] OF REAL := 7(0);     MaxValue,MinValue:REAL := 0;     i:INT; END_VAR (*---------------实现部分----------------------*) Arr[6] := Arr[5]; Arr[5] := Arr[4]; Arr[4] := Arr[3]; Arr[3] := Arr[2]; Arr[2] := Arr[1]; Arr[1] := Arr[0]; Arr[0] := Act_B; MaxValue :=Arr[0]; MinValue :=Arr[0]; FOR i:=0 TO 6 DO     IF arr[i] > MaxValue THEN         MaxValue := arr[i];     END_IF     IF arr[i] < MinValue THEN         MinValue := arr[i];     END_IF END_FOR Act_F := (Arr[0]+Arr[1]+Arr[2]+Arr[3]+Arr[4]+Arr[5]+Arr[6]-MaxValue-MinValue)/5.0;

 

(* 方法2 *) (*---------------声明部分----------------------*) FUNCTION_BLOCK Filter_ActLoad_ VAR_INPUT     Act_B:REAL; END_VAR VAR_OUTPUT     Act_F:REAL; END_VAR VAR     A1,A2,A3,A4,A5,A6,A7:REAL := 0;     MaxValue,MinValue:REAL; END_VAR (*---------------实现部分----------------------*) Arr[6] := Arr[5]; Arr[5] := Arr[4]; Arr[4] := Arr[3]; Arr[3] := Arr[2]; Arr[2] := Arr[1]; Arr[1] := Arr[0]; Arr[0] := Act_B; MaxValue :=Arr[0]; MinValue :=Arr[0]; FOR i:=0 TO 6 DO     IF arr[i] > MaxValue THEN         MaxValue := arr[i];     END_IF     IF arr[i] < MinValue THEN         MinValue := arr[i];     END_IF END_FOR Act_F := (Arr[0]+Arr[1]+Arr[2]+Arr[3]+Arr[4]+Arr[5]+Arr[6]-MaxValue-MinValue)/5.0;