@@ -991,12 +991,33 @@ end
991991 mul! (M_temp, A, M)
992992 @test M_temp ≈ (Ly2* M + Ly3* M + Ly4* M)
993993
994- # Test composition of all second -dimension operators
994+ # Test composition of all third -dimension operators
995995 A = Lz2+ Lz3+ Lz4
996996 M_temp = zeros (N+ 2 ,N+ 2 ,N)
997997 mul! (M_temp, A, M)
998998 @test M_temp ≈ (Lz2* M + Lz3* M + Lz4* M)
999999
1000+ # Test multiple operators on two axis: (Lxx + Lyy + Lxxx + Lyyy + Lxxxx + Lyyyy)*M, no coefficient
1001+ A = Lx2 + Ly2 + Lx3 + Ly3 + Lx4 + Ly4
1002+ M_temp = zeros (N,N,N+ 2 )
1003+ mul! (M_temp, A, M)
1004+
1005+ @test_broken M_temp ≈ ((Lx2* M)[1 : N,2 : N+ 1 ,:]+ (Ly2* M)[2 : N+ 1 ,1 : N,:]+ (Lx3* M)[1 : N,2 : N+ 1 ,:] + (Ly3* M)[2 : N+ 1 ,1 : N,:] + (Lx4* M)[1 : N,2 : N+ 1 ,:] + (Ly4* M)[2 : N+ 1 ,1 : N,:])
1006+
1007+ # Test multiple operators on two axis: (Lxx + Lzz + Lxxx + Lzzz + Lxxxx + Lzzzz)*M, no coefficient
1008+ A = Lx2 + Lz2 + Lx3 + Lz3 + Lx4 + Lz4
1009+ M_temp = zeros (N,N+ 2 ,N)
1010+ mul! (M_temp, A, M)
1011+
1012+ @test M_temp ≈ ((Lx2* M)[1 : N,:,2 : N+ 1 ]+ (Lz2* M)[2 : N+ 1 ,:,1 : N]+ (Lx3* M)[1 : N,:,2 : N+ 1 ] + (Lz3* M)[2 : N+ 1 ,:,1 : N] + (Lx4* M)[1 : N,:,2 : N+ 1 ] + (Lz4* M)[2 : N+ 1 ,:,1 : N])
1013+
1014+ # Test multiple operators on two axis: (Lxx + Lzz + Lxxx + Lzzz + Lxxxx + Lzzzz)*M, no coefficient
1015+ A = Ly2 + Lz2 + Ly3 + Lz3 + Ly4 + Lz4
1016+ M_temp = zeros (N+ 2 ,N,N)
1017+ mul! (M_temp, A, M)
1018+
1019+ @test M_temp ≈ ((Ly2* M)[:,1 : N,2 : N+ 1 ]+ (Lz2* M)[:,2 : N+ 1 ,1 : N]+ (Ly3* M)[:,1 : N,2 : N+ 1 ] + (Lz3* M)[:,2 : N+ 1 ,1 : N] + (Ly4* M)[:,1 : N,2 : N+ 1 ] + (Lz4* M)[:,2 : N+ 1 ,1 : N])
1020+
10001021 # Test composition of all operators
10011022 A = Lx2+ Lx3+ Lx4+ Ly2+ Ly3+ Ly4+ Lz2+ Lz3+ Lz4
10021023 M_temp = zeros (N,N,N)
0 commit comments