Calculate the degeneracy gEdE for a particle in a cubic box

Calculate the degeneracy, g(E)dE, for a particle in a cubic box with an energy of E = 3k_B T/2, where k_B is Boltzmann\'s constant. Assume the temperature is T = 300K, the mass m=0.6010^-31 kg, and the side of the cube is a = 100 A.

Solution

% some Rs
     r=1:4;
% chose comp mode
     mode=input(\'mode parallel [p]/in series [s] < \',\'s\');
% the engine
switch mode
case \'p\'
     res=1./sum(1./r);
case \'s\'
     res=sum(r);
otherwise
     disp(sprintf(\'mode not supported <%s>\',mode));
     return;
end
% the result
     disp(sprintf(\'RESULT (%s) = %g\',mode,res));