**TI92P*chemorkRhydroxidý¥Z£() Prgm Local h,m,o,p,r setMode("Exact/Approx","APPROXIMATE") Dialog Title "Calculating pH with Hydroxide Ions" Request "Mole Value",m Request "Hydroxide Ratio",r EndDlog if ok=0 goto prge expr(m)m expr(r)r m*ro 1.•­14/oh ­log(h)p Dialog Title "Calculating pH with Hydroxide Ions" Text "[H3O]="&string(h) Text "[OH]="&string(o) Text "pH="&string(p) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgmäåÜ4ˆ