Matlab處理氣象數據（十四）分段的逐點變化的DTR

% 兩套數據逐點DTR，2000年前後對比
% 導入Tmax1,72*128*396
% 導入Tmax2,72*128*396
% 導入Tmin1,72*128*396
% 導入Tmin2,72*128*396
 
Ymax1=reshape(Tmax1,[72,128,12,33]);
Ymax1=nanmean(Ymax1,3);
Ymax1=squeeze(Ymax1); %<72x128x33 double>
 
Ymax2=reshape(Tmax2,[72,128,12,33]);
Ymax2=nanmean(Ymax2,3);
Ymax2=squeeze(Ymax2); 
 
Ymin1=reshape(Tmin1,[72,128,12,33]);
Ymin1=nanmean(Ymin1,3);
Ymin1=squeeze(Ymin1); 
 
Ymin2=reshape(Tmin2,[72,128,12,33]);
Ymin2=nanmean(Ymin2,3);
Ymin2=squeeze(Ymin2); 
 
DTR1=Ymax1-Ymin1;
DTR2=Ymax2-Ymin2;
 
DTR1=DTR1(:,:,3:33);
DTR1a=DTR1(:,:,1:19);
DTR1b=DTR1(:,:,20:31);
 
DTR2=DTR2(:,:,3:33);
DTR2a=DTR2(:,:,1:19);
DTR2b=DTR2(:,:,20:31);

%畫NCEP數據2000年前的
for j=1:128
for i=1:72
y=DTR1a(i,j,:);
n = 19;
dt=1;
% 計算統計量
s = 0;
for p = 1:n-1
    for q = p+1:n
        s = s + sign( y(q) - y(p) );
    end
end
% 方差( assuming no tied groups )
v = ( n * ( n - 1 ) * ( 2 * n + 5 ) ) / 18;
% 檢驗統計量
if s == 0
z = 0;
elseif s > 0,
z = ( s - 1 ) / sqrt( v );
else
z = ( s + 1 ) / sqrt( v );
end
% should calculate Normal value here
nor = 1.64;
if abs( z ) < nor,
sya(i,j) = 0;
else
% 計算斜率
ndash = n * ( n - 1 ) / 2;
s = zeros( ndash,1 );
s=nan;
r = 1;
for p = 1:n-1
for q = p+1:n
s(r) = ( y(q) - y(p) ) / ( q - p ) / dt;
r = r + 1;
end
end
sDTR1a(i,j) = median( s );
end
end
end 
[x y]=meshgrid(72:0.5:135.5,18:0.5:53.5);
pcolor(x,y,sDTR1a);
shading flat;
load mycolor;
colormap(mycolor);
hold on
map=shaperead('E:\數據\邊界\china_map1\maps\bou2_4l.shp');%加載省界帶南海的邊界線
bou2_4lx=[map(:).X];%提取經度
bou2_4ly=[map(:).Y];%提取緯度
provence=[bou2_4lx',bou2_4ly']; 
plot(bou2_4lx,bou2_4ly,'-k','LineWidth',1.2);%繪國界
axis([72 136 18 54]);%設置顯示的經緯度範圍
hold off
%最後調整區間爲-0.2~0.2

%畫NCEP數據2000年後的
for j=1:128
for i=1:72
y=DTR1b(i,j,:);
n = 12;
dt=1;
% 計算統計量
s = 0;
for p = 1:n-1
    for q = p+1:n
        s = s + sign( y(q) - y(p) );
    end
end
% 方差( assuming no tied groups )
v = ( n * ( n - 1 ) * ( 2 * n + 5 ) ) / 18;
% 檢驗統計量
if s == 0
z = 0;
elseif s > 0,
z = ( s - 1 ) / sqrt( v );
else
z = ( s + 1 ) / sqrt( v );
end
% should calculate Normal value here
nor = 1.64;
 
if abs( z ) < nor,
sya(i,j) = 0;
else
% 計算斜率
ndash = n * ( n - 1 ) / 2;
s = zeros( ndash,1 );
s=nan;
r = 1;
for p = 1:n-1
for q = p+1:n
s(r) = ( y(q) - y(p) ) / ( q - p ) / dt;
r = r + 1;
end
end
sDTR1b(i,j) = median( s );
end
end
end 
[x y]=meshgrid(72:0.5:135.5,18:0.5:53.5);
pcolor(x,y,sDTR1b);
shading flat;
load mycolor;
colormap(mycolor);
hold on
map=shaperead('E:\數據\邊界\china_map1\maps\bou2_4l.shp');%加載省界帶南海的邊界線
bou2_4lx=[map(:).X];%提取經度
bou2_4ly=[map(:).Y];%提取緯度
provence=[bou2_4lx',bou2_4ly']; 
plot(bou2_4lx,bou2_4ly,'-k','LineWidth',1.2);%繪國界
axis([72 136 18 54]);%設置顯示的經緯度範圍
hold off
%最後調整區間爲-0.2~0.2

%畫觀測數據2000年前的
for j=1:128
for i=1:72
y=DTR2a(i,j,:);
n = 19;
dt=1;
% 計算統計量
s = 0;
for p = 1:n-1
    for q = p+1:n
        s = s + sign( y(q) - y(p) );
    end
end
% 方差( assuming no tied groups )
v = ( n * ( n - 1 ) * ( 2 * n + 5 ) ) / 18;
% 檢驗統計量
if s == 0
z = 0;
elseif s > 0,
z = ( s - 1 ) / sqrt( v );
else
z = ( s + 1 ) / sqrt( v );
end
% should calculate Normal value here
nor = 1.64;
if abs( z ) < nor,
sya(i,j) = 0;
else
% 計算斜率
ndash = n * ( n - 1 ) / 2;
s = zeros( ndash,1 );
s=nan;
r = 1;
for p = 1:n-1
for q = p+1:n
s(r) = ( y(q) - y(p) ) / ( q - p ) / dt;
r = r + 1;
end
end
sDTR2a(i,j) = median( s );
end
end
end
[x y]=meshgrid(72:0.5:135.5,18:0.5:53.5);
pcolor(x,y,sDTR2a);
shading flat;
load mycolor;
colormap(mycolor);
hold on
map=shaperead('E:\數據\邊界\china_map1\maps\bou2_4l.shp');%加載省界帶南海的邊界線
bou2_4lx=[map(:).X];%提取經度
bou2_4ly=[map(:).Y];%提取緯度
provence=[bou2_4lx',bou2_4ly']; 
plot(bou2_4lx,bou2_4ly,'-k','LineWidth',1.2);%繪國界
axis([72 136 18 54]);%設置顯示的經緯度範圍
hold off
%最後調整區間爲-0.2~0.2

%畫觀測數據2000年後的
for j=1:128
for i=1:72
y=DTR2b(i,j,:);
n = 12;
dt=1;
% 計算統計量
s = 0;
for p = 1:n-1
    for q = p+1:n
        s = s + sign( y(q) - y(p) );
    end
end
% 方差( assuming no tied groups )
v = ( n * ( n - 1 ) * ( 2 * n + 5 ) ) / 18;
% 檢驗統計量
if s == 0
z = 0;
elseif s > 0,
z = ( s - 1 ) / sqrt( v );
else
z = ( s + 1 ) / sqrt( v );
end
% should calculate Normal value here
nor = 1.64;
if abs( z ) < nor,
sya(i,j) = 0;
else
% 計算斜率
ndash = n * ( n - 1 ) / 2;
s = zeros( ndash,1 );
s=nan;
r = 1;
for p = 1:n-1
for q = p+1:n
s(r) = ( y(q) - y(p) ) / ( q - p ) / dt;
r = r + 1;
end
end
sDTR2b(i,j) = median( s );
end
end
end
[x y]=meshgrid(72:0.5:135.5,18:0.5:53.5);
pcolor(x,y,sDTR2b);
shading flat;
load mycolor;
colormap(mycolor);
hold on
map=shaperead('E:\數據\邊界\china_map1\maps\bou2_4l.shp');%加載省界帶南海的邊界線
bou2_4lx=[map(:).X];%提取經度
bou2_4ly=[map(:).Y];%提取緯度
provence=[bou2_4lx',bou2_4ly']; 
plot(bou2_4lx,bou2_4ly,'-k','LineWidth',1.2);%繪國界
axis([72 136 18 54]);%設置顯示的經緯度範圍
hold off
%最後調整區間爲-0.2~0.2

得到如下結果：

NCEP數據1981-1999年（左）和2000-2011年（右）的DTR逐點趨勢分析

觀測數據1981-1999年（左）和2000-2011年（右）的DTR逐點趨勢分析

---

相關鏈接：
Matlab處理氣象數據——目錄