Sharp PC-1500 - Page 38

All and more about Sharp PC - 150 0 at http:/lwww. PC-1 500 .in fo
PROGRAM
PROGRAM NO .
3
T
I
T LE
INVERSE MATRIX
PS-A - II
[ Program List I
I
Memory Contents I
10: '"A'" :CL EAR :
265: FOR
1= 0 f0 N
WA IT 0
27 0: IF
l=
MTHEN 290
A
20:CLS
: l N PU f "N=
275: Q=A< J, M)
B
'"; N: N=N-1
277: FOR J=0TO N
30: 0JM A <N,N )
28 0: A (J,J>=A(!,J )- c
40:FOR 1=0TO N
Ql<A<M,J)
D
50:FO R J =0TO N 28 5: N EX 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 ) + '') = ..
3 00: A< J, ! > =A < I, I)-
65 :PRINT
A$;
I G
7 0: I NPU T
A< !, J>:
3J0 :N EX T I
CLS
320:GO SU8
550:E NO
H
80:NE XT J
500:FOR
1=
0T O N
I
120:NEXT
I: EN O
Sl0:FOR J=0T0
N
1
30: '" B":FOR
1=0TO
52 0: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)+ ", •+STR$
J)
v
CJ+l>+
0
>= "
540:NEXT
J: NE XT
I :
M
160:CLS
:P RINT
0 $ ;
RETURN
N No . of the order
A< J, J >;
550:BEEP
I: FOR
1 .. 0
165: CURSOR
!5
TO N
0
17 0: I NP UT
E: A<J , Jl
560 : F OR
J =0TO N
..;
=E
5/0 :A$ =" C<"• STR$
(
p
180:N£XT J
1+ 1)+", "+ STR$
0 v
200:NEXT
l :
END
CJ +l) · t- '')e "
2 J0:"C "!G OSU8
500:
58 0:L PRJNT
A$; A< I,
R
FOR 1=0TO
N
J)
220 :A(J , ll =A<J, I)+
5 90:NEXT
J: N EXT
I :
s
I: NEX T
I
R ET U RN
T
230:FOR
M =0 TO N
900!LPRINT "E RROR "
240:P = A<M,M) - 1
:E ND
u
2 45: IF P= 0THEN 90 0
250: FOR J =0TO N
v
260: A<M , J l=A <M , J)/
w
?: NEXT J
STATUS I
x
735 y
z
A$ Input message
AIN.Nl Inp ut data
Do not sale this PDF !!!
- 32 -