GraphingCalculator 4;
Window 47 7 624 966;
PaneDivider 238;
SignificantDigits 14;
FontSizes 14;
BackgroundType 0;
2D.Scale 0.01 0.1 5 5;
2D.BottomLeft -0.3375 0.93375;
2D.Axes 0;
2D.GraphPaper 0;
Text "Hydrogenic spectral series.   

Wavelength increases to the right; frequency to the left.

(Option-click zoom buttons to zoom in and out horizontally.)


Version 0.2 10-20-14

Rydberg constant; nuclear charge.";
Expr R=1,Z=1;
Text "Wavelength of transition from q->p:";
Color 2;
Expr function(L,p,q)=Z^2*p^2/R*[1/(1-[p/q]^2)];
Text "<size=18>Series alpha line and series limit:";
Color 4;
Expr function(L_a,p)=function(L,p,p+1);
Color 5;
Expr function(L_inf,p)=function(L,p,100);
Text "<size=18>Lyman series:";
Color 7;
Expr x=function(L,1,a+1),0<y<1,in(a,set(1*ldots*10));
Text "<size=18>Balmer series:";
Color 3;
Expr x=function(L,2,a+2),0<y<1,in(a,set(1*ldots*10));
Text "<size=18>Paschen series:";
Expr x=function(L,3,a+3),0<y<1,in(a,set(1*ldots*10));
Text "<size=18>Brackett series:";
Color 5;
Expr x=function(L,4,a+4),0<y<1,in(a,set(1*ldots*10));
Text "<size=18>Pfund:";
Color 4;
Expr x=function(L,5,a+5),0<y<1,in(a,set(1*ldots*10));
Text "<size=18>

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