Matrix multiplication: Difference between revisions
Content added Content deleted
m (→{{header|C}}) |
(Applesoft BASIC) |
||
Line 1,002: | Line 1,002: | ||
END IF</lang> |
END IF</lang> |
||
===Applesoft BASIC=== |
|||
<lang gwbasic> 0 FOR K = 0 TO 1:M = O:N = P: READ O,P: IF K THEN DIM B(O,P): IF N < > O THEN PRINT "INVALID DIMENSIONS": STOP |
|||
1 IF NOT K THEN DIM A(O,P) |
|||
2 FOR I = 1 TO O: FOR J = 1 TO P: IF K THEN READ B(I,J) |
|||
3 IF NOT K THEN READ A(I,J) |
|||
4 NEXT J,I,K: DIM AB(M,P): FOR I = 1 TO M: FOR J = 1 TO P: FOR K = 1 TO N:AB(I,J) = AB(I,J) + (A(I,K) * B(K,J)): NEXT K,J,I: FOR I = 1 TO M: FOR J = 1 TO P: PRINT MID$ (S$,1 + (J = 1),1)AB(I,J);:S$ = " " + CHR$ (13): NEXT J,I |
|||
10 DATA4,2 |
|||
11 DATA1,2,3,4,5,6,7,8 |
|||
20 DATA2,3 |
|||
21 DATA1,2,3,4,5,6</lang> |
|||
===Full BASIC=== |
===Full BASIC=== |
||
{{works with|Full BASIC}} |
{{works with|Full BASIC}} |