DATA COWPEA; TITLE 'CAPTER 10, PROBLEM 2, COWPEAS';
INPUT BLOCK $ WATER VAR WEIGHT NOD;
WSQ = WATER*WATER; **QUADRATIC FOR RESPONSE**;
** WEIGHT USED IN TEXT
   NOD = NO NODULES, NOT USED IN TEXT ***;
CARDS;
  I  5 101  20  4
  I 10 101  69 20
  I 15 101 143 56
 II  5 101  29  4
 II 10 101  91 32
 II 15 101 178 40
III  5 101  27 13
III 10 101  66 18
III 15 101 166 55
  I  5   7  41 17
  I 10   7 131 37
  I 15   7 175 49
 II  5   7  52 18
 II 10   7 128 44
 II 15   7 190 57
III  5   7  68 29
III 10   7  94 53
III 15   7 150 67
  I  5 365  10  3
  I 10 365 105 21
  I 15 365 112 27
 II  5 365   5  4
 II 10 365  44 13
 II 15 365 167 41
III  5 365   7  5
III 10 365 103 25
III 15 365 101 39
  I  5 289  24 10
I 10 289  65 13
  I 15 289 142 30
 II  5 289  24 12
 II 10 289  92 13
 II 15 289  87  9
III  5 289  11 14
III 10 289  62 12
III 15 289 199 40