- 积分
- 90
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-10-15
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
;----年代际滤波------
ihp = 0 ; low pass 得到低频信号,
nwt = 49
fca = 1./120
fcb = -999
sigma= 1.0
wgt = filwgts_lanczos(nwt, ihp, fca, fcb, sigma )
pc := wgt_runave_Wrap(pc, wgt, 0)
slp := wgt_runave_n_Wrap(slp,wgt,0,0)
;---------------
yy = regCoef(pc, slp({lat|:},{lon|:},{time|:}))
copy_VarCoords(slp(0,:,:),yy)
;---------
p = student_t(yy@tval,yy@nptxy-2)
p_yy = onedtond(p,(/dims(1),dims(2)/))
copy_VarCoords(slp(0,:,:),p_yy)
printMinMax(p,False)
print(avg(p_yy(:,23)))
;-------------------------
最后一张是打点的代码,过了0.01都打上点
但是出图的结果有问题,有朋友帮忙看看吗!
|
|