blob: 36b63d7ffeb6bd778286e9142a010bbd32e665bb (
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
//SCI2C: DEFAULT_PRECISION= DOUBLE
function mainfunction()
//test spec
//reals
disp(spec(4))
[u,v]=spec(4)
disp(u)
disp(v)
a=[4 2 4 8;3 4 5 1;1 4 5 6; 7 4 5 3]
disp(spec(a))
[x,y]=spec(a)
disp(x)
disp(y)
b=[1 1;1 3]
disp(spec(b))
[s,t]=spec(b)
disp(s)
disp(t)
c=[1 -2;1 3]
disp(spec(c))
[m,n]=spec(c)
disp(m)
disp(n)
//complexes
disp(spec(3-%i))
[i,j]=spec(3-%i)
disp(i)
disp(j)
d=[1 4 2 5; 2 5 4 7; 3 4 2 4;1 4 7 5]+[1 4 5 7;2 3 6 9;2 4 1 5; 7 8 5 4]*%i;
disp(spec(d))
[k,l]=spec(d)
disp(k)
disp(l)
e=[1 2; 2 7]+[0 4;-4 0]*%i
disp(spec(e))
[o,p]=spec(e)
disp(o)
disp(p)
disp(spec(a+0*%i))
[q,qq]=spec(a+0*%i)
disp(q)
disp(qq)
endfunction
|
