Casio FP-200 - Page 108

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.
111