銆怌odesys銆戜袱绉嶆护娉㈢殑瀹炵幇锛岄偅绉嶆洿蹇�?

admin

[C] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

(* 鏂规硶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;

[C] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

(* 鏂规硶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;