; A hard equation for improving Mathomatic.
; Shows that the simplify command is not perfect.
P = (c - (r/((1 + f)^(t + 1))))*(1 - (1/((1 + f)^t)))/((1 + f)*f)