summaryrefslogtreecommitdiff
path: root/2.3-1/tests/unit_tests/double/test_OpRc.sci
blob: 5d264b776df722c1f1e272a2e9dd1abc6ece7b99 (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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

function test_OpRc()

	a = [1 , 2 , 3 , 4]; // d0d0OpRcs2
	b = [7 , a];// d0d2OpRcs2
	c = [a , 7];// d2d0OpRcs2
	d = [a , b];// d2d2OpRcs2
	disp(a);	
	disp(b);	
	disp(c);	
	disp(d);	

	e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2
	f = [7 , e];// z0z2OpRcz2
	g = [e , 7];// z2z0OpRcz2
	h = [e , f];// z2z2OpRcz2

	disp(e);	
	disp(f);	
	disp(g);	
	disp(h);	

	
	i = [%i  , 4.5]; // z0d0OpRcz2
	j = [4.5 , %i ]; // d0z0OpRcz2
	k = [4.5 , i  ]; // d0z2OpRcz2
	l = [i   , 4.5]; // z2d0OpRcz2

	disp(i);	
	disp(j);	
	disp(k);	
	disp(l);	

	m = [1   , 4.5]; 
	n = [%i  , m  ]; // z0d2OpRcz2
	o = [m   , %i ]; // d0z2OpRcz2
	p = [m   , n  ]; // d2z2OpRcz2
	q = [n   , m  ]; // z2d2OpRcz2

	disp(n);	
	disp(o);	
	disp(p);	
	disp(q);	

endfunction