Select Code to Download

my $X = pdl([1, -4, 7],
             [-2, 3, 3]);
...
            [ -2,   6,  8, -14,   3,  -9, -12,  21,  3,  -9, -12,  21]
+,
            [ -4, -16, 16,   6,   6,  24, -24,  -9,  6,  24, -24,  -9]
+,
            [ -2,  -4, 10,   2,   3,   6, -15,  -3,  3,   6, -15,  -3]
+);