HP 48gII - Manual (Page 316)

Page 10-16
„° @)BRCH! @)FOR@! @NEXT NEXT
„° @)BRCH! @)@IF@ @@IF@@ IF
~ „n #1 n 1
„° @)TEST! @@@>@@@ >
„° @)BRCH! @@IF@ @THEN THEN
1# 1
~ „n #1- n 1 -
„° @)BRCH! @)FOR@! @FOR@ FOR
~ „j # j
~ „j #1+ j 1 +
„° @)STACK! L @ROLL! ROLL
„° @)BRCH! @)FOR@! @NEXT! NEXT
„° @)BRCH! )@@IF@! @END@ END
~„n # n
„´ @)MATRX! @)COL! @COL! COL
` Program is displayed in level 1
To save the program:
³~~crmc~ K
Note: if you save this program in your HOME directory it will be available
from any other sub-directory you use.
To see the contents of the program use
J ‚@CRMC. The program listing is
the following:
« DUP → n « 1 SWAP FOR j OBJ → → ARRY IF j n < THEN j 1 +
ROLL END NEXT IF n 1 > THEN 1 n 1 - FOR j j 1 + ROLL
NEXT END n COL → » »
To use this program, in RPN mode, enter the n lists in the order that you want
them as columns of the matrix, enter the value of n, and press
@CRMC. As an
example, try the following exercise:
{1,2,3,4} ` {1,4,9,16} ` {1,8,27,64} ` 3 ` @CRMC
The following screen shots show the RPN stack before and after running
program
@CRMC: