Directory of image this file is from
This file as a plain text file
4094 609@X2,@TT@,43)-Q 3 3840@D?7::>0?0??+???@=I; 1344J"SIM1 WILL SOLVE UP TO 15 SIMULTANEOUS LINEAR EQUATIONS."%@U@T"DATA SHOULD BE ENTERED IN THE FOLLOWING SEQUENCES:"%U@^%8"A11,A21,A31,...,AN1,A12,A22,A32,...,AN2,...," U@("B1,B2,B3,...,BN"%@U@-"NOTE THAT B1,B2,...,BN ARE EQUIV. TO A(1,N+1),A(2,N+1),...," @U@."A(N,N+1)."%@U@2%8"EACH VALUE IS CONSIDERED AS A SEPARATED DATA AND SHOULD"%@U@<"BE ENTERED ONLY AFTER THE MACHINE TYPED A '?'"%@UAF"TO LEAVE SIM1, TYPE 0 AS REPLY TO 'NUMBER OF EQUATIONS TO BE"%UAP"SOLVED?"%@UA$@UA.%8"NUMBER OF EQUATIONS TO BE SOLVED" 8TNQW@8PNQ@P?9(A@ZMRUA8PNQ@P?6AQNT8PNQ@P?6BQNWUBBP?6QNZPNTP'4@VD$PNZ@]E@8P?6QN]PNQP'4@VD0PN]@]D>8PN]@P?<C@PNZAR@ALW@8XN]8XNZUBD"CORRECTIONS" @8'&TN W@8&PN &@P?3(A@ZG@UBF"ENTER I,J,A(I,J) IN A SAME LINE AND SEPARATE THEM BY A COMA."%UBG"TO TERMINATE CORRECTIONS, TYPE '0,0,0' AS REPLY TO 'NEXT'."%UBH"I,J,A(I,J)" 8TN]TNZPN]@P?<C@PNZAR@ALW@8PN]@P?<C@PNZAR@AH@P?9(A@ZG@UBJ"NEXT" 8YFVUBLP?6QN PNWP'4@VGKPN @]J?8PN @P?6AQN&UBVPN QN]PNQP'4@VG^PN]@]G08PN]RM!PN]@P?<C@PN AR@AH)MI@8XN]UB P?9QN)@8PN RM!HQN,@UB*PN&QN]PNQP'4@VHFPN]@]H$8PN]RM!HPN,BQN/@8PN/@P?9(E@ZH!8PN]RM!HQN,@8PN]QN)@UB4XN]UB>PN)@P?9(A@ZI UCHPN QN]PNTP'4@VH7PN]@]I 8PN)@P?<C@PN]AR@AHQN2@8PN)@P?<C@PN]AR@APN @P?<C@PN]AR@AHI@8PN @P?<C@PN]AR@APN2I@8XN]UCRPN @P?6AQN5UC\PN5QN]PNQP'4@VI5PN]@]J=8PN5QNZPNTP'4@VJAPNZ@]J;UC&PN]@P?<C@PNZAR@APN]@P?<C@PNZAR@AHPN]P?<C@PN5A@P?6BR@AHPN5@P?6BP?<C@PNZAR@AHCPN5@P?6BP?<C@PN5A@P?6BR@AHDBI8XNZ8XN]8XN UC0PNQRL1PNQ@P?<C@PNTAR@AHPNQP?<C@PNQAR@AHDIUC:P?0QN5PNQP'4@VK PN5@]L28PNTPN5BQNZ@8PNZ@P?6AQN88PNZRL1P?9I@8PN8QN]PNQP'4@VK>PN]@]LV8PNZRL1PNZRL1HPNZP?<C@PN]AR@AHPN]RL1HCAI8XN]UDDPNZRL1PNZ@P?<C@PNTAR@AHPNZRL1HBPNZP?<C@PNZAR@AHDI8XN5UDNP?6QNZPNQP'4@VL=PNZ@]MN8%8"X" PNZ! "= " PNZRL1H! 8XNZ8%8%8YC.UD,OPT 0/0 0PL 0 0 1068P@ 3904------------ ----- ------------" 710PRINT 720FORI=1TOB 730M=0 740IFA(I)>=FTHEN850 750IFA(I)>=ETHEN770 760Y(0)=Y(0)+1 770FORJ=ETO(F-G)STEPG 780M=M+1 790IFA(I)>=JTHEN810 800GOTO830 810IFA(I)>=(J+G)THEN830 820Y(M)=Y(M)+1 830NEXTJ 840GOTO860 850Y(25)=Y(25)+1