Anonymous user
Identity matrix: Difference between revisions
→{{header|Applesoft BASIC}}
SqrtNegInf (talk | contribs) (→{{header|Perl}}: simpler and shorter) |
|||
Line 541:
<lang applescript>{{1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}}</lang>
=={{header|
==={{header|Applesoft BASIC}}===
<lang Applesoft BASIC>
100 INPUT "MATRIX SIZE:"; SIZE%
Line 559 ⟶ 560:
250 RETURN :IM
</lang>
==={{header|Commodore BASIC}}===
{{trans|Applesoft BASIC}}
{{works with|Commodore BASIC|2.0}}
<lang GWBASIC>100 INPUT "MATRIX SIZE:"; SIZE%
110 GOSUB 200: REM IDENTITYMATRIX
120 FOR R = 0 TO SIZE%
130 FOR C = 0 TO SIZE%
140 LET S$ = CHR$(13)
150 IF C < SIZE% THEN S$ = ""
160 PRINT IM(R, C) S$;
170 NEXT C, R
180 END
190 REM *******************************
200 REM IDENTITYMATRIX SIZE%
210 SIZE% = SIZE% - 1
220 DIM IM(SIZE%, SIZE%)
230 FOR I = 0 TO SIZE%
240 IM(I, I) = 1
250 NEXT I
260 RETURN</lang>
=={{header|ATS}}==
| |||