1 files changed, 25 insertions, 0 deletions
diff --git a/2.3-1/demos/Abhinav_Demos/test_wiener.sci b/2.3-1/demos/Abhinav_Demos/test_wiener.sci
new file mode 100644
index 00000000..780e9571
--- /dev/null
+++ b/2.3-1/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