1 REM ::: SOLVE A SYSTEM OF LINEAR EQUATIONS 2 REM ::: A1*X1 + A2*X2 = B1 3 REM ::: A3*X1 + A4*X2 = B2 4 REM -------------------------------------- 10 READ A1, A2, A3, A4 15 LET D = A1 * A4 - A3 * A2 20 IF D = 0 THEN 65 30 READ B1, B2 37 LET X1 = (B1*A4 - B2*A2) / D 42 LET X2 = (A1*B2 - A3*B1) / D 55 PRINT X1, X2 60 GOTO 30 65 PRINT "NO UNIQUE SOLUTION" 70 DATA 1, 2, 4 80 DATA 2, -7, 5 85 DATA 1, 3, 4, -7 90 END
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| README | File | 2.45 KB | 0644 |
|
| basic.py | File | 1.5 KB | 0644 |
|
| basiclex.py | File | 1.15 KB | 0644 |
|
| basiclog.py | File | 1.65 KB | 0644 |
|
| basinterp.py | File | 16.88 KB | 0644 |
|
| basparse.py | File | 8.69 KB | 0644 |
|
| dim.bas | File | 224 B | 0644 |
|
| func.bas | File | 73 B | 0644 |
|
| gcd.bas | File | 359 B | 0644 |
|
| gosub.bas | File | 216 B | 0644 |
|
| hello.bas | File | 57 B | 0644 |
|
| linear.bas | File | 420 B | 0644 |
|
| maxsin.bas | File | 217 B | 0644 |
|
| powers.bas | File | 268 B | 0644 |
|
| rand.bas | File | 60 B | 0644 |
|
| sales.bas | File | 375 B | 0644 |
|
| sears.bas | File | 481 B | 0644 |
|
| sqrt1.bas | File | 78 B | 0644 |
|
| sqrt2.bas | File | 56 B | 0644 |
|