Needs["chemBalance`"]

Note that ⇌ is entered as <escape> equi <escape>

\(balance[\*""(Subscript[C, 1])(Subscript[O, 2])+(Subscript[H, 2])(Subscript[O, 1])⇌(Subscript[C, 6])(Subscript[H, 12])(Subscript[O, 6])+(Subscript[O, 2])""]\)

\(balance[\*""(Subscript[K, 2])(Subscript[Cr, 2])(Subscript[O, 7])+(Subscript[H, 2])(Subscript[O, 1])+(Subscript[S, 1])⇌(Subscript[S, 1])(Subscript[O, 2])+(Subscript[K, 1])(Subscript[O, 1])(Subscript[H, 1])+(Subscript[Cr, 2])(Subscript[O, 3])""]\)

\(balance[\*""(Subscript[K, 1])(Subscript[Cl, 1])(Subscript[O, 3])+(Subscript[C, 12])(Subscript[H, 22])(Subscript[O, 11])⇌(Subscript[K, 1])(Subscript[Cl, 1])+(Subscript[C, 1])(Subscript[O, 2])+(Subscript[H, 2])O""]\)

This example shows that Iodine is handled correctly, even though Mathematica uses I as the square root of minus one.

\(balance[\*""(Subscript[H, 2])+(Subscript[I, 2])⇌(Subscript[H, 1])(Subscript[I, 1])""]\)

Note that zinc nitrate must be entered without parentheses.

\(balance[\*""(Subscript[Zn, 1])+(Subscript[H, 1])(Subscript[N, 1])(Subscript[O, 3])⇌(Subscript[Zn, 1])(Subscript[N, 2])(Subscript[O, 6])+(Subscript[N, 1])(Subscript[O, 1])+(Subscript[H, 2])(Subscript[O, 1])""]\)

In the following example there are oxygen atoms on the left side but not the right side.

\(balance[\*""\!\(H\_2\)+\!\(O\_2\)⇌\!\(H\_2\)""]\)