PI3O2_L
x = p - PI3O2_L;
w = (z * x) * (PP1 + z * PP2) - PI3O2_L;
* (P3 + z * P4)) - PI3O2_L;
w = PoS(x, z) - PI3O2_L;
w = PoL(x, z) - PI3O2_L;