17.1 各省冬季和夏季的DTR趨勢
以江西爲例，其他省份只需將下面代碼中的“江西”替換爲其他省份的名稱即可。
%%
clc,clear
load('E:\數據\201507\各省MASK\江西');%MASK是各省掩膜
load('E:\數據\201501\Tmax1');%導入NCEP數據最高溫度 72*128*396
load('E:\數據\201501\Tmax2');%導入觀測數據最高溫度 72*128*396
load('E:\數據\201501\Tmin1');%導入NCEP數據最低溫度 72*128*396
load('E:\數據\201501\Tmin2');%導入觀測數據最低溫度 72*128*396
DTR1=Tmax1-Tmin1;
DTR2=Tmax2-Tmin2;
%冬季DTR溫度 72*128*32
for i=1:32
wDTR1(:,:,i)=squeeze(nanmean(DTR1(:,:,(12+12*(i-1)):(14+12*(i-1))),3));
wDTR2(:,:,i)=squeeze(nanmean(DTR2(:,:,(12+12*(i-1)):(14+12*(i-1))),3));
end
%全國夏季DTR溫度 72*128*33
for i=1:33
smDTR1(:,:,i)=squeeze(nanmean(DTR1(:,:,(6+12*(i-1)):(7+12*(i-1))),3));
smDTR2(:,:,i)=squeeze(nanmean(DTR2(:,:,(6+12*(i-1)):(7+12*(i-1))),3));
end
clear Tmax1 Tmax2 Tmin1 Tmin2 DTR1 DTR2
%%
%冬季
%對NCEP數據
T_mean=squeeze(nanmean(wDTR1,3));
for i=1:32
wDTR1(:,:,i)=squeeze(wDTR1(:,:,i))-T_mean;
end
T12=wDTR1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
T12=reshape(T12,[72*128 32]);
T12=nanmean(T12,1);
NCEP=T12;
p1=polyfit(1:32,T12,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:32);
clear wDTR1 T12 T_mean
%對觀測數據
T_mean=squeeze(nanmean(wDTR2,3));
for i=1:32
wDTR2(:,:,i)=squeeze(wDTR2(:,:,i))-T_mean;
end
clear i j T_mean
T22=wDTR2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
T22=reshape(T22,[72*128 32]);
T22=nanmean(T22,1);
Obs=T22;
p2=polyfit(1:32,T22,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:32);
clear j i wDTR2 T22
%求P值
t=1:32;
t=t';
t=[ones(32,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
clf
subplot(1,2,1)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 33])%x軸範圍鎖定
box off %去掉外框
%添加斜率方程、R2、P值
h=text(9,-1.4,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(9,-1.6,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(9,-1.8,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.4,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.6,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.8,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(20,1.8,['Jiangxi(winter)']) %添加省份名稱
set(h, 'FontSize',15)
%%
%夏季
%對NCEP數據
T_mean=squeeze(nanmean(smDTR1,3));
for i=1:33
smDTR1(:,:,i)=squeeze(smDTR1(:,:,i))-T_mean;
end
T12=smDTR1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
T12=reshape(T12,[72*128 33]);
T12=nanmean(T12,1);
NCEP=T12;
p1=polyfit(1:33,T12,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:33);
clear smDTR1 T12 T_mean
%對觀測數據
T_mean=squeeze(nanmean(smDTR2,3));
for i=1:33
smDTR2(:,:,i)=squeeze(smDTR2(:,:,i))-T_mean;
end
clear i j T_mean
T22=smDTR2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
T22=reshape(T22,[72*128 33]);
T22=nanmean(T22,1);
Obs=T22;
p2=polyfit(1:33,T22,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:33);
clear j i smDTR2 T22
%求P值
t=1:33;
t=t';
t=[ones(33,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
subplot(1,2,2)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 33])%x軸範圍鎖定
box off %去掉外框
%添加斜率方程、R2、P值
h=text(9,-1.4,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(9,-1.6,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(9,-1.8,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.4,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.6,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(22,-1.8,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(18,1.8,['Jiangxi(summer)']) %添加省份名稱
set(h, 'FontSize',15)
得到結果如下圖所示：
17.2 全國平均溫度的四季變化趨勢
clc;clear
load('E:\數據\201507\MASK');%MASK是城市區域掩膜
load('E:\數據\201501\T1');%導入NCEP數據平均溫度 72*128*420
load('E:\數據\201501\T2');%導入觀測數據平均溫度 72*128*420
%全國春季年平均溫度 72*128*35
for i=1:35
sT1(:,:,i)=squeeze(nanmean(T1(:,:,(3+12*(i-1)):(5+12*(i-1))),3));
sT2(:,:,i)=squeeze(nanmean(T2(:,:,(3+12*(i-1)):(5+12*(i-1))),3));
end
%%
%對NCEP數據
T_mean=squeeze(nanmean(sT1,3));
for i=1:35
sT1(:,:,i)=squeeze(sT1(:,:,i))-T_mean;
end
clear i j T_mean
T12=sT1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
T12=reshape(T12,[72*128 35]);
T12=nanmean(T12,1);
NCEP=T12;
p1=polyfit(1:35,T12,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:35);
clear j i T12
%對觀測數據
T_mean=squeeze(nanmean(sT2,3));
for i=1:35
sT2(:,:,i)=squeeze(sT2(:,:,i))-T_mean;
end
clear i j T_mean
T22=sT2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
T22=reshape(T22,[72*128 35]);
T22=nanmean(T22,1);
Obs=T22;
p2=polyfit(1:35,T22,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:35);
clear j i T22
%求P值
t=1:35;
t=t';
t=[ones(35,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
clf
subplot(1,2,1)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 35])%x軸範圍鎖定爲1~35
box off %去掉外框
%添加斜率方程、R2、P值
h=text(10,-1.5,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(10,-1.7,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(10,-1.9,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.5,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.7,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.9,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(26,1.8,['spring(a)']) %添加名稱
set(h, 'FontSize',15)
%可以用 delete(h) 來撤銷句柄
%%
%對NCEP數據
T_mean=squeeze(nanmean(sT1,3));
for i=1:35
sT1(:,:,i)=squeeze(sT1(:,:,i))-T_mean;
end
clear i j T_mean
T12=sT1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
%摳非城市的
for i=1:72
for j=1:128
if isnan(sT1(i,j,:))==1
sT1(i,j,:)=0;
end
end
end
for i=1:72
for j=1:128
if isnan(T12(i,j,:))==1
T12(i,j,:)=0;
end
end
end
T13=sT1-T12;
for i=1:72
for j=1:128
if T13(i,j,:)==0
T13(i,j,:)=nan;
end
end
end
T13=reshape(T13,[72*128 35]);
T13=nanmean(T13,1);
NCEP=T13;
p1=polyfit(1:35,T13,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:35);
clear j i sT1 T13
%對觀測數據
T_mean=squeeze(nanmean(sT2,3));
for i=1:35
sT2(:,:,i)=squeeze(sT2(:,:,i))-T_mean;
end
clear i j T_mean
T22=sT2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
%摳非城市的
for i=1:72
for j=1:128
if isnan(sT2(i,j,:))==1
sT2(i,j,:)=0;
end
end
end
for i=1:72
for j=1:128
if isnan(T22(i,j,:))==1
T22(i,j,:)=0;
end
end
end
T23=sT2-T22;
for i=1:72
for j=1:128
if T23(i,j,:)==0
T23(i,j,:)=nan;
end
end
end
T23=reshape(T23,[72*128 35]);
T23=nanmean(T23,1);
Obs=T23;
p2=polyfit(1:35,T23,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:35);
clear j i sT2 T23
%求P值
t=1:35;
t=t';
t=[ones(35,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
subplot(1,2,2)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 35])%x軸範圍鎖定爲1~35
box off %去掉外框
%添加斜率方程、R2、P值
h=text(10,-1.5,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(10,-1.7,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(10,-1.9,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.5,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.7,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(23,-1.9,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(26,1.8,['spring(b)']) %添加名稱
set(h, 'FontSize',15)
%可以用 delete(h) 來撤銷句柄
類似地,可以得到全國城市區域和非城市區域最高溫度和最低溫度的四季變化趨勢，此處不再贅述。
17.3 全國DTR的四季變化趨勢
clc;clear
load('E:\數據\201507\MASK');%MASK是城市區域掩膜
load('E:\數據\201501\Tmax1');%導入NCEP數據最高溫度 72*128*396
load('E:\數據\201501\Tmax2');%導入觀測數據最高溫度 72*128*396
load('E:\數據\201501\Tmin1');%導入NCEP數據最低溫度 72*128*396
load('E:\數據\201501\Tmin2');%導入觀測數據最低溫度 72*128*396
DTR1=Tmax1-Tmin1;
DTR2=Tmax2-Tmin2;
%全國春季DTR溫度 72*128*33
for i=1:33
sDTR1(:,:,i)=squeeze(nanmean(DTR1(:,:,(3+12*(i-1)):(5+12*(i-1))),3));
sDTR2(:,:,i)=squeeze(nanmean(DTR2(:,:,(3+12*(i-1)):(5+12*(i-1))),3));
end
%%
%對NCEP數據
T_mean=squeeze(nanmean(sDTR1,3));
for i=1:33
sDTR1(:,:,i)=squeeze(sDTR1(:,:,i))-T_mean;
end
clear i j T_mean
T12=sDTR1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
T12=reshape(T12,[72*128 33]);
T12=nanmean(T12,1);
NCEP=T12;
p1=polyfit(1:33,T12,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:33);
clear j i T12
%對觀測數據
T_mean=squeeze(nanmean(sDTR2,3));
for i=1:33
sDTR2(:,:,i)=squeeze(sDTR2(:,:,i))-T_mean;
end
clear i j T_mean
T22=sDTR2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
T22=reshape(T22,[72*128 33]);
T22=nanmean(T22,1);
Obs=T22;
p2=polyfit(1:33,T22,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:33);
clear j i T22
%求P值
t=1:33;
t=t';
t=[ones(33,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
clf
subplot(1,2,1)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 33])%x軸範圍鎖定爲1~33
box off %去掉外框
%添加斜率方程、R2、P值
h=text(8,-1.5,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(8,-1.7,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(8,-1.9,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.5,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.7,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.9,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(26,1.8,['spring(a)']) %添加名稱
set(h, 'FontSize',15)
%可以用 delete(h) 來撤銷句柄
%%
%對NCEP數據
T_mean=squeeze(nanmean(sDTR1,3));
for i=1:33
sDTR1(:,:,i)=squeeze(sDTR1(:,:,i))-T_mean;
end
clear i j T_mean
T12=sDTR1;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T12(i,j,:)=nan;
end
end
end
%摳非城市的
for i=1:72
for j=1:128
if isnan(sDTR1(i,j,:))==1
sDTR1(i,j,:)=0;
end
end
end
for i=1:72
for j=1:128
if isnan(T12(i,j,:))==1
T12(i,j,:)=0;
end
end
end
T13=sDTR1-T12;
for i=1:72
for j=1:128
if T13(i,j,:)==0
T13(i,j,:)=nan;
end
end
end
T13=reshape(T13,[72*128 33]);
T13=nanmean(T13,1);
NCEP=T13;
p1=polyfit(1:33,T13,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target1=polyval(squeeze(p1(:)),1:33);
clear j i sDTR1 T13
%對觀測數據
T_mean=squeeze(nanmean(sDTR2,3));
for i=1:33
sDTR2(:,:,i)=squeeze(sDTR2(:,:,i))-T_mean;
end
clear i j T_mean
T22=sDTR2;%刪除邊界區域外的值
for i=1:72
for j=1:128
if isnan(MASK(i,j))==1
T22(i,j,:)=nan;
end
end
end
%摳非城市的
for i=1:72
for j=1:128
if isnan(sDTR2(i,j,:))==1
sDTR2(i,j,:)=0;
end
end
end
for i=1:72
for j=1:128
if isnan(T22(i,j,:))==1
T22(i,j,:)=0;
end
end
end
T23=sDTR2-T22;
for i=1:72
for j=1:128
if T23(i,j,:)==0
T23(i,j,:)=nan;
end
end
end
T23=reshape(T23,[72*128 33]);
T23=nanmean(T23,1);
Obs=T23;
p2=polyfit(1:33,T23,1); % p輸出兩個值第一個是a 第二個是b y=ax+b
target2=polyval(squeeze(p2(:)),1:33);
clear j i sDTR2 T23
%求P值
t=1:33;
t=t';
t=[ones(33,1),t];
NCEP = NCEP';
[b1,bint1,r1,rint1,stats1]= regress(NCEP,t,0.05);
Obs = Obs';
[b2,bint2,r2,rint2,stats2]= regress(Obs,t,0.05);
%作圖
subplot(1,2,2)
plot(NCEP,'r','linewidth',2)
hold on
plot(Obs,'b','linewidth',2)
plot(target1,'r','linewidth',2)%趨勢線
plot(target2,'b','linewidth',2)
legend({'NCEP','Observed'},'Location','Northwest')
set(gca,'xtick',[2 7 12 17 22 27 32]);
set(gca,'xticklabel',{'1980','1985','1990','1995','2000','2005','2010'});
axis([ -inf inf -2 2]);
h=xlabel('Year');
set(h, 'FontSize',8,'FontWeight','Bold')
h=ylabel('Temp. Anom. (\circC)');
set(h, 'FontSize',8,'FontWeight','Bold')
set(gca, 'FontSize',8,'FontWeight','Bold','tickdir','out')
xlim([1 33])%x軸範圍鎖定爲1~33
box off %去掉外框
%添加斜率方程、R2、P值
h=text(8,-1.5,['y(NCEP)=' num2str(roundn(b1(1,:),-3)) '+' num2str(roundn(b1(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(8,-1.7,['R^2(NCEP)=' num2str(roundn(stats1(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(8,-1.9,['P(NCEP)=' num2str(roundn(stats1(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.5,['y(Obs)=' num2str(roundn(b2(1,:),-3)) '+' num2str(roundn(b2(2,:),-3)) '*x' '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.7,['R^2(Obs)=' num2str(roundn(stats2(:,1),-2)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(21,-1.9,['P(Obs)=' num2str(roundn(stats2(:,3),-4)) '']);
set(h, 'FontSize',10,'FontWeight','Bold')
h=text(26,1.8,['spring(b)']) %添加名稱
set(h, 'FontSize',15)
%可以用 delete(h) 來撤銷句柄
相關鏈接：
Matlab處理氣象數據——目錄