summaryrefslogtreecommitdiff
path: root/2.3-1/tests/unit_tests/double/test_OpExt.sci
blob: f49be76dc77b28c67a47d41f34da52907433c259 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function test_OpExt ()

	a = [1 2 3 ; 4 5 6];


	disp(a(2));
	disp(a([3 5]));
	disp(a(2,3));
	disp(a(2,[2 3]));
	disp(a ([1 2],1));
	disp(a ([1 2],[2 3]));


	b = [1 2 3 ; 4 5 6] * %i;


	disp(b(2));
	disp(b([3 5]));
	disp(b(2,3));
	disp(b(2,[2 3]));
	disp(b ([1 2],1));
	disp(b ([1 2],[2 3]));


endfunction