Calculate transmission probability through a rectangular potential barrier
kappa = sqrt(2m(V0-E)) / hbar
T = 1 / (1 + V0^2 sinh^2(kappa*L) / (4E(V0-E)))
R = 1 - T