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:
To Next Page
Loading...
