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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
// Test file for "Column" function for the data types double, float, double complex, string , uint16.
// All the below statements are added to initialize variables in different data types
//The function written doesn't work for string or character scalar as of now.
function test_gsort()
seq= [1 21 4; 10 5 98; 3.21 8.921 1000]
disp(seq)
disp('')
a= gsort(seq);
b= gsort(seq, 'r');
c= gsort(seq, 'c');
d= gsort(seq, 'r', 'i');
e= gsort(seq, 'c', 'd');
disp('Double')
disp(a)
disp('')
disp(b)
disp('')
disp(c)
disp('')
disp(d)
disp('')
disp(e)
disp('')
seq1= float(seq);
disp('')
f= gsort(seq1);
g= gsort(seq1, 'r');
h= gsort(seq1, 'c');
i= gsort(seq1, 'r', 'i');
j= gsort(seq1, 'c', 'd');
disp('Float')
disp(f)
disp('')
disp(g)
disp('')
disp(h)
disp('')
disp(i)
disp('')
disp(j)
disp('')
seq2= uint16(seq);
disp('')
k= gsort(seq2);
l= gsort(seq2, 'r');
m= gsort(seq2, 'c');
n= gsort(seq2, 'r', 'i');
o= gsort(seq2, 'c', 'd');
disp('Uint16')
disp(k)
disp('')
disp(l)
disp('')
disp(m)
disp('')
disp(n)
disp('')
disp(o)
disp('')
seq3= [%i*21, 65+%i*7, %i*121, 56; %i*6112, 12 ,3, 0]
disp('')
p= gsort(seq3);
q= gsort(seq3, 'r');
r1= gsort(seq3, 'c');
s= gsort(seq3, 'r', 'i');
t= gsort(seq3, 'c', 'd');
disp('Double Complex')
disp(p)
disp('')
disp(q)
disp('')
disp(r1)
disp('')
disp(s)
disp('')
disp(t)
disp('')
endfunction
|
