| 26 | logger dlog("test.matrix4"); |
| 27 | |
| 28 | void matrix_test ( |
| 29 | ) |
| 30 | /*! |
| 31 | ensures |
| 32 | - runs tests on the matrix stuff compliance with the specs |
| 33 | !*/ |
| 34 | { |
| 35 | print_spinner(); |
| 36 | |
| 37 | { |
| 38 | matrix<double,3,3> m = round(10*randm(3,3)); |
| 39 | matrix<double,3,1> v = round(10*randm(3,1)); |
| 40 | |
| 41 | DLIB_TEST(equal( m*diagm(v) , m*tmp(diagm(v)) )); |
| 42 | DLIB_TEST(equal( scale_columns(m,v) , m*tmp(diagm(v)) )); |
| 43 | |
| 44 | DLIB_TEST(equal( diagm(v)*m , tmp(diagm(v))*m )); |
| 45 | DLIB_TEST(equal( scale_rows(m,v) , tmp(diagm(v))*m )); |
| 46 | } |
| 47 | |
| 48 | { |
| 49 | matrix<double,3,3> m = round(10*randm(3,3)); |
| 50 | matrix<double,1,3> v = round(10*randm(1,3)); |
| 51 | |
| 52 | DLIB_TEST(equal( m*diagm(v) , m*tmp(diagm(v)) )); |
| 53 | DLIB_TEST(equal( scale_columns(m,v) , m*tmp(diagm(v)) )); |
| 54 | |
| 55 | DLIB_TEST(equal( diagm(v)*m , tmp(diagm(v))*m )); |
| 56 | DLIB_TEST(equal( scale_rows(m,v) , tmp(diagm(v))*m )); |
| 57 | } |
| 58 | |
| 59 | { |
| 60 | matrix<double> m = round(10*randm(3,3)); |
| 61 | matrix<double,1,3> v = round(10*randm(1,3)); |
| 62 | |
| 63 | DLIB_TEST(equal( m*diagm(v) , m*tmp(diagm(v)) )); |
| 64 | DLIB_TEST(equal( scale_columns(m,v) , m*tmp(diagm(v)) )); |
| 65 | |
| 66 | DLIB_TEST(equal( diagm(v)*m , tmp(diagm(v))*m )); |
| 67 | DLIB_TEST(equal( scale_rows(m,v) , tmp(diagm(v))*m )); |
| 68 | } |
| 69 | |
| 70 | { |
| 71 | matrix<double> m = round(10*randm(3,3)); |
| 72 | matrix<double,0,3> v = round(10*randm(1,3)); |
| 73 | |
| 74 | DLIB_TEST(equal( m*diagm(v) , m*tmp(diagm(v)) )); |
| 75 | DLIB_TEST(equal( scale_columns(m,v) , m*tmp(diagm(v)) )); |
| 76 | |
| 77 | DLIB_TEST(equal( diagm(v)*m , tmp(diagm(v))*m )); |
| 78 | DLIB_TEST(equal( scale_rows(m,v) , tmp(diagm(v))*m )); |
| 79 | } |
| 80 | |
| 81 | |
| 82 | { |
| 83 | matrix<double> m = round(10*randm(3,3)); |
| 84 | matrix<double,1,0> v = round(10*randm(1,3)); |
| 85 |
no test coverage detected