Any RPN, No regs, line given 2 points

[Bill Duncan]

Thought this might be useful for others. Use it either by itself or as a subroutine. I often use it with the HP-29c, but should work with any. Given 2 points it returns the slope in X, intercept in Y which is convenient for keying in another X for a linear estimate (just enter X, * and +).

Code:


LBL 0
x<>y
RDN
-
LASTx
x<>y
RDN
RDN
x<>y
-
LASTx
RDN
x<>y
/
ENTER
RDN
*
-
x<>y
RTN
GTO 0

As a trivial example, moving data. Say, I'd copied 100gb of data an hour ago, 150gb are currently copied; how long will it take to copy all 1000gb?

-1 enter 100 enter 0 enter 150 gsb 0
1000 * +
Answer, 17 more hours..