Sorry, my mathematica skills are rusty. p is on both sides of the following equation. How do you solve the following equation for p in mathematica?
p = (z((n+y-fp)/(1-t))-v)/h
Reduce[p == (z ((x + y - f*p)/(1 - t)) - v)/h, p]
Thanks Bill! You're awesome!