PLC矩阵旋转

BO1

FC

DB块

FC中的SCL代码

1. row，col是初始矩阵的行和列；
2. 矩阵标号顺序，左起第一列，由上往下1,2,3…row，再到左起第二列，有上往下；
3. 顺时针旋转，增量90度；
4. 判断2D数组中的元素不为0则为有产品；
5. 判断2D数组中的元素的数值则为产品编号（即原始矩阵的顺序编号）。

#i := 0; //行
#j := 0; //列
#n := 0; //标号
#"0MT" := #MT;
#"90MT" := #MT;
#"180MT" := #MT;
#"270MT" := #MT;

REGION 0MT
    // Statement section REGION
    FOR #j := 1 TO #Col DO
        // 控制列
        // 
        FOR #i := 1 TO #Row DO
            // 控制行
            // 
            #n := #n + 1;
            #"0MT"[#i, #j] := #n;
            IF #n >= #Total THEN
                // RETURN;
                // 
                //GTO XZ;
                //
                EXIT;
                
            END_IF;
        END_FOR;
        ;
    END_FOR;
END_REGION

//XZ:  //旋转

    
    REGION 90MT
        // Statement section REGION
        //顺时针旋转90 
        
        FOR #i := 1 TO #Col DO
            FOR #j := 1 TO #Row DO
                #"90MT"[#i, #j] := #"0MT"[#Row - #j + 1, #i];
            END_FOR;
        END_FOR;
    END_REGION
    
    
    REGION 180MT
        // Statement section REGION
        //顺时针旋转180 
        
        FOR #i := 1 TO #Row  DO
            FOR #j := 1 TO #Col DO
                #"180MT"[#i, #j] := #"0MT"[#Row - #i + 1, #Col - #j + 1];
            END_FOR;
        END_FOR;
    END_REGION
    
    REGION 270MT
        // Statement section REGION
        //顺时针旋转270
        
        FOR #i := 1 TO #Col  DO
            FOR #j := 1 TO #Row DO
                #"270MT"[#i, #j] := #"0MT"[#j, #Col - #i + 1];
            END_FOR;
        END_FOR;
    END_REGION