Identity matrix: Difference between revisions

Content added Content deleted

Inline

@@ Line 541: / 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|Applesoft BASIC}}==
+=={{header|BASIC}}==
+==={{header|Applesoft BASIC}}===
 <lang Applesoft BASIC>
 INPUT "MATRIX SIZE:"; SIZE%
@@ Line 559: / Line 560: @@
 RETURN :IM
 </lang>
+==={{header|Commodore BASIC}}===
+{{trans|Applesoft BASIC}}
+{{works with|Commodore BASIC|2.0}}
+<lang GWBASIC>100 INPUT "MATRIX SIZE:"; SIZE%
+GOSUB 200: REM IDENTITYMATRIX
+FOR R = 0 TO SIZE%
+FOR C = 0 TO SIZE%
+LET S$ = CHR$(13)
+IF C < SIZE% THEN S$ = ""
+PRINT IM(R, C) S$;
+NEXT C, R
+END
+REM *******************************
+REM IDENTITYMATRIX SIZE%
+SIZE% = SIZE% - 1
+DIM IM(SIZE%, SIZE%)
+FOR I = 0 TO SIZE%
+IM(I, I) = 1
+NEXT I
+RETURN</lang>
 =={{header|ATS}}==