Potential Functions of Ions in Cubic BaTiO 3