REM
CLS
OPEN "outsimp.txt" FOR OUTPUT AS #1
PRINT "Simple Simplex"
PRINT "Simpsim1.bas"
PRINT "Peter Lohmander 090922"
PRINT #1, "Simple Simplex"
PRINT #1, "Simpsim1.bas"
PRINT #1, "Peter Lohmander 090922"

REM

mmax = 6
nmax = 11
DIM A(11, 11)

FOR m = 1 TO mmax
FOR n = 1 TO nmax
A(m, n) = 0
NEXT n
NEXT m

REM
REM Initial simplex table
REM

A(1, 1) = -100
A(1, 2) = -150
A(1, 3) = -30
A(1, 4) = -20
A(1, 5) = -40
A(2, 1) = 1
A(2, 6) = 1
A(2, 11) = 30
A(3, 2) = 1
A(3, 7) = 1
A(3, 11) = 20
A(4, 1) = 1
A(4, 2) = 1
A(4, 8) = 1
A(4, 11) = 40
A(5, 1) = -2
A(5, 3) = -1
A(5, 5) = -1
A(5, 9) = 1
A(5, 11) = -100
A(6, 2) = -3
A(6, 4) = -1
A(6, 5) = -1
A(6, 10) = 1
A(6, 11) = -150

1 REM
PRINT ""
PRINT "Simplex Table = "
PRINT ""
PRINT #1, ""
PRINT #1, "Simplex Table = "
PRINT #1, ""






FOR m = 1 TO mmax
FOR n = 1 TO nmax
PRINT USING "#####.#"; A(m, n);
PRINT #1, USING "#####.#"; A(m, n);
NEXT n
PRINT ""
PRINT #1, ""
NEXT m

PRINT ""
INPUT "Have you reached the final table (No = 0, Yes = 1) ", slut
IF slut = 1 THEN GOTO 55
INPUT "Please select column!", L
PRINT "Column = "; L
PRINT #1, "Column = "; L

INPUT "Please select row!", k
PRINT "Row = "; k
PRINT #1, "Row = "; k

divi = A(k, L)
PRINT "Value = "; divi
PRINT #1, "Value = "; divi

FOR n = 1 TO nmax
A(k, n) = A(k, n) / divi
NEXT n

FOR m = 1 TO mmax
IF m = k THEN 10
TAL = A(m, L)

FOR n = 1 TO nmax
A(m, n) = A(m, n) - TAL * A(k, n)
NEXT n

10 REM
NEXT m

GOTO 1

55 REM
CLOSE #1

END