14479Sbinkertn@umich.edu1 REM ::: SOLVE A SYSTEM OF LINEAR EQUATIONS 24479Sbinkertn@umich.edu2 REM ::: A1*X1 + A2*X2 = B1 34479Sbinkertn@umich.edu3 REM ::: A3*X1 + A4*X2 = B2 44479Sbinkertn@umich.edu4 REM -------------------------------------- 54479Sbinkertn@umich.edu10 READ A1, A2, A3, A4 64479Sbinkertn@umich.edu15 LET D = A1 * A4 - A3 * A2 74479Sbinkertn@umich.edu20 IF D = 0 THEN 65 84479Sbinkertn@umich.edu30 READ B1, B2 94479Sbinkertn@umich.edu37 LET X1 = (B1*A4 - B2*A2) / D 104479Sbinkertn@umich.edu42 LET X2 = (A1*B2 - A3*B1) / D 114479Sbinkertn@umich.edu55 PRINT X1, X2 124479Sbinkertn@umich.edu60 GOTO 30 134479Sbinkertn@umich.edu65 PRINT "NO UNIQUE SOLUTION" 144479Sbinkertn@umich.edu70 DATA 1, 2, 4 154479Sbinkertn@umich.edu80 DATA 2, -7, 5 164479Sbinkertn@umich.edu85 DATA 1, 3, 4, -7 174479Sbinkertn@umich.edu90 END 18