Main programsupplies values for variables
Nl,
N2, N3. Within the subroutine,
you can assign values to each element
of
the array using the INPUT statement.
660
FOf{
.\
_
..
1
TO
N3
670
PHINT
"PAGE";
1·\
6B0
FOR
I
-.
1
'ro
N1
690
pr~
I
NT
"INPUT
ROW";
I
700
FOR
J
_.
1
TO
N:~::
710
INPUT
A(
I,
,J1.II-\)
720
NEXT
J
7~30
NEXT
1
7i.0
PRINT:
NEX"I"
.\
7~50
I:~E:"I"UI:~N
Multiplication
by
a Single Variable: ScalarMultiplication
(3
Dimensional)
780
FOR
K - 1
TO
N3
790
FOR
J = 1
TO
N2
800
FOR
I = 1
TO
N1
810
B(I,J,K)
=
A(I,J,K)
* X
B20
NEXT
I
830
NEXT
J
840
NEXT
1·\
8~:)(2'J
RE::TURN
Multiplies each elementin MATRIX A by X and constructs matrix B
Transposition
of
a Matrix (2 Dimensional)
880
FOR
I = 1
TO
N1
890
FOR
J = 1
TO
N2
900
B(J,I)
=
A(I,J)
910
NEXT
J
920
NEXT
I
9:3G~
RE:TUI:<N
Transposes matrix A into matrix B
6/5
To Next Page
Loading...
