WP 31S/34S: H.MS+/H.MS- anomaly?

[Claudio L.]

(07-24-2015 11:59 AM)Werner Wrote:  The 41C code is mine, but the formula is John's.
From an old post on comp.sys.hp48:

->HMS

Program: \<< DUP FP .4 * - DUP 100. * FP .004 * - \>>

Formula: H.MS=H.-FP(H.)*.4-FP((H.-FP(H.)*.4)*100)*.004


HMS->

Program: \<< DUP 100. * FP 150. / + DUP FP 1.5 / + \>>

Formula: H.=H.MS+FP(H.MS*100)/150+FP(H.MS+FP(H.MS*100)/150)/1.5

Cheers, Werner

This is great! No rounding, no problems with negatives, handles any input (like 1h 65').
newRPL has found its HMS commands implementation. Thanks! (to both John for the original post, and you for refreshing our memories).