NEW FEATURES AND NEW FUNCTIONS

28 files changed, 862 insertions, 0 deletions

diff --git a/demos/Abhinav_Demos/column.sci b/demos/Abhinav_Demos/column.sci
new file mode 100644
index 00000000..82209876
--- /dev/null
+++ b/demos/Abhinav_Demos/column.sci
@@ -0,0 +1,26 @@
+// 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 column()
+	a=[1,2,3,4; 5,6,7,8; 98,162,6587,0]
+	disp( iscolumn(a))
+	disp('')
+	b= float(a)
+	disp(iscolumn(b))
+	c= [1,2,34,5]
+	d= uint16(c)
+	disp(iscolumn(d))
+	disp('')
+	f= [1;2;3;4]
+	disp(iscolumn(f))
+	disp('')
+	u= uint16(c)
+   	disp(iscolumn(u))
+	disp('')
+	g= [%i]
+	disp(iscolumn(g))
+	disp('')
+	
+endfunction
diff --git a/demos/Abhinav_Demos/deviation.sci b/demos/Abhinav_Demos/deviation.sci
new file mode 100644
index 00000000..99eb5b1c
--- /dev/null
+++ b/demos/Abhinav_Demos/deviation.sci
@@ -0,0 +1,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
+
diff --git a/demos/Abhinav_Demos/is_matrix.sci b/demos/Abhinav_Demos/is_matrix.sci
new file mode 100644
index 00000000..540189e0
--- /dev/null
+++ b/demos/Abhinav_Demos/is_matrix.sci
@@ -0,0 +1,41 @@
+
+// Test file for "ismatrix" function for the data types double, float, double complex, uint16, string
+
+function is_matrix()
+	disp('Double')
+	a= [1 ,25, 52]
+	disp(ismatrix(a))
+	disp('')
+	b=1.2131
+	disp(ismatrix(b))
+	disp('')
+	
+	disp('Float')
+	c=float(a)
+	disp(ismatrix(c))
+	disp('')
+	d=float(b)
+	disp(ismatrix(d))
+	disp('')
+
+	disp('String')
+	e= ['af' 'as' '12'; '121' 'king' 'queen' ]
+	disp(ismatrix(e))
+	disp('')
+	f='Light'
+	disp(ismatrix(f))
+	disp('')
+
+	disp('doubleComplex')
+	g=[%i*2; %i*91+100]
+	disp(ismatrix(g))
+	disp('')
+	h= %i*98.12 + 121
+	disp(ismatrix(h))
+	disp('')
+
+	disp('Uint16')
+ 	i= [12, 231 ,213, 123]
+	disp(ismatrix(i))
+	disp('')
+endfunction
diff --git a/demos/Abhinav_Demos/matrix_reshape.sci b/demos/Abhinav_Demos/matrix_reshape.sci
new file mode 100644
index 00000000..bf7fbbc8
--- /dev/null
+++ b/demos/Abhinav_Demos/matrix_reshape.sci
@@ -0,0 +1,18 @@
+
+// Test file for "matrix" function for the data types double, float, double complex, uint16
+
+function matrix_reshape()
+	a=[1,2,3,4;5,6,7,8;8,9,1,2]
+	b=float(a)
+	c= uint16(b)
+	d=[%i*2,3,4,5;%i+34,45,32,23; 1,%i*54,8690,1]
+	
+double1= matrix(a,4,3)
+float1= matrix (b,4,3)
+uint161= matrix(c,4,3)
+complex1= matrix(d,4,3)
+disp( double1)
+disp( float1)
+disp( uint161)
+disp( complex1)
+endfunction
diff --git a/demos/Abhinav_Demos/med.sci b/demos/Abhinav_Demos/med.sci
new file mode 100644
index 00000000..821ca1f2
--- /dev/null
+++ b/demos/Abhinav_Demos/med.sci
@@ -0,0 +1,66 @@
+function med()
+
+a=float([12,287,312,52; 4,5,456,512; 12, 4, 6,213])
+
+
+disp('Float')
+
+
+disp(median(a, 'r'))
+disp('')
+
+disp(median(a, 'c'))
+disp('')
+
+disp(median(a))
+disp('')
+
+
+b=[12,287,312,52; 4,5,456,512; 12, 4, 6,213]
+
+
+disp('Double')
+
+
+disp(median(b, 'r'))
+disp('')
+
+disp(median(b, 'c'))
+disp('')
+
+disp(median(b))
+disp('')
+
+
+
+disp('uint16')
+
+
+c=uint16([12,287,312,52; 4,5,456,512; 12, 4, 6,213])
+disp(median(c, 'r'))
+disp('')
+
+disp(median(c, 'c'))
+disp('')
+
+disp(median(c))
+disp('')
+
+
+disp('doubleComplex')
+
+
+d= [%i*21, 65+%i*7, %i*121, 56; %i*6112, 12 ,3, 0]
+disp(median(d, 'r'))
+disp('')
+
+disp(median(d, 'c'))
+disp('')
+
+disp(median(d))
+disp('')
+
+
+
+endfunction
+
diff --git a/demos/Abhinav_Demos/modula.sci b/demos/Abhinav_Demos/modula.sci
new file mode 100644
index 00000000..8f56e6c1
--- /dev/null
+++ b/demos/Abhinav_Demos/modula.sci
@@ -0,0 +1,57 @@
+function modula()
+
+a=312
+b=18.12
+disp('Double')
+
+disp(pmodulo(a,b))
+
+disp(pmodulo(a,-b))
+
+disp(pmodulo(-a,b))
+
+disp(pmodulo(-a,-b))
+
+k=[12 , -134 , 1213; -12.12, -0.12, 91281]
+l=[12, ,1212 ,12; -91288.12, -0.912, -10000]
+
+disp(pmodulo(k,l))
+
+disp('Float')
+c= float(312)
+d=float(121.212)
+
+disp(pmodulo(c,d))
+
+disp(pmodulo(c,-d))
+
+disp(pmodulo(-c,d))
+
+disp(pmodulo(-c,-d))
+
+e=float([12 , -134 , 1213; -12.12, -0.12, 91281])
+f=float([12, ,1212 ,12; -91288.12, -0.912, -10000])
+
+disp( pmodulo(e,f))
+
+disp('Uint16')
+
+g= int16(112)
+h= int16(121)
+
+disp(pmodulo(g,h))
+
+disp(pmodulo(g,-h))
+
+disp(pmodulo(-g,h))
+
+disp(pmodulo(-g,-h))
+
+i= int16([12 , -134 , 1213; -12.12, -12.54, 91281])
+
+j= int16([12, ,1212 ,12; 1121, -6000, -10000])
+disp( pmodulo(i,j))
+
+
+endfunction
+
diff --git a/demos/Abhinav_Demos/nan_cumsum.sci b/demos/Abhinav_Demos/nan_cumsum.sci
new file mode 100644
index 00000000..c5943a0f
--- /dev/null
+++ b/demos/Abhinav_Demos/nan_cumsum.sci
@@ -0,0 +1,35 @@
+function nan_cumsum ()
+    x= [1 %nan 1 0.8; 21 1 13 %nan]	
+	disp('Double')
+	a= nancumsum(x)
+	disp(a)
+	disp('')
+	b= nancumsum(x, 'r')
+	disp(b)
+	disp('')
+	c= nancumsum(x,'c')
+	disp(c)
+	disp('')
+    y= float(x)
+	disp('Float')
+	d= nancumsum(y)
+	disp(d)
+	disp('')
+	e= nancumsum(y, 'r')
+	disp(e)
+	disp('')
+	f= nancumsum(y,'c')
+	disp(f)
+	disp('')
+    z= [%nan , 12, 1219, %nan + %i*121; 121 %nan 90 12]
+	disp('DoubleComplex')
+	g= nancumsum(z)
+	disp(g)
+	disp('')
+	h= nancumsum(z, 'r')
+	disp(h)
+	disp('')
+	i= nancumsum(z,'c')
+	disp(i)
+	disp('')
+endfunction
diff --git a/demos/Abhinav_Demos/nan_max.sci b/demos/Abhinav_Demos/nan_max.sci
new file mode 100644
index 00000000..c840e069
--- /dev/null
+++ b/demos/Abhinav_Demos/nan_max.sci
@@ -0,0 +1,43 @@
+function nan_max ()
+    x= [1 %nan 1 0.8; 21 1 13 %nan]	
+	disp('Double')
+	a= nanmax(x)
+	disp(a)
+	disp('')
+	[b,c]= nanmax(x)
+        disp(b)
+	disp('')
+        disp(c)
+	disp('')
+	d= nanmax(x)
+        disp(d)
+	disp('')
+	e=nanmax(x,'r')
+	f=nanmax(x,'c')
+        disp(e)
+	disp('')
+        disp(f)
+	disp('')
+
+	y= float(x)
+	disp('Float')
+	g= nanmax(y)
+	disp(g)
+	disp('')
+	[h,i]= nanmax(y)
+        disp(h)
+	disp('')
+        disp(i)
+	disp('')
+	j= nanmax(y)
+        disp(j)
+	disp('')
+	k=nanmax(y,'r')
+	l=nanmax(y,'c')
+        disp(k)
+	disp('')
+        disp(l)
+	disp('')
+		
+    
+endfunction
diff --git a/demos/Abhinav_Demos/nan_median.sci b/demos/Abhinav_Demos/nan_median.sci
new file mode 100644
index 00000000..f2b350c0
--- /dev/null
+++ b/demos/Abhinav_Demos/nan_median.sci
@@ -0,0 +1,31 @@
+function nan_median()
+
+x=[%nan 0.121 %nan 0.5 0.8; 0.12 %nan 1 0.9812 %nan; 0.4 0.65 1.08 12 0.1621; 12 12 24 1 12]
+
+disp('Double')
+
+disp(nanmedian(x))
+disp('')
+
+disp(nanmedian(x , 'r'))
+disp('')
+
+disp(nanmedian(x, 'c'))
+disp('')
+
+y= float(x)
+
+disp('Float')
+
+disp(nanmedian(y))
+disp('')
+
+disp(nanmedian(y , 'r'))
+disp('')
+
+disp(nanmedian(y, 'c'))
+disp('')
+
+
+endfunction
+
diff --git a/demos/Abhinav_Demos/nan_stdev.sci b/demos/Abhinav_Demos/nan_stdev.sci
new file mode 100644
index 00000000..0ff5b252
--- /dev/null
+++ b/demos/Abhinav_Demos/nan_stdev.sci
@@ -0,0 +1,31 @@
+function nan_stdev()
+
+x=[%nan 0.121 %nan 0.5 0.8; 21.9 %nan 1 0.9812 %nan; 0.12 0.65 1.08 12 0.1621; %nan 12 24 1 12]
+
+disp('Double')
+
+disp(nanstdev(x))
+disp('')
+
+disp(nanstdev(x , 'r'))
+disp('')
+
+disp(nanstdev(x, 'c'))
+disp('')
+
+y= float(x)
+
+disp('Float')
+
+disp(nanstdev(y))
+disp('')
+
+disp(nanstdev(y , 'r'))
+disp('')
+
+disp(nanstdev(y, 'c'))
+disp('')
+
+
+endfunction
+
diff --git a/demos/Abhinav_Demos/nan_sum.sci b/demos/Abhinav_Demos/nan_sum.sci
new file mode 100644
index 00000000..b6d10173
--- /dev/null
+++ b/demos/Abhinav_Demos/nan_sum.sci
@@ -0,0 +1,35 @@
+function nan_sum ()
+    x= [1 %nan 1 0.8; 21 1 13 %nan]	
+	disp('Double')
+	a= nansum(x)
+	disp(a)
+	disp('')
+	b= nansum(x, 'r')
+	disp(b)
+	disp('')
+	c= nansum(x,'c')
+	disp(c)
+	disp('')
+    y= float(x)
+	disp('Float')
+	d= nansum(y)
+	disp(d)
+	disp('')
+	e= nansum(y, 'r')
+	disp(e)
+	disp('')
+	f= nansum(y,'c')
+	disp(f)
+	disp('')
+    z= [%nan , 12, 1219, %nan + %i*121; 121 %nan 90 12]
+	disp('DoubleComplex')
+	g= nansum(z)
+	disp(g)
+	disp('')
+	h= nansum(z, 'r')
+	disp(h)
+	disp('')
+	i= nansum(z,'c')
+	disp(i)
+	disp('')
+endfunction
diff --git a/demos/Abhinav_Demos/non_zero.sci b/demos/Abhinav_Demos/non_zero.sci
new file mode 100644
index 00000000..3e2b3ba9
--- /dev/null
+++ b/demos/Abhinav_Demos/non_zero.sci
@@ -0,0 +1,15 @@
+
+// Test file for "nonzero" function for the data types double, float, double complex, uint16
+
+function non_zero()
+	a=[12,4,4; 12,51,6]  // double array  
+	disp(nnz(a))
+      	b=0                  //double scalar
+	disp(nnz(b))
+	f= float(a)          //float array
+	disp(nnz(f))
+	z=%i*2+0             // doubleComplex scalar
+	disp(nnz(z))
+	
+ 	
+endfunction
diff --git a/demos/Abhinav_Demos/nonzero.sci b/demos/Abhinav_Demos/nonzero.sci
new file mode 100644
index 00000000..14a14162
--- /dev/null
+++ b/demos/Abhinav_Demos/nonzero.sci
@@ -0,0 +1,15 @@
+
+// Test file for "nonzero" function for the data types double, float, double complex, uint16
+
+function nonzero()
+	a=[12,4,4; 12,51,6]  // double array  
+	disp(nnz(a))
+      	b=0                  //double scalar
+	disp(nnz(b))
+	f= float(a)          //float array
+	disp(nnz(f))
+	z=%i*2+0             // doubleComplex scalar
+	disp(nnz(z))
+	
+ 	
+endfunction
diff --git a/demos/Abhinav_Demos/nth_root.sci b/demos/Abhinav_Demos/nth_root.sci
new file mode 100644
index 00000000..13e4223e
--- /dev/null
+++ b/demos/Abhinav_Demos/nth_root.sci
@@ -0,0 +1,23 @@
+// Test file for "nthroot" function for the data types double, float, double complex.
+
+
+function nth_root()
+	b= [1,2,3,4;5,6,7,8]
+	c=[45,12,4,12; 23,34,5,6]
+	d= nthroot(b,c)
+disp(d)
+disp('')
+e=34
+f= nthroot(b,e)
+disp(f)
+disp('')
+k=nthroot(3.2123,12)
+disp(k)
+disp('')
+
+m= float(b)
+l= float(c)
+disp(nthroot(m,l))
+
+
+endfunction
diff --git a/demos/Abhinav_Demos/row.sci b/demos/Abhinav_Demos/row.sci
new file mode 100644
index 00000000..264b174a
--- /dev/null
+++ b/demos/Abhinav_Demos/row.sci
@@ -0,0 +1,25 @@
+// 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 Row()
+	a=[1,2,3,4; 5,6,7,8; 98,162,6587,0]
+	disp( isrow(a))
+	disp('')
+	b= float(a)
+	disp(isrow(b))
+	c= [1,2,34,5]
+	d= uint16(c)
+	disp(isrow(d))
+	disp('')
+	f= [1;2;3;4]
+	disp(isrow(f))
+	disp('')
+	u= uint16(c)
+   	disp(isrow(u))
+	disp('')
+	g= [%i*1; 7]
+	disp(isrow(g))
+	disp('')
+endfunction
diff --git a/demos/Abhinav_Demos/scalar.sci b/demos/Abhinav_Demos/scalar.sci
new file mode 100644
index 00000000..6b280eaa
--- /dev/null
+++ b/demos/Abhinav_Demos/scalar.sci
@@ -0,0 +1,12 @@
+// Test file for "isscalar" function for the data types double, float, double complex.
+function scalar()
+ a=[1,2,3,4]
+ disp(isscalar(a))
+ b= float(a)
+ disp(isscalar(b)) 
+ c= %i*2+34
+ disp(isscalar(c))
+ 
+
+
+endfunction
diff --git a/demos/Abhinav_Demos/square.sci b/demos/Abhinav_Demos/square.sci
new file mode 100644
index 00000000..172f73c4
--- /dev/null
+++ b/demos/Abhinav_Demos/square.sci
@@ -0,0 +1,13 @@
+// Test file for "Column" function for the data types double, float, double complex, string.
+// All the below statements are added to initialize variables in different data types 
+
+
+function square()
+	a=[1,2,3,4; 5,6,7,8; 98,162,6587,0]
+	disp(issquare(a))
+	disp('')
+	b= [%i+25, 1, %i*5+12]
+	disp(issquare(b))
+	disp('')
+	
+endfunction
diff --git a/demos/Abhinav_Demos/std_dev.sci b/demos/Abhinav_Demos/std_dev.sci
new file mode 100644
index 00000000..f7dbe41d
--- /dev/null
+++ b/demos/Abhinav_Demos/std_dev.sci
@@ -0,0 +1,20 @@
+// Test file for "Column" function for the data types double, float, double complex, string.
+// All the below statements are added to initialize variables in different data types 
+
+
+function std_dev()
+	a=[1,2,3,4; 5,6,7,8; 98,162,6587,0]
+	disp('Double')
+	disp(stdev(a))
+	disp('')
+	disp(stdev(a,'r'))
+	disp('')
+	disp(stdev(a,'c'))
+	b=float(a)
+	disp('Float')
+	disp(stdev(b))
+	disp('')
+	disp(stdev(b,'r'))
+	disp('')
+	disp(stdev(b,'c'))
+endfunction
diff --git a/demos/Abhinav_Demos/test_faurre.sci b/demos/Abhinav_Demos/test_faurre.sci
new file mode 100644
index 00000000..4c32354b
--- /dev/null
+++ b/demos/Abhinav_Demos/test_faurre.sci
@@ -0,0 +1,22 @@
+// 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_faurre()	
+	disp(" ** faurre ** ")
+	disp('Double')
+	n=3
+	H= [ 2 1 1 ; 12 3 7; 5 1 2 ]
+	F=[ 0 2 21 ; 2 5.1 1; 5 6 1]
+	G=[ 1 2 21 ; 3 20 6; 5 6 7 ]
+	R0=[6 7 2; 51 1 2; 1 2 3]
+	[P R T]= faurre(n,H,F,G,R0)
+	disp(P)
+	disp('')
+	disp(R)
+	disp('')
+	disp(T) 
+	disp('')  
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_gsort.sci b/demos/Abhinav_Demos/test_gsort.sci
new file mode 100644
index 00000000..bd51c697
--- /dev/null
+++ b/demos/Abhinav_Demos/test_gsort.sci
@@ -0,0 +1,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
diff --git a/demos/Abhinav_Demos/test_hank.sci b/demos/Abhinav_Demos/test_hank.sci
new file mode 100644
index 00000000..b55cbc81
--- /dev/null
+++ b/demos/Abhinav_Demos/test_hank.sci
@@ -0,0 +1,21 @@
+// 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_hank()	
+	seq= [1 21 123 12;11 4 5 6]
+        final= hank(2,1,seq);
+	//disp(seq)
+	disp('')
+	disp(final)
+	disp('')
+	seq1= float([21 1231 1 12; 1231 12 21 2])
+	a=float(2)
+	b=float(1)
+	final1 = hank(a,b, seq1)
+        disp('')
+	disp(final1)
+	disp('')
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_kalm.sci b/demos/Abhinav_Demos/test_kalm.sci
new file mode 100644
index 00000000..006f3c99
--- /dev/null
+++ b/demos/Abhinav_Demos/test_kalm.sci
@@ -0,0 +1,25 @@
+// 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_kalm()	
+	disp(" ** KALM ** ")
+	disp('Double')
+	y=[1 2 ; 3 4]
+	x0=[4 50; 5 6]
+	p0=[4 1 ; 27 8]
+	f=[22 0;1 3]
+	g= [10.1 2 ; 3 42]
+	h=[ 5 23 ;2 1] 
+	q= [2 3 ; 12 3]
+	rr= [ 21 2 ; 100 91]
+	[x1,p1,x,p]= kalm(y,x0,p0,f,g,h,q,rr)
+        disp(x1)
+        disp(p1)
+	disp(x)
+	disp(p)
+
+   
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_mvcorrel.sci b/demos/Abhinav_Demos/test_mvcorrel.sci
new file mode 100644
index 00000000..bcc110c4
--- /dev/null
+++ b/demos/Abhinav_Demos/test_mvcorrel.sci
@@ -0,0 +1,31 @@
+// 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_mvcorrel()	
+	disp(" ** mvcorrel ** ");
+	disp('Double');
+	a=[1;0;3;4;5;4;0];
+	b= mvcorrel(a);
+	disp(b);
+	disp('')
+	c=[1 0 3; 4 5 8; 1 10 25];
+	d=mvcorrel(c)
+	disp(d)
+	disp('')
+	e=mvcorrel(1)
+	disp(e)
+	disp('Float');
+	f=float([1;0;3;4;5;4;0]);
+	g= mvcorrel(f);
+	disp(g);
+	disp('')
+	h=float([1 0 3; 4 5 8; 1 10 25]);
+	i=mvcorrel(h)
+	disp(i)
+	disp('')
+	j= float(4)
+	k=mvcorrel(j)
+	disp(k)
+endfunction
diff --git a/demos/Abhinav_Demos/test_pertrans.sci b/demos/Abhinav_Demos/test_pertrans.sci
new file mode 100644
index 00000000..a84f7257
--- /dev/null
+++ b/demos/Abhinav_Demos/test_pertrans.sci
@@ -0,0 +1,31 @@
+// 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_pertrans()	
+	a= [1 2 3; 4 5 6; 7 8 9]
+	b= pertrans(a)
+	disp('Double')
+	disp(b)
+	disp('')
+	disp(pertrans(6))
+	disp('')
+	c= float(a)
+	d=pertrans(c)
+	e= float(2)
+	disp('Float')
+	disp(d)
+	disp('')
+	disp(pertrans(e))
+	disp('')
+	f=[%i*121+12; 4+%i*7;1]
+	g= pertrans(f)
+	disp('Double Complex')
+	disp(g)
+	disp('')
+	disp(pertrans(%i*8712+12))
+	disp('')
+		
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_rank.sci b/demos/Abhinav_Demos/test_rank.sci
new file mode 100644
index 00000000..95f4a7dc
--- /dev/null
+++ b/demos/Abhinav_Demos/test_rank.sci
@@ -0,0 +1,20 @@
+// 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_rank()	
+    disp(" ** RANK ** ")
+    disp('Double')
+    A = [1,2,3,11;4,5,0.1,2.12;7,0,0,16.11] // Matrix - A
+    s = rank(A)               // Calling Function Sequence 
+    disp(s)
+    disp('')
+
+    disp('Double Complex')
+    B= [%i*12, 12 , 12; 98*%i , 24*%i, 0; 12, %i*12, 0];
+    t= rank(B)
+    disp(t)
+    disp('')
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_strange.sci b/demos/Abhinav_Demos/test_strange.sci
new file mode 100644
index 00000000..35deb2ce
--- /dev/null
+++ b/demos/Abhinav_Demos/test_strange.sci
@@ -0,0 +1,43 @@
+// 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_strange()	
+	seq= [1 2.01 400.0; 10.912 5 9.81; 3.21 8.921 100.0]
+        a= strange(seq);
+	b= strange(seq, 'r');
+	c= strange(seq, 'c');
+	disp('Double')
+	disp(a)
+	disp('')
+	disp(b)
+	disp('')
+	disp(c)
+	disp('')
+	seq1= float(seq);
+        disp('')
+        f= strange(seq1);
+	g= strange(seq1, 'r');
+	h= strange(seq1, 'c');
+	disp('Float')
+	disp(f)
+	disp('')
+	disp(g)
+	disp('')
+	disp(h)
+	disp('')
+	seq2= uint16(seq);
+        k= strange(seq2);
+	l= strange(seq2, 'r');
+	m= strange(seq2, 'c');
+	disp('Uint16')
+	disp(k)
+	disp('')
+	disp(l)
+	disp('')
+	disp(m)
+	disp('')
+
+	
+endfunction
diff --git a/demos/Abhinav_Demos/test_wiener.sci b/demos/Abhinav_Demos/test_wiener.sci
new file mode 100644
index 00000000..780e9571
--- /dev/null
+++ b/demos/Abhinav_Demos/test_wiener.sci
@@ -0,0 +1,25 @@
+// 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_wiener()	
+	disp(" ** WIENER ** ")
+	disp('Double')
+	y=[1 2 ; 3 4]
+	x0=[1 4; 3 6 ]
+	p0=[4 1 ; 27 8]
+	f=[22 0;1 3]
+	g= [10.1 2 ; 3 42]
+	h=[ 5 23 ;2 1] 
+	q= [2 3 ; 12 3]
+	rr= [ 21 2 ; 100 91]
+	[xs,ps,xf,pf]= wiener(y,x0,p0,f,g,h,q,rr)
+        //disp(x1)
+        //disp(p1)
+	//disp(x)
+	//disp(p)
+
+   
+	
+endfunction
diff --git a/demos/Abhinav_Demos/vector.sci b/demos/Abhinav_Demos/vector.sci
new file mode 100644
index 00000000..dedd8f1a
--- /dev/null
+++ b/demos/Abhinav_Demos/vector.sci
@@ -0,0 +1,16 @@
+// Test file for "vector" function for the data types double, float, double complex.
+function vector()
+ a=[1,2,3,4]
+ disp(isvector(a)) 
+ disp('')
+ b= %i+2
+ disp(isvector(b))
+ disp('')
+ c= float([1,3,4;1,2,3])
+ disp(isvector(c))
+ disp('')
+ d= [%i*812; %i*12]
+ disp(isvector(d))
+ disp('')	
+
+endfunction