function?[WB?SumOfAll?fd?FirstOrder]=AllOrder（f0VpQQNQ0Reso）
%海浪散射系數(shù)仿真程序?個(gè)參數(shù)下面有說明?可以計(jì)算單基地雷達(dá)和雙基地雷達(dá)的海浪散射系數(shù)

DopVal=zeros（1401）;
%?f0=15;?Vp=15;?Q=0*pi/180;QN=90*pi/180.0;Q0=0*pi/180.0;Reso=2000;
g=9.8;
A=4/（3*pi）;
s=4;
K0=2*pi*f0/300;??%//無線電波長
WB=sqrt（2*g*K0*cos（Q0））;?%?//Bragg?基頻

%/*?????參數(shù)聲明??????????????????????????????????????????
%?Vp---輸入風(fēng)速19.5（m/s）	
%?f0---雷達(dá)操作頻率
%?K0---雷達(dá)波數(shù)
%?K1---一階海洋波數(shù)
%?K2---二階海洋波數(shù)
%?Wd---多普勒頻率
%?WB---Bragg多普勒頻率
%?Q?---風(fēng)向（角度）
%?QN---散射橢圓法線矢量方向
%?Q0---半雙基地角
%?Q1---一階海洋波方向
%?Q2---二階海洋波方向	
%?s?---擴(kuò)展因子?*/????

%?	??//計(jì)算二階散射截面積
%?	??//-3WBSingular1=0;
Singular2=0;
Singular3=0;
Singular4=0;
Singular5=0;
Singular6=0;
Singular7=0;
Singular8=0;
Singular9=0;
Singular10=0;
for?N=1:160
????Wd=（-5.0+0.025*（N-1））*WB;?
????if（Wd+sqrt（2.0）*WB>0）?%//?Wd>=-sqrt（2）*WB部分
????????if（N==145）?
????????????Wd=-sqrt（2）*WB;?%//?奇異值
????????????Singular1=N;
????????end
????????if（abs（Wd+（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB）
????????????Wd=-（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB;
????????????Singular2=N;
????????????%//電場耦合系數(shù)產(chǎn)生的奇異值
????????end
????????DopVal（N）=dif（QN-piQN11WdWBf0VpQQNQ0ResoK0）+dif（QNQN+pi11WdWBf0VpQQNQ0ResoK0）;
????else??%//??Wd<-sqrt（2）WB
????????if（abs（Wd+（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB）
????????????Wd=-（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB;
????????????Singular3=N;
????????????%//電場耦合系數(shù)產(chǎn)生的奇異值
????????end
????????if（abs（Wd+（2^0.75）*sqrt（（（1+sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB）
????????????Wd=-（2^0.75）*sqrt（（（1+sin（Q0））^0.5）/cos（Q0））*WB;
????????????Singular4=N;
????????end
????????DopVal（N）=dif（QN-piQN-acos（2*（WB/Wd）*（WB/Wd））11WdWBf0VpQQNQ0ResoK0）+dif（QN+acos（2*（WB/Wd）*（WB/Wd））QN+pi11WdWBf0VpQQNQ0ResoK0）;
????end
end
%?//計(jì)算-WBfor?N=162:200
????Wd=（-5+0.025*（N-1））*WB;
????if（abs（Wd+（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB）
????????Wd=-（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB;?
????????Singular5=N;
????end
????DopVal（N）=dif（QN-piQN-11WdWBf0VpQQNQ0ResoK0）+dif（QNQN+pi-11WdWBf0VpQQNQ0ResoK0）;
end
N=N+1;
if（N==201）??%?//Wd=0
????Wd=（-5+0.025*（N-1））*WB;??
????DopVal（N）=dif（QN-0.5*piQN+0.5*pi-11WdWBf0VpQQNQ0ResoK0）;?
end
for?N=202:240
????Wd=（-5+0.025*（N-1））*WB;
????if（abs（Wd-（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB）
????????Wd=（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB;
????????Singular6=N;
????????%//電場耦合系數(shù)產(chǎn)生的奇異值
????end
????DopVal（N）=dif（QN-piQN1-1WdWBf0VpQQNQ0ResoK0）+dif（QNQN+pi1-1WdWBf0VpQQNQ0ResoK0）;
????%//?printf（“%d%e\n“NDopVal[N]）;
end
%//計(jì)算WBfor?N=242:401
????Wd=（-5+0.025*（N-1））*WB;
????if（Wd-sqrt（2.0）*WB<0）?%//?Wd>=sqrt（2）*WB部分
????????if（N==257）
????????????Wd=sqrt（2）*WB;?%//?奇異值
????????????Singular7=N;
????????end
????????if（abs（Wd-（2^0.75）*sqrt（（（1-sin（Q0））^0.5）/cos（Q0））*WB）<=0.0125*WB

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件??????12318??2008-11-09?09:56??AllOrder.m

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

????????????????12318????????????????????1