root/adcp/trunk/adcp/diwasp_1_1GD/private/pres.m
Revision 168 (checked in by cbc, 16 years ago) |
---|
Line | |
---|---|
1 | function trm=pres(ffreqs,dirs,wns,z,depth,xpos,ypos) |
2 | |
3 | Kz=cosh(z*wns)./cosh(depth*wns); |
4 | %include a maximum cuttoff for the pressure response function |
5 | Kz(find(Kz<0.1))=0.1; |
6 | Kz(find(isnan(Kz)))=1; |
7 | trm=Kz*ones(size(dirs)); |
8 |
Note: See TracBrowser for help on using the browser.