tests/unit_tests/test_double_Trace.sci


1
2
3
4
5
6
7
8
9
10
11
12
13

function test_double_Trace()

	a = [1 2 3; 4 %pi 5; 4.5 -3 2];
	disp(trace(a));

	b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2];
	disp(trace(b));


	disp(trace(5));

	disp(trace(%i));
endfunction