如何使用张量旋转规则旋转弹性刚度矩阵？

如何解决如何使用张量旋转规则旋转弹性刚度矩阵？

如何旋转材料的刚度矩阵？我已将矩阵转换为张量形式，然后旋转张量。但我没有得到正确的结果。

for i=1:3
    for j=1:3
        for k=1:3
            for l=1:3
                C_f_new(i,j,k,l)=0;
                    for m=1:3
                        for n=1:3
                            for o=1:3
                                for p=1:3                                                
                                                                
                          C_f_new(i,l)=A(i,m)*A(j,n)*A(k,o)*A(l,p)*C_f_bar(m,n,o,p)+C_f_new(i,l);
                                end
                            end
                        end
                    end
                end
            end
        end
    end