- 积分
- 26283
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-1
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- <font size="3">function StaPrctile = StaFiltPrctile( location, stavalues, prc, winsize )
- [~,StaCount] = size(stavalues);
- StaPrctile = zeros(StaCount,1);
- %% the distance of each station
- s = length(location);
- DisMat = zeros(s,s);
- for m = 1:s
- for n = m:s
- tempdis = sqrt(( location(1,m) - location(1,n) )^2 + ( location(2,m) - location(2,n) )^2 );
- DisMat(m,n) = tempdis;
- DisMat(n,m) = tempdis;
- clear temp*;
- end
- end
-
- %%
- for m = 1:s
- tempvalues = stavalues(:, DisMat(m,:) < winsize);
- StaPrctile(m) = prctile(tempvalues(tempvalues > 0),prc);
- clear tempvalues;
- end
- end</font>
复制代码
来自群组: 北京师范大学地学-气象 |
|