HP 49g+, Руководство пользователя, Страница: 312 / 862

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
: