Sharp PC-1500 Applications Manual page 38

All and more about Sharp PC-1500 at http:/lwww.PC-1 500.info
PROGRAM PROGRAM NO.
3
T
I
T LE
INVERSE MATRIX
PS-A- II
[ Program
List
I
I
Memory Contents
I
10: '"A'" :CLEAR :
265: FOR 1=0 f0 N
WA IT 0
270: IF
l =MTHEN 290
A
20:CLS : l NPU f
"N=
275: Q=A<
J,
M)
B
'"; N: N=N-1
277: FOR J=0TO N
30: 0JM A<N,N )
280: A(J,J>=A(!,J ) -
c
40:FOR 1=0TO N
Ql<A<M,J)
D
50:FOR J =0 TO N 285: NEX T
J
60 :A$="A( "+STRS
(
290 :NEXT I : NEXT M
E
Correction data
1+1) -t", "+STRS
295:FOR
J=0 TO N
F
<J+l
) + '') = ..
300: A< J,
!
>=A < I, I)-
65 : PRINT A$;
I
G
70: INPUT
A< !, J>:
3J0 :NEX T I
CLS
320:GOSU8
550:EN O
H
80:NEXT J
500:FOR 1=0T O N
I
120:NEXT
I: ENO
S l0:FOR J=0T0 N
130: ' " B":FOR
1=0 TO
520 :A$="A<'• STR$ ( J
..;
I
N
l+I>+", " +STR$
..;
140:FOR J =0TO N
<J .. -)
) + ")="
K
150 :AS="A <" +STR$
(
530: LPRIN T
A$;A <
J,
L
[ 41)+ ", •+ST R$
J)
v
CJ+l>+
0
>= "
540:NEXT J: NEXT
I :
M
160 :CLS
:PRINT
0 $ ;
RETURN
N
No. of the order
A< J, J >;
550:BEEP
I: FOR
1 .. 0
165: CURSOR
!5
TO N
0
170: INPUT
E: A<J , Jl
560 : FOR
J =0TO N
..;
=E
5/0 :A$=" C<"•STR$
(
p
180:N£X T J
1+1)+", "+STR$
0
v
200:NEXT l : END
CJ +l) ·t- '')e "
2 J0:"C " !GOSU8
500:
580:LPRJNT
A$; A< I,
R
FOR
1=0TO N
J)
220:A(J , ll =A<J, I ) +
590:NEXT
J:
NEXT
I :
s
I: NEX T
I
RETURN
T
230:FOR M =0TO N
900!LPRINT "ERROR "
240:P=A<M,M) - 1
:END
u
245: IF P=0THEN 900
250: FOR J =0 T O N
v
260: A<M, J l=A <M , J)/
w
?: NEXT J
STATUS
I
x
735
y
z
A$
Input message
AIN.Nl
Input
data
Do not sale this PDF !!!
- 32 -