hp42s-rpn/split

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