19 lines
391 B
Text
19 lines
391 B
Text
#include <jambo.h>
|
|
|
|
Main
|
|
Dim( 10,10 ) as eyes 'UMatrix'
|
|
|
|
Printnl ' "UNIT MATRIX:\n", UMatrix '
|
|
|
|
/* Classical method */
|
|
|
|
Dim (10,10) as zeros (ZM)
|
|
i=1
|
|
Iterator ( ++i, #(i<=10), #( ZM[i,i]=1 ) )
|
|
Printnl ' "UNIT MATRIX:\n", ZM '
|
|
|
|
/* unit matrix non square*/
|
|
Dim ( 5,8 ) as eyes 'rare unit matrix'
|
|
|
|
Printnl ' "RARE UNIT MATRIX:\n", rare unit matrix '
|
|
End
|