function?GM1_1（X0p）
%format?long?;
%p=1;
[mn]=size（X0）;%m為行n為列
?X1=cumsum（X0）;???%累加
?X2=[];
for?i=1:n-1
????X2（i:）=X1（i）+X1（i+1）;
end
B=-0.5.*X2?;
t=ones（n-11）;
B=[Bt]??;??????%?求B矩陣
YN=X0（2:end）??;
%?P_t=YN./X1（1:（length（X0）-1））?%對原始數據序列X0進行準光滑性檢驗，
????????????????????????????%序列x0的光滑比P（t）=X0（t）/X1（t-1）?
A=inv（B.‘*B）*B.‘*YN.‘;?%A為參數向量

a=A（1）?;
b=A（2）?;

?%syms?k;

?for?k=0:n-1
?????XYS（k+1）=（exp（-a）-1）*（X0（1）-b/a）*exp（-a*k）;
?end
?XYS
?????
E0=X0（2:n）-XYS（1:n-1）?????


E02=abs（E0）;?%殘差絕對值

E1=cumsum（E02）;???%累加
?E2=[];
for?i=1:n-2
????E2（i:）=E1（i）+E1（i+1）;
end
Be=-0.5.*E2?;
t=ones（n-21）;
Be=[Bet]??;??????%?求B矩陣
YNe=E02（2:end）??;
%?P_t=YN./X1（1:（length（X0）-1））?%對原始數據序列X0進行準光滑性檢驗，
????????????????????????????%序列x0的光滑比P（t）=X0（t）/X1（t-1）?
A

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

?????文件???????2214??2011-06-02?20:02??GM1_1.m

?????文件????????117??2011-06-02?20:03??test.m

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

?????????????????2331????????????????????2