Matrix multiplication: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) (add ooRexx) |
Walterpachl (talk | contribs) (→{{header|REXX}}: add Signal on Syntax) |
||
Line 5,639: | Line 5,639: | ||
=={{header|REXX}}== |
=={{header|REXX}}== |
||
<syntaxhighlight lang="rexx">/*REXX program calculates the Kronecker product of two arbitrary size matrices. */ |
<syntaxhighlight lang="rexx">/*REXX program calculates the Kronecker product of two arbitrary size matrices. */ |
||
Signal On syntax |
|||
x.=0 |
x.=0 |
||
amat=4X2 1 2 3 4 5 6 7 8 /* define A matrix size and elements */ |
amat=4X2 1 2 3 4 5 6 7 8 /* define A matrix size and elements */ |
||
Line 5,711: | Line 5,712: | ||
exit: |
exit: |
||
Say arg(1) |
Say arg(1) |
||
Exit |
|||
Syntax: |
|||
Say 'Syntax raised in line' sigl |
|||
Say sourceline(sigl) |
|||
Say 'rc='rc '('errortext(rc)')' |
|||
Say '***** There was a problem!' |
|||
Exit</syntaxhighlight> |
Exit</syntaxhighlight> |
||
{{out|output|text= when using the internal default input:}} |
{{out|output|text= when using the internal default input:}} |