homework7 - ; ;homework7.pro ;Doppler line shape:...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
;homework7.pro ; ;Doppler line shape: (1/(ad*sqrt(pi)) * exp[-(nu-nuo)^2/(ad^2)] ; ad = (nuo/c) * sqrt(2kT/m) ; ;Lorentz line shape: (al/pi)/[(nu-no)^2 + al^2] ; al = ao (P/Po) (To/T)^1/2 ; c = 3.0e8 ;m/s k = 1.381e-23 ;J/K Ts = 290. ;K, surface T10 = 250. ;K nuo = c/(4.26e-6) ;s^(-1) ao=0.05 ;cm^(-1) ;Convert ao to s^(-1) to be consistent with lecture. ...but could do this ; using wavenumbers as well (see below). ao=c*100.*ao Po = 1.e5 ;Pa P10 = 1.e3 ;Pa m = 1.e-3 * (12.+32.)/6.022e23 ;CO2 molecular weight (kg) m dnu0=1.e8*(findgen(100)-50.) ;works for surface dnu10=1.e7*(findgen(100)-50.) ;works for 10 mb d ad0=(nuo/c)*sqrt(2.0*k*ts/m) ;[s^(-1)/(m/s)] * m/s = s^(-1) = Hz ad10=(nuo/c)*sqrt(2.0*k*t10/m) a D0 = (1.0/(ad0*sqrt(!pi))) * exp(-1.0*(dnu0)^2.0/(ad0^2.0)) ;Surface, Hz^(-1) D10 = (1.0/(ad10*sqrt(!pi))) * exp(-1.0*(dnu10)^2.0/(ad10^2.0)) ;10 mb, Hz^(-1) D al0 = ao al10 = ao * (P10/Po) * (Ts/T10)^(0.5) a L0 = (al0/!pi) / ((dnu0)^2.0 + al0^2.0) L10 = (al10/!pi) / ((dnu10)^2.0 + al10^2.0)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

homework7 - ; ;homework7.pro ;Doppler line shape:...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online