%?domain?scatter?compensation
%?單特顯點法相位校正
%?gj?2007?6?1

clear
%%?phase?compasation
load?R_evp.mat;

[NM]=size（R_abs）;
R_sum=sum（abs（R_abs）1）/N;
R_sqr=sum（R_abs.*conj（R_abs）1）/N;
Sigma=ones（1M）;
Sigma=1-（R_sum.*conj（R_sum））./R_sqr;

[Yk]=min（Sigma）;
if（Y>0.12）
????error（‘none?mainpoint‘）;
end

k
phase=zeros（1N）;
for?l=1:N
????phase（l）=R_abs（lk）/abs（R_abs（lk））;
????R_abs（l:）=R_abs（l:）.*conj（phase（l））;
end

plot（R_sum）;
imwrite（mat2gray（angle（R_abs））‘Phasecompastion.jpg‘）;
img=fft（R_abs[]1）;
img?=?[img（N/2+1:N:）;?img（1:N/2:）];??%?equivalent?to?fftshift
imwrite（mat2gray（abs（img））‘image_mainpoint.jpg‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????3238??2009-04-16?18:33??demo?of?LFM?pulse?radar\demo?of?LFM?pulse?radar.txt

?????文件????????661??2007-06-27?18:56??demo?of?LFM?pulse?radar\ISAR單特顯點法相位補償.m

?????目錄??????????0??2011-11-17?19:22??demo?of?LFM?pulse?radar

-----------?---------??----------?-----??----

?????????????????3899????????????????????3