GraphingCalculator 4;
Window 45 27 861 1336;
PaneDivider 319;
FontSizes 18;
2D.Scale 0.25 2.5 1 1;
2D.BottomLeft -30 -0.640625;
Text "Finite square well.";
Color 2;
Expr Z_0=slider([0,100]);
Color 7;
Expr Z_1=8.59;
Text "Even eigenstates:";
Color 17;
Expr tan(x),x>0;
Color 17;
Expr sqrt([Z_0/x]^2-1),x>0;
Text "Or write this way:";
Color 3;
Expr x*tan(x),x>0;
Color 2;
Expr sqrt(Z_0^2-x^2),x>0;
Text "Odd eigenstates.   p flips both terms upside-down to make them easier to see and compare to even case.";
Color 6;
MathPaneSlider 1;
Expr p=slider([-1,1,1]);
Color 17;
Expr p*cot(x),x>0;
Color 17;
Expr -(p*sqrt([Z_0/x]^2-1)),x>0;
Text "Or write this way:";
Color 17;
Expr p*x*cot(x),x>0;
Color 17;
Expr -(p*sqrt(Z_0^2-x^2)),x>0;
Text "The solutions should approach the values for the infinite well as Z0 increases:";
Color 4;
Expr function(Z,m)=pi/2*m;
Color 17;
Expr x=function(Z,m),in(m,set(1*ldots*20));