~ „j #
~ „j #1+
„°
L
@) S TACK!
@ROLL!
„°
@) B RCH! @) F OR@! @NEXT!
„°
@) B RCH! ) @ @IF@! @END@
~„n #
„´
@) M ATRX! @) C OL! @COL!
`
Zo slaat u het programma op:
Opmerking: als u dit programma in uw HOME directory bewaart, zal het
vanuit elke andere subdirectory toegankelijk zijn.
voer om de inhoud van het programma te bekijken het volgende in J ‚@CRMC.
De programmalijst is de volgende:
« DUP
1 SWAP FOR j OBJ
n «
→
ROLL END NEXT IF n 1 > THEN 1 n 1 - FOR j j 1 + ROLL
NEXT END n COL
→
Voor het gebruik van dit programma in de RPN-modus voert u de n lijsten in
in de gewenste volgorde in kolommen van de matrix in, voert u de n waarde
in en vervolgens @CRMC. Probeer de volgende oefening als voorbeeld:
{1,2,3,4} ` {1,4,9,16} ` {1,8,27,64} ` 3 ` @CRMC
De volgende beeldschermen laten het RPN-stapelgeheugen zien voor en na
het gebruik van programma @CRMC:
Voer @CRMC in gevolgd door haken („Ü) voor het gebruik van het
programma in de ALG-modus. Voer tussen haakjes de gegevenslijsten met de
kolommen van de matrix gescheiden door komma's en tenslotte een komma
en het aantal kolommen. Het commando zou er als volgt uit moeten zien:
CRMC({1,2,3,4}, {1,4,9,16}, {1,8,27,64}, 3)
j
j 1 +
ROLL
NEXT
END
n
COL
Programma staat op niveau 1
³~~crmc~ K
ARRY IF j n < THEN j 1 +
→ →
» »
Blz. 10-17