home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_11_02 / 1102106a < prev    next >
Text File  |  1992-12-04  |  884b  |  63 lines
  1. int select_entering(void)
  2. {
  3.  
  4.     int i,j;
  5.  
  6.     enter_pos = 0;
  7.     enter_holder = 0.0;
  8.  
  9.     /* determine the most neg value, if any */
  10.     for (j=1; j<COLUMNS-1; j++) {
  11.        if (table[0][j]<0) {
  12.            if (table[0][j] < enter_holder) {
  13.               enter_holder = table[0][j];
  14.               enter_pos = j;
  15.            }
  16.  
  17.        }
  18.     }
  19.  
  20.     /* if j has been changed from 0, then we have 
  21.        an entering equation */
  22.     
  23.     return(enter_pos);
  24.  
  25. }
  26.  
  27. int select_leaving(void)
  28. {
  29.  
  30.     int i,j;
  31.  
  32.     float ratio[50];
  33.  
  34.     leave_pos = 0;
  35.     leave_holder = 999.0;
  36.  
  37.     /* determine the lowest ratio of the 
  38.        positive elements */
  39.  
  40.     for (i=1; i<ROWS;i++) {
  41.  
  42.       if (table[i][enter_pos] > 0) {
  43.      
  44.         ratio[i] = 
  45.           table[i][COLUMNS-1]/table[i][enter_pos];
  46.  
  47.         if (ratio[i] < leave_holder) {
  48.  
  49.             leave_holder = ratio[i];
  50.             leave_pos = i;
  51.  
  52.         }
  53.  
  54.       }
  55.  
  56.     }
  57.  
  58.     return (leave_pos);
  59.  
  60. }
  61.  
  62.  
  63.