％radon transform
clear all
％
N=800
n=1:N
fs=200
t=n/fs
x1=exp(j*2*Pi*(5*t+0.5*5*t.^2))
x2=exp(j*2*Pi*(5*t+0.5*15*t.^2))
x=x1+x2
％N=length(x)
％ ambifunb(x )
％*****************************************RAT
naf=ambifunb(x)
htl(abs(naf))
％ [wh,rho,theta]=htl(abs(naf))
colormap([0,0,0])
％ xlabel( 極半徑 )
％ ylabel( 角度 )
％**************************************％找出峰值點的坐標,計算初始頻率和調頻斜率(正確)
％找出峰值點的坐標
b=max(max(wh))
[u,a]=find(wh>=0.8*b)
標簽：
transform
radon
clear
fs
上傳時間：
2014-10-27
上傳用戶：Yukiseop
