The energy for a Morse oscillator is given by
> Evib := n -> w0*(n+1/2) - wa*(n+1/2)^2;
where we are using the shorthand
and
.
It is a relatively straightforward
matter to fit the data to this expression. The data are
> nvals := [0,1,2,3];
> Evals := [2.8368,8.4883,14.110,19.702];
> with(stats):
> fitted_eq :=
fit[leastsquare[[n,En],En=Evib(n),{w0,wa}]]([nvals,Evals]);
Thus we have
> hbar := 6.626069e-34/(2*Pi);
> omega0 := 5.681132253e-21/hbar;
The anharmonicity constant is
> chi := .1485366631e-1/5.681132253;
The anharmonicity constant is dimensionless.
The isotopic mass of sodium is (in amu)
> mNa := 22.98976967;
and for iodine, we have
> mI := 126.904468;
The reduced mass (in kg) is therefore
> mu := 1/(1/mNa+1/mI)/1000/6.02214199e23;
The bond stiffness is therefore
> k := evalf(omega0^2*mu);
k := 93.79792525
Thus,
.
The Morse parameter D is given by
> DM := 5.681132253e-21/(4*chi);
To get the dissociation energy, we need to subtract off the zero-point
energy:
> De := DM - 1/2*5.681132253e-21*(1-1/2*chi);
Our spectroscopic calculation therefore gives a dissociation energy of
.