Advertisement
MATHEMATICS AND GEOMETRY_]
360 FOR K=l TON
370
IF
K=I THEN 420
380 C=A<K,I>
390 FOR
J=l
TO
N:ACK,J>=ACK,J)-C*A<I,J>
400 NEXT J
410
B(K)=B<K>-C*B<I>
420 NEXT K
430 NEXT
I
440
CLS:LOCATE0,0:PRINT"****
Answer
**"'•-11-"
430
FOR I=1TO
N
460
LOCATE 1 , I : PR I NT R$ < I ) +"
=" ;
CSNG
(8 (
I ) )
470 NEXT I
480 ZS=INKEYS: IF
2$=""
THEN 480 ELSE IF Z'l;="E"
OR
Z$="e" THEN END
490 GOT020
500 END
510
CLS:LOCATE0,2:PRINT"
Answer cannot
be obtained
from tt1is dat,::,1.
1 1
"
520 GOTO 480
/DEBUG
I
Although this program can handle only a maximum of six variables due to space
limitations on the display screen, it can be modified such that it can solve simul-
taneous equations in as many variables as the memory capacity permits. This can
be done as follows:
(1) Declare as many A (I,
J)
and B {I) arrays as required using the DIM command.
(2) Change the variables associated with the screen display in the following lines:
- Lines 30 and 40 (create character expressions used for display)
- Line
110
(display general expressions)
- Lines
120
to
160
(input coefficients and constants)
- Lines 440 to 4~0 (display solutions)
In this case, change the character variable arrays accordingly.
When the number of variables involved in simultaneous equations is large, it will
not be possible to display all of the equations at one time on the display screen
of the
FP-200.
In this case, appropriate measures can be taken to display them in
several steps.
Advertisement
