回复 20楼 aaaaaa
除夕了,呵呵。新年快乐,继续努力!
谢谢鼓励,我将继续努力。
目前矩阵转置写好了:
Function Matrix_Transpose(A1, R1)
* 矩阵转置/对称矩阵 : 左上角-右下角翻转
* 定义:如果A(I, J)=A(J, I),则 A 是对称矩阵.
Function Matrix_TransposeA(A1, R1)
* 矩阵逆转置 : 右上角-左下角翻转
* 定义:如果A(I, J)=A(J, I),则 A 是对称矩阵.
矩阵旋转做了一部分:
Function Matrix_Rotation_CW90(A1, R1)
* 数组顺时针旋转90度
* 算法:
* 第一步:A(I, J) = A(J, I),即先转置
* 第二步:A(I, J) = A(I, nColY - J),再列逆向(对调)
Function Matrix_Rotation_CCW90(A1, R1)
* 数组逆时针旋转90度
* 算法:
* 第一步:A(I, J) = A(J, I),即先转置
* 第二步:A(I, J) = A(nColX - I, J),再行逆向(对调)
Function Matrix_Rotation_CW180(A1, R1)
* 数组顺时针旋转180度
* 算法:A(I, J) = A(nColX - I, nRowY - J),先行-行逆向,后列-列逆向(对调)
Function Matrix_Rotation_CCW180(A1, R1)
* 数组逆时针旋转-180度
* 算法:A(I, J) = A(nColX - I, nRowY - J),先列-列逆向,后行-行逆向(对调)
下面的旋转还正在写:
Function Matrix_Rotation_CW_Unit(A1, R1)
* 数组正交同心圆顺时针旋转一单位
* 条件:nXm, n = m, A1(n, n)
* 算法:
* I -> 1 to n and J = 1
* J -> 1 to n and I = n
* I -> n to 1 and J = n
* J -> n to 1 and I = 1
Function Matrix_Rotation_CW_45(A1, R1)
* 数组顺时针旋转45度
Function Matrix_Rotation_CCW_45(A1, R1)
* 数组逆时针旋转45度