varc

 v=varc(x,flag,dim)

 Same as (redefined) var.m except takes variance of real and imag parts
 separately

0001 function v=varc(x,flag,dim)
0002 % v=varc(x,flag,dim)
0003 %
0004 % Same as (redefined) var.m except takes variance of real and imag parts
0005 % separately
0006 
0007 if(~exist('nflag'))
0008   nflag=[];
0009 end
0010 if(isempty(nflag))
0011   nflag=0;
0012 end
0013 if(~exist('dim'))
0014   dim=1;
0015 end
0016 
0017 r=var(real(x),nflag,dim);
0018 i=var(imag(x),nflag,dim);
0019 v=complex(r,i);