Ayuda, pasar de matriz A tabla

hola, quisiera saber como pasar de una matiz y una tabla (para mostrar de una forma más elegante los resultados),
Ej
[[A 2 3]
[B 5 6]]
en la pantalla de la calculadora se veria de la siguiente forma
---------
A 2 3
---------
B 5 6
---------
gracias de antemano

Hola.

Puedes usar el siguiente código escrito en User RPL.

Código:


« AXL DUP SIZE # 83h # 1h BLANK DUP NEG SWAP GROBADD
  L N LINEA
  « LINEA 1. N
    FOR K L K GET STR 3. OVER SIZE 2. - SUB 2. GROB GROBADD LINEA GROBADD
    NEXT
    IF DUP SIZE NIP DUP # 48h <
    THEN # 48h SWAP - # 1h SWAP BLANK GROBADD
    ELSE DROP
    END SCROLL
  »
»

gracias por responder, y como sería con líneas verticales y horizontales

gracias, realmente estoy muy agradecido....

Puedes usar el siguiente código User RPL escrito en Debug 4x.

ENTRADA:
1: Matriz o arreglo de dos dimensiones.

Código:

«
PICT RCL      @ [[]] GBUFF
SWAP          @ GBUFF [[]]
DUP            @ GBUFF [[]] [[]]
SIZE EVAL      @ GBUFF [[]] NF NC
PICK3 STR    @ GBUFF [[]] NF NC ""
-70. SF
2. GROB      @ GBUFF [[]] NF NC GROB
SIZE          @ GBUFF [[]] NF NC #W #H
DUP 5. PICK    @ GBUFF [[]] NF NC #W #H #H NF
/              @ GBUFF [[]] NF NC #W #H #H/NF
2. +          @ GBUFF [[]] NF NC #W #H #H/NF+2
#0 DUP
 PICTP M NF NC W H HFILA X WC
« 1024. RB      @ #W'
 DUP 'W' STO      @ #W'
 H NF 2. * + 1. + @ #W' #H'
 DUP 'H' STO      @ #W' #H'
 BLANK            @ GROB
 PICT            @ GROB PICT
 STO              @
 { #0 #0 } PVIEW  @
 1. NC FOR C
  0.        @ WC
  1. NF FOR F
    M        @ WC [[]]
    F C      @ WC [[]] F C
    2. LIST @ WC [[]] {F C}
    GET      @ WC OB
    STR    @ WC ""
    DUP      @ WC "" ""
    SIZE    @ WC "" L
    ROT      @ "" L WC
    MAX      @ "" L'
    SWAP    @ WC' ""
    2. GROB @ WC' GROB
    PICT    @ WC' GROB PICT
    X
    F 1. -
    HFILA *
    2. +
    2. LIST @ WC' GROB PICT {#X #Y}
    ROT      @ WC' PICT {#X #Y} GROB
    REPL    @ WC'
  NEXT
  RB                @ #WC
  6. *
  X  +
  2. +              @ #
  'X' STO            @
  X 2. - #0 2. LIST @ {#X1 #Y1}
  X 2. - H  2. LIST @ {#X1 #Y1} {#X2 #Y2}
  LINE              @
 NEXT
 CLLCD                  @
 TEXT                  @
 PICT                  @ PICT
 {#0 #0}                @ PICT {#0 #0}
 X 3. - H 1. - 2. LIST @ PICT {#0 #0} {# #'}
 SUB                    @ GROB
 PICT STO              @
 { #0 #0 } PVIEW        @
 #0 NF RB FOR F
  #0 F HFILA * 2. LIST @ {#X1 #Y1}
  X  F HFILA * 2. LIST @ {#X1 #Y1} {#X2 #Y2}
  LINE                  @
 NEXT
 {} PVIEW @
 PICTP    @ GROB
 PICT    @ GROB PICT
 STO      @
»
»