// 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