The procedure ChargesPlot displays the charges of each atom based on atomic-orbital populations.

Colors of the atoms in a ball-and-stick model convey the charges of the atoms.

Positive charges in the range from 0 to 0.4 are indicated by shades of red, changing from white at 0 to dark red at 0.4.

Negative charges in the range from 0 to -0.4 are indicated by shades of blue, changing from white at 0 to dark blue at -0.4.

$\mathrm{with}\left(\mathrm{QuantumChemistry}\right)\:$

$\mathrm{mol}≔ \left[\left[''O''\, 0.7247\, 0.0\, 0.0\right]\, \left[''O''\, -0.7247\, 0.0\, 0.0\right]\, \left[''H''\, 0.8233\, -0.7\, -0.6676\right]\,\left[''H''\, -0.8233\, -0.6175\, 0.7446\right]\right]\;$

$\mathrm{mol}≔\left[\left[''O''\,0.72470000\,0.\,0.\right]\,\left[''O''\,\mathrm{-0.72470000}\,0.\,0.\right]\,\left[''H''\,0.82330000\,\mathrm{-0.70000000}\,\mathrm{-0.66760000}\right]\,\left[''H''\,\mathrm{-0.82330000}\,\mathrm{-0.61750000}\,0.74460000\right]\right]$

$\mathrm{ChargesPlot}\left(\mathrm{mol}\, \mathrm{method}\=\mathrm{HartreeFock}\right)\;$