GraphingCalculator 4;
Window 46 6 857 1398;
PaneDivider 452;
SignificantDigits 14;
FontSizes 14;
BackgroundType 0;
StackPanes 1;
2D.Scale 0.01 0.05 5 2;
2D.BottomLeft -0.14375 -0.031875;
2D.GraphPaper 0;
Text "<size=17>Particle occupation functions.

Version 0.1<size=18>

Boltzmann's constant  [in eV/K].  ";
Color 2;
Expr k=8.617000000000001*10^(-5);
Text "<size=18>hbar*c [in eV*nm]";
Expr h=197.33;
Text "<size=18>Mass of the electron m*c^2 [in eV]";
Expr m=0.511*10^6;
Text "<size=18>Ferm energy ([in eV]";
Color 3;
Expr N=1,V=1;
Color 4;
Expr E_F=h^2/(2*m)*[3*pi^2*(N/V)]^(2/3);
Color 5;
Expr E_F;
Text "<size=18>Chemical potential at low temperature.  ";
Color 6;
Expr U=E_F-(pi^2/12*([k*T]^2/E_F));
Color 8;
Expr U;
Color 7;
Expr W=E_F;
Text "<size=18>Level degeneracy.";
Color 2;
Expr g=1;
Text "<size=18>Absolute temperature.  (With k=1 T is identified with kT.)";
Color 3;
MathPaneSlider 96;
Expr T=slider([0.005,300]);
Text "<size=18>Fermi-Dirac, Bose-Einstein, and Maxwell-Boltzmann occupation functions.   ";
Color 4;
Expr function(f_(F*D),E)=g/(e^([E-U]/(k*T))+1);
Color 5;
Expr function(f_(B*E),E)=g/(e^([E-U]/(k*T))-1);
Color 6;
Expr function(f_(M*B),E)=g/e^([E-U]/(k*T));
Text "<size=18>Plot f versus x=E/U.  ";
Color 17;
Expr function(f_(F*D),U*x),x>0;
Color 17;
Expr function(f_(B*E),U*x),x>0;
Color 17;
Expr function(f_(M*B),U*x),x>0;
Color 17;
Expr x=1;
Text "<size=18>Plot f versus x=E. ";
Color 2;
Expr function(f_(F*D),x),x>0;
Color 17;
Expr function(f_(B*E),x),x>0;
Color 17;
Expr function(f_(M*B),x),x>0;
Color 8;
Expr x=U;
Text "<size=18>

<size=15>Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";