rSIMULTANEOUS EQUATIONS
OF
THE
FIRST
DEGREE--------------
[Q[IJ~[IJ
10
CLEAR:DEFDBLA-C
20
CLS:
PRINT"**
Si
mul
taneour,;
"
30
PRINT"
1
inear
equatious
-tHi-"
1260
llytcs
40
INPUT"Number
of
variatJles
==";N:IF
N>6
THEN
4
0
50
FOR
I=l
TO
N+1:P$(I>=CHRS(I+64):Q$Cil=CHRS(I+
48)
:R$(I)="X"+Q$(I)
:NEXT I
60
FOR
I=l
TO
N:S$=
1111
70
FOR
J=1
TON
80
S$=S$+P$(J)+Q$(I)+R$(J)+"+"
90
NEXT
J
100
T$=LEFT$
<
S$,
5*N·-1
)
+"
= "+F'$ <
N+
1 ) +Q$ < I >
110
CLS
120
LOCATE
0,0:PRINTT$
130
FOR
J=l
TON
140
U$=P$(J)+Q$(I)+"="
150
LOCATE
0,J+l:PRINT
U$;:INPUT"",A(I,J)
160
NEXT
J
170
LOCATE10,
2:
PRINT
P$
CN+l)
+Q$
<I)+"=";:
INPUT"",
B
(
I)
180
LOCATE11,4:PRINT"ok
?"
190
LOCATE10,5:PRINT"yes:anykey"
200
LOCATE10,6:PRINT"no
:CNJ"
210
Z$=INKEY$:IF
Z$=""THEN
210
ELSE
IFZ$="N"
OR
Z
$="n"
THEN
7121
220
NEXT
I
230
CLS:PRINT"Being
computed"
240
I
25121
FOR
I=l
TON
260
J==I
270
IF
A(I,J><>0
THEN
320
280
J=J+l:IF
J>N
THEN
510
290
IF
A(I,J)=0
THEN
270
300
FOR
K=l
TO
N:C=A<I,K>:A<I,K>=A<J,K):A<J,K)=C:
NEXT
K
310.
C=B <
I)
: B ( I ) =B (
J)
: B ( J ) =C
320
C=A<I,I>
330
IF
C=0
THEN
510
340
FOR
J=1
TO
N:A(I,J)=A<I,J)/C:NEXT
J
350
B<I>=BCI)/C
To Next Page
Loading...
