path: root/tests/unit_tests/test_double_Expm.sci

function test_double_Expm()
 b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16];
 c = b*%i ;

 disp(expm(b));
 disp(expm(c));


endfunction