1
function [phi,db]=phasemag(z,mod)
4
mod_def='c' //continuous representation
5
//mod_def='m' //representation modulo 360 degrees
8
db=20*log(abs(z))/log(10),
13
phi1=atan(-imag(z(:,1)),-real(z(:,1)))
15
z=z(:,2:n)./z(:,1:n-1)
16
phi=[phi1 atan(imag(z),real(z))]
19
kk=find(abs(phi(l,2:n)-phi(l,1:n-1))>=2*%pi)
20
if kk<>[] then phi(l,kk+ones(kk))=phi(l,kk),end
24
phi=cumsum(phi,2)*(180/%pi)-180
27
if part(mod,1)=='c' then
30
k=int(abs(mphi)/360)+1
31
phi=phi+ones(phi)*360*k
34
phi=phi-ones(phi)*360*k
39
phi(l,:)=phi(l,:)-int(phi(l,:)/360)*360
40
if k<>[] then phi(l,k)=phi(l,k)-360*ones(k),end