17 lines
489 B
Rexx
17 lines
489 B
Rexx
/* REXX ***************************************************************
|
|
* show identity matrix of size n
|
|
* I consider m.i.j to represent the matrix (not needed for showing)
|
|
* 06.07.2012 Walter Pachl
|
|
**********************************************************************/
|
|
Parse Arg n
|
|
Say 'Identity Matrix of size' n '(m.i.j IS the Matrix)'
|
|
m.=0
|
|
Do i=1 To n
|
|
ol=''
|
|
Do j=1 To n
|
|
m.i.j=(i=j)
|
|
ol=ol''format(m.i.j,2) /* or ol=ol (i=j) */
|
|
End
|
|
Say ol
|
|
End
|