summaryrefslogtreecommitdiff
path: root/demos/Abhinav_Demos/deviation.sci
blob: 99eb5b1c88058c221208d176f0c3146d0ed4b616 (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
function deviation()

a=[ 211.128 2912 4.12 123 ; 53211 12.312 21 0]
disp('Double')

disp(mad(a, 'r'))
disp('')

disp(mad(a, 'c'))
disp('')

disp(mad(a))
disp('')

disp('Float')

b= float(a)
disp(mad(b, 'r'))
disp('')

disp(mad(b, 'c'))
disp('')

disp(mad(b))
disp('')


disp('DoubleComplex')

c= [%i*971+ 231, 87+%i*16, 2400+%i*1721; 981,0, %i*1213]
disp(mad(c, 'r'))
disp('')

disp(mad(c, 'c'))
disp('')

disp(mad(c))
disp('')

endfunction