home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / SIMPLEXD.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  1.3 KB  |  59 lines
  1.  
  2.       !!!!    PROGRAM DemoSimplex
  3.  
  4.       INCLUDE 'STDHDR.FOR'
  5.       REAL cnstr(0: maxr, 0: maxc),rh(0: maxv),obj(0: maxv)
  6.       REAL ofv(0: maxv),os(0: maxv)
  7.       INTEGER br(0:maxc),i,nr,nc
  8.  
  9.       nr = 3  ! number of constraints
  10.       nc = 4  ! number of variables
  11.  
  12.       !      coefficients of constraint variables
  13.  
  14.        cnstr(0, 0) = 1.0
  15.        cnstr(0, 1) = 1.0
  16.        cnstr(0, 2) = 1.0
  17.        cnstr(0, 3) = 1.0
  18.  
  19.        cnstr(1, 0) = 7.0
  20.        cnstr(1, 1) = 5.0
  21.        cnstr(1, 2) = 3.0
  22.        cnstr(1, 3) = 2.0
  23.  
  24.        cnstr(2, 0) = 3.0
  25.        cnstr(2, 1) = 5.0
  26.        cnstr(2, 2) = 10.0
  27.        cnstr(2, 3) = 15.0
  28.  
  29.        ! values of constraint right hand sides
  30.  
  31.        rh(0) = 15.0
  32.        rh(1) = 120.0
  33.        rh(2) = 100.0
  34.  
  35.       ! {coefficients of objective function}
  36.  
  37.       obj(0) = 4.0
  38.       obj(1) = 5.0
  39.       obj(2) = 9.0
  40.       obj(3) = 11.0
  41.  
  42.       CALL simplex(cnstr, obj, rh, nr, nc, os, br, ofv)
  43.       WRITE(*,*) ' Optimal solution'
  44.       DO i = 0, nr
  45.         WRITE (*,10) 'Variable # ', br(i),os(i)
  46.       END DO
  47.       WRITE( *,*)
  48.       WRITE (*,*) 'Objective function values'
  49.       DO i = 0, nc + nr
  50.         WRITE (*,10) 'Variable # ', i,ofv(i)
  51.       END DO
  52.       READ (*,*)
  53.  
  54. 10    FORMAT (1X,A15,I2,5X,F7.2)
  55.  
  56.       END
  57.  
  58.  
  59.