Finance problems (TVM) on hp 49G+ hp 50G Periods and compounds per year are different

[Gil]

Just changed the case when no payment increase/Growth

(IG%Y=0 or #Yrs of payments Growth, YG, =0).

Instead of writing
IF
THEN YTOT 'YG' STO 1. 'rg' STO
END

I put now
IF
THEN 1 'YG' STO 1. 'rg' STO 0 'IG%Y' STO
END

Code:


\<<
  \<< YTOT I%Y + C.Y + P.Y + YG + IG%Y + PV + FV + END10 + DUP - I%Y 100. / C.Y / 1. + C.Y ^ P.Y INV \->NUM ^ DUP INV IG%Y 100. / 1. + \-> r v rg
    \<< YG IG%Y * 0. ==
      IF
      THEN 1 'YG' STO 0 'IG%Y' STO 1. 'rg' STO
      END PV + FV v P.Y ^ YTOT ^ * + 1. v P.Y ^ - r 1. - / 0. 0. YG 1. -
      FOR j rg r P.Y ^ / j ^ +
      NEXT * 1. v YTOT YG - P.Y * ^ - r 1. - / rg r P.Y ^ / YG ^ * + END10 1. == 1. r IFTE * P1 * + P1 rg YG ^ * 'P.CST' STO
    \>>
  \>> STEQ 30. MENU
\>>