source: Roms_tools/Preprocessing_tools/hanning.m @ 1

Last change on this file since 1 was 1, checked in by cholod, 13 years ago

import Roms_Agrif

File size: 287 bytes
Line 
1function h=hanning(h);
2[M,L]=size(h);
3Mm=M-1;
4Mmm=M-2;
5Lm=L-1;
6Lmm=L-2;
7
8h(2:Mm,2:Lm)=0.125*(h(1:Mmm,2:Lm)+h(3:M,2:Lm)+...
9                       h(2:Mm,1:Lmm)+h(2:Mm,3:L)+...
10                       4*h(2:Mm,2:Lm));
11h(1,:)=h(2,:);
12h(M,:)=h(Mm,:);
13h(:,1)=h(:,2);
14h(:,L)=h(:,Lm);
15return
16
17
Note: See TracBrowser for help on using the repository browser.