1
0
Fork 0
hp42s-rpn/split
2019-02-05 20:33:55 +01:00
..
README.md first commit 2019-02-05 20:33:55 +01:00
split.raw first commit 2019-02-05 20:33:55 +01:00
split.txt first commit 2019-02-05 20:33:55 +01:00

SPLIT - Split expenditures among people

Several people of a group had different expenses. The expenditures shall be shared among the whole group.

Usage

  • Create a 1xN matrix where N is the number of people.
  • Enter the expenses into the matrix.
  • Execute this program.
  • Z will conatin the sum.
  • Y will contain amount per person.
  • X will contain a matrix with the compensation cashflow.

Annotation

LBL "SPLIT"
STO "m"
RSUM        ─┐ Store the sum of the whole row
DET          │ It is returned as a 1x1 matrix, the DET will be a scalar
STO 01      ─┘
RCL "m"
DIM?           The X-DIM of the matrix is the number of elements, DIM? returns into X, Y
RCL 01      ─┐
X<>Y         │ Sum / number = amount per person
÷           ─┘
STO 02         Store the amount per person
RCL 01         RCL the Sum to have it in Z later on
X<>Y           Get the amount per person back into X (Could also be RCL 02)
RCL "m"     ─┐
X<>Y         │ Matrix - amount p.p. = matrix with comp. cashflow
-           ─┘
RCL 02      ─┐ Put the amount p.p. into Y
X<>Y        ─┘
END