blob: 274567dbeb15482c102cb14680d326bc7a3f067f (
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
|
//SCI2C: DEFAULT_PRECISION= DOUBLE
function mainfunction()
//test lev
//reals
b=[1 2 3 4]
disp(lev(b))
[u,v]=lev(b)
disp(u)
disp(v)
[x,y,z]=lev(b)
disp(x)
disp(y)
disp(z)
//complexes
c=[1+2*%i 2 3-3*%i 4+%i]
disp(lev(c))
[uc,vc]=lev(c)
disp(uc)
disp(vc)
[xc,yc,zc]=lev(c)
disp(xc)
disp(yc)
disp(zc)
endfunction
|
