(* This notebook is to calculate the mean free path of the atomic strontium inside the oven *)

(* According to Ross & Sonntag the mean free path is given by 
lambda = 7.321*10^-20*T/(sigma*P)
Where T is in kelvin, sigma is the Molecular Collision Cross Section in cm^2, and P is pressure in torr *)

(* Crane & Shaw give the Collisional Broadening Cross section to be 6.55*10^-14 cm^2 *)
(* 297.10*20^-16
96*10^-16 
Chan asymmetry of the strontium line *)

(*
σ = Pi(AtomRadius)^2;
λ = 7.321 10^-20 T /(P σ)*(cm^3 torr/Kelvin);
Kn = λ/ID;

T = (620+273) Kelvin;


AtomRadius = 215 pm;
*)

Clear[P,T]
Pn = List[10^-14,10^-13,10^-12,10^-11,10^-10,10^-9,10^-8,10^-7,10^-6,10^-5,10^-4,10^-3,10^-2,10^-1,.4];
Tn = List[100,115,135,155,180,205,235,268,305,350,400,460,530,620,700];
ListPlot[Table[{Tn[[i]],Pn[[i]]},{i,1,14}]]
P = Interpolation[Table[{Tn[[i]],Pn[[i]]},{i,1,14}]];
LogPlot[P[T],{T,100,700}]

|

(* T = 620; *) (* in celsius *)
sigma =Pi *(2*200 10^-10)^2;
lambda =  7.321*10^-20*(T+273)/(sigma*P[T] 100);
Plot[lambda,{T,500,700}]
(* Out in meters *)

T = 600;
lambda