grads求序列与场回归的问题

isoasis

请教各位大神：用grads计算高度场对主分量序列的回归问题，画出来的图不对，求指点，谢谢！

gs 文件如下：
'reinit'
'open E:\ncep\regr\season.ctl'
'open E:\ncep\regr\pc.ctl'
'set font 1'
'set mpdset lowres cnriver'
'set grid off'
'set grads off'

'set x 1'
'set y 1'
'set z 1'
'set t 1 55'
'define rain=index.2'
'set font 1'
'set grads off'
'set xlopts 1 4 0.18'
'set ylopts 1 4 0.18'

'set x 1 144'
'set y 1 73'
'set z 1'
'set t 1'
'define reg=tregr(rain,h.1,t=1,t=55)'
'define cor=tcorr(rain,h.1,t=1,t=55)'

'set lon 0 180'
'set lat 0 90'
'set gxout shaded'
'd reg'
'set gxout contour'
'd reg'
'printim E:\ncep\regr\reg_hgt500-pc1.gif gif x1024 y768 white'