cS = 0.2 (slider from -5 to 5)
VS: 50
cB = 0.1 (slider from -5 to 5)
kW: 10^(-14)
cH(VB) = ((-((cB * VB) - (cS * VS)))) / ((2 * (VS + VB))) + sqrt((((cB * VB) - (cS * VS)) / ((2 * (VS + VB))))^(2) + kW)
pH(VB) = (-lg(cH(VB)))
pHS(VB) = (-log(10, ((cS * VS) - (cB * VB)) / (VS + VB)))
pHB(VB) = 14 + log(10, ((cB * VB) - (cS * VS)) / (VS + VB))
f(VB) = If[0 ≤ VB ≤ 200, pHS(VB)]
v(VB) = If[0 ≤ VB ≤ 200, pH(VB)]