PLC 鏁扮粍澶勭悊闅撅紵鐪嬭繖涓�绡囧氨澶熶簡

FUNCTION_BLOCK PM_ArrayProcessing_v2
VAR_INPUT
    SortAscBtn : BOOL;
    SortDescBtn : BOOL;
    MaxBtn : BOOL;
    MinBtn : BOOL;
    AvgBtn : BOOL;
    MedianBtn : BOOL;
    InputArray : ARRAY[1..11] OF REAL;
END_VAR
VAR_OUTPUT
    SortedAscArray : ARRAY[1..11] OF REAL;
    SortedDescArray : ARRAY[1..11] OF REAL;
    MaxValue : REAL;
    MinValue : REAL;
    AvgValue : REAL;
    MedianValue : REAL;
END_VAR
VAR
    TempArray : ARRAY[1..11] OF REAL;
    I, J : INT;
    Temp : REAL;
    Sum : REAL;
    ArrayLength : UINT;
END_VAR
(*鐗堟湰璁板綍锛氱増鏈�          鏃ユ湡          浣滆��
 V1         2024-3-21     
 V2         2024-8-09     *)
// 鍔熻兘璇存槑锛�// 瀵规暟缁勮繘琛屽�勭悊锛屾牴鎹�涓嶅悓鍔熻兘鐨勬寜閽�锛岃緭鍑烘帓搴忥紙浠庡皬鍒板ぇ锛屼粠澶у埌灏忥級銆佹渶澶у�笺�佹渶灏忓�笺�佸钩鍧囧�笺�佷腑浣嶅��
ArrayLength := SIZEOF(InputArray) / 4;

FOR I := 1 TO UINT_TO_INT(ArrayLength) DO
    TempArray := InputArray;
END_FOR

IF SortAscBtn THEN
    FOR I := 1 TO UINT_TO_INT(ArrayLength) - 1 DO 
       FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO 
           IF TempArray > TempArray[j] THEN 
                Temp := TempArray;
                TempArray := TempArray[j];
                TempArray[j] := Temp; 
           END_IF 
       END_FOR 
   END_FOR
    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO 
       SortedAscArray[I] := TempArray[I]; 
   END_FOR
END_IF

IF SortDescBtn THEN
    FOR I := 1 TO UINT_TO_INT(ArrayLength) - 1 DO 
       FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO
            IF TempArray[I] < TempArray[J] THEN
                Temp := TempArray[I];
                TempArray[I] := TempArray[J];
                TempArray[J] := Temp; 
           END_IF 
       END_FOR
    END_FOR
    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO 
       SortedDescArray[I] := TempArray[I];
    END_FOR
END_IF

IF MaxBtn THEN 
   MaxValue := InputArray[1]; 
   FOR I := 2 TO UINT_TO_INT(ArrayLength) DO 
       IF InputArray > MaxValue THEN 
           MaxValue := InputArray; 
       END_IF 
   END_FOR
END_IF

IF MinBtn THEN
    MinValue := InputArray[1];
    FOR I := 2 TO UINT_TO_INT(ArrayLength) DO 
       IF InputArray < MinValue THEN 
           MinValue := InputArray;
        END_IF
    END_FOR
END_IF

IF AvgBtn THEN 
   Sum := 0; 
   FOR I := 1 TO UINT_TO_INT(ArrayLength) DO 
       Sum := Sum + InputArray; 
   END_FOR 
   AvgValue := Sum / UINT_TO_INT(ArrayLength);
END_IF

IF MedianBtn THEN 
   FOR I := 1 TO UINT_TO_INT(ArrayLength)-1 DO 
       FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO 
           IF TempArray[I] > TempArray[J] THEN 
                Temp := TempArray[I];
                TempArray[I] := TempArray[J];
                TempArray[J] := Temp;
            END_IF 
       END_FOR 
   END_FOR 
   IF UINT_TO_INT(ArrayLength) MOD 2 = 0 THEN
        MedianValue := (TempArray[UINT_TO_INT(ArrayLength) / 2] + TempArray[UINT_TO_INT(ArrayLength) / 2 + 1]) / 2;
    ELSE 
       MedianValue := TempArray[UINT_TO_INT(ArrayLength) / 2 + 1];
    END_IF
END_IF