Home > atmlab > mie > epswater.m

epswater

PURPOSE ^

Dielectric permittivity of liquid water without salt according

SYNOPSIS ^

function result = epswater(fGHz, TK)

DESCRIPTION ^

 Dielectric permittivity of liquid water without salt according
 to Liebe et al. 1991, Int. J. IR+mm Waves, 12(12), 659-675
 Frequency range: 1 to 1000 GHz, temperature range: 270 to 310 K,
 extended 250 to 330 K 
 Input: fGHz: frequency in GHz, TK: temperature in K
 M�zler, June 2002

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

DOWNLOAD ^

epswater.m

SOURCE CODE ^

0001 function result = epswater(fGHz, TK)
0002 
0003 % Dielectric permittivity of liquid water without salt according
0004 % to Liebe et al. 1991, Int. J. IR+mm Waves, 12(12), 659-675
0005 % Frequency range: 1 to 1000 GHz, temperature range: 270 to 310 K,
0006 % extended 250 to 330 K
0007 % Input: fGHz: frequency in GHz, TK: temperature in K
0008 % M�zler, June 2002
0009 
0010     a = dbstack;
0011     %
0012     if length(a)==1 | ~strncmp(a(2).file,'mie',3) | ~strncmp(a(2).file,'eps',3)
0013       error('This function can just be used by the Mie functions.');
0014     end
0015 
0016 TETA=1-300./TK;
0017 e0=77.66-103.3*TETA;
0018 e1=0.0671*e0;
0019 f1=20.2+146.4*TETA+316*TETA.*TETA;
0020 e2=3.52+7.52*TETA;  
0021 % version of Liebe MPM 1993 uses: e2=3.52
0022 f2=39.8*f1;
0023 eps=e2+(e1-e2)./(1-i*fGHz./f2)+(e0-e1)./(1-i*fGHz./f1);
0024 
0025 result=eps;

Generated on Mon 15-Sep-2014 13:31:28 by m2html © 2005