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

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