HP Forums
(newRPL) Matrix menu and help text - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (newRPL) Matrix menu and help text (/thread-20373.html)



(newRPL) Matrix menu and help text - Gilles - 08-23-2023 08:28 PM

This program allows you to assign matrix commands to the LeftShift 5 key. The menus and submenus are structured very similar to standard HP50g. Help is available for each command with a long press on the corresponding key.

To install the program, copy the all text below onto the stack of the newRPL device and then
STR-> and EVAL.

Code:
@ ===============================================================
@  Menu, submenus and help definition for MATRICE commands
@ ===============================================================

@ Begin of the program to assign the procedure on LeftShift 5
«

@ Begin of the program to run when LeftShift 5 is pressed
«

@------------------------------------- Begin main menu définition
{

@------------------------------------------ Begin create submenu
{ { "Create" 1 }  « {

@---------------------------------------- Begin column subsubmenu
{ { "Column" 1 }  « {

{ "→COL" →COL
"Transform matrix to columns 
or vectors to elements
M → V1...Vn I<n>" }

{ "COL→" COL→
"Columns to matrix command
or elements to vectors
V1 Vn I<n> → M" }

{ "COL+" COL+
"Insert column (V or M) in a matrix
M V I<index> → M
V O I<index> → M" }

{ "COL-" COL-
"Remove a columns in a M (or V)
and returns the two
M (or V) I → M (or V) V (or O)" }

{ "CSWP" CSWP
"Column Swap Command :  swap column
i and j of matrix or vector
M (or V) I<i> I<i> → M (or V)" }

} TMENULST » "" } 
@------------------------------------------ End column subsubmenu

@------------------------------------------- Begin row subsubmenu
{ { "Row" 1 }  « {

{ "→ROW" →ROW
"Matrix to rows. Tansform a matrix
in vectors (or vectors to elmts)
M (or V) → V1...Vn (or O) I<n>" }

{ "ROW→" ROW→
"Row to matrix. Transform rows vectors
to matrix  (or elements to vector)
V1..Vn I<n>  → M" }

{ "ROW+" ROW+
"insert row vector in a matrix
or element in vector
M1 M2 I<index>  → M >" }

{ "ROW-" ROW-
"Delete row n from matrix or 
elmt in vector. Return the 2
M(or V) I<n>→M(or V) V(or O)" }

{ "RCI" RCI
"Multiply by <x> the row <n> 
of a matrix M
M R<x> I<n> → M" }

{ "RCIJ" RCIJ
"Add multiply row i by x and 
adds the product to row j
M R<x> I<i> I<j> → M" }

{ "RSWP" RSWP
"Row swap row i with row j
of the matrix M
M I<i> I<j> → M" }

} TMENULST » "Row" } 

@--------------------------------------------- End row subsubmenu

{ "IDN" IDN
"Identity matrix : create or modify
square n matrix with diag=1, others=0 
I<n>(or M) > → M" }

{ "CON" CON
"Creates a matrix M or vector V 
of dim L {a b} with value n
L<a b> R<v> → M" }

{ "→DIAG" →DIAG
"Matrix diagonal to vector
 
M → V" }

{ "DIAG→" DIAG→
"Vector to matrix diagonal
of dimension {i j}
V L<ij> → M" }

{ "HILBERT" HILBERT
"Returns a square Hilbert matrix
of the specified order
I → M" }

{ "RANM" RANM
"Random matrix of size L{ i j }
and elmts from -9 to  9
L<ij>(or M) → M" }

{ "RDM" →RDM
"Redim matrix M or vector V in
size L { i j }
M (or V or A)) L → M" }

} TMENULST » "Commands to create matrices" } 

@ -------------------------------------------- End Create submenu

@ -------------------------------------- Begin Operations submenu
{ { "Operations" 1 } « { 

{ "MMAP" MMAP 
"Applies a program to each 
element of a matrix or vector
M (or V) P → M (or V)" }

{ "ABS" ABS 
"returns the Frobenius (Euclidean) 
norm of the matrix M or vector V
M (or V) → R" }

{ "AXL" AXL 
"Toggles from array to list
and from list to array
M(or V or L) → L(or M or V)" }

{ "CNRM" CNRM
"Column norm : returns the column
norm of the array argument
V (or M) → R" }

{ "COND" COND
"Condition number command. Returns
the 1-norm cond number of sq matrix
M → R" }

{ "DET" DET
"Returns the determinant of 
a square matrix M
M → R" }

{ "HADAMARD" HADAMARD
"Elmt by elmt multiplication of
two matrix
M M → M" }

{ "RANK" RANK
"Rank of a rectangular matrix

M → R" }

{ "RNRM" RNRM
"Row norm of its argument array
For a vector, returns the max value
M (or V) → R" }

{ "RSD" RSD
"Residual command : compute the
residual B-AZ
M<B> M<A> M<Z> → M" }

{ "SIZE" SIZE
"Size of the matrix or vector

M (or V) → L<i j> or L<i>" }

{ "TRACE" TRACE
"Trace of square matrix wich is
the sum of its diagonal elements
M → R" }

{ "TRAN" TRAN
"Transpose matrix

M(or A) → M(or nothing)" }

{ "CHOLESKY" CHOLESKY
"Cholesky factorisation of a 
matrix
M → M" }

} TMENULST » "Operations on matrix" }

@ -------------------------------------------- End Oper submenu

@ ----------------------------------Begin Linear application  submenu
{ { "Linear application" 1 } « { 

{ "IMAGE" IMAGE 
"Computes basis of the image (range)
of a linear application 
M → M" }

{ "KER" KER 
"Basis of the kernel (nullspace)
of a linear application
M → L<m>" }

{ "PMINI" PMINI
"Minimal polymonial of a matrix
Returns polymonial as vector
M → V" }

{ "REF" REF
"Reduce matrix to echelon form
Uses Bareiss algorithm
M → M" }

{ "LU" LU
"LU decomposition of a square
matrix.P*A=L*U
M<a> → M<l> M<u> M<p>" }

} TMENULST » 
"Linear application" }
@ ------------------------------------------ End Linear app submenu

@ -------------------------------------------- Begin Vector submenu
{ { "Vector" 1 } « { 

{ "BASIS" BASIS 
"Basis of a sub-space of |Rn

L<v> → L<v>" }

{ "IBASIS" IBASIS
"Basis of the intersection between
two vector spaces
L<v> → V" }

{ "CROSS" CROSS 
"Cross product of vectors

V V → V" }

{ "DOT" DOT
"Dot product of vectors

V V → V" }

{ "→V2" →V2
"convert 2 numbers in a 2D vector

R R → V" }

{ "→V3" →V3
"convert 3 numbers in a 3D vector

R R R → V" }

{ "→POLAR" →POLAR
"Rectangular to polar coord

V → V" }

{ "→SPHER" →SPHER
"Rectangular to spheric coord

V → V" }

{ "→RECT" →RECT
"Polar or spheric to rect

V → V" }

} TMENULST » 
"" }
@ -------------------------------------------- End Vector submenu

@ ----------------------------------------- Begin Element submenu
{ { "Elements" 1 } « { 

{ "GET" GET 
"Get element z in vector or 
matrix with is position
M (or V) L<n1..ni>(or I<n>) → O<z>" }

{ "GETI" GETI
"Get and increment index command

M (or V) L(or I) → O<z> L(or I)next" }

{ "PUT" PUT 
"Put element at a specified position
in matrix etc and increment index ...
M L(or I) → M" }

{ "PUTI" PUTI
"Put element at a specified position
in matrix, vector, list, var ...
M L(or I) → M L(or I)next" }

} TMENULST » 
"" }
@ ----------------------------------------- End Element submenu

@ ------------------------------------------------- End main menu
} TMENU »       @ End of program to run when press user key LeftShift 5

"5.L"   @ User key is LeftShift 5
0       @ Works in all contexts 
ASNKEY  @ Assign the key

»


NOTA :
- AXL is very interesting to toggle list <-> matrix or vectors like standart HP50g
- You can use algebraic approch to manipulate matrix or vectors :
Code:

 [ 11 12 ] 
 [ 21 22] 

'M' STO

'M(1,2)' NUM-> 12

99 'M(1,2)' STO

M
=>

  [ 11 99 ] 
  [ 21 22 ] 
]