KESKUSTELU

#! /usr/bin/perl

$buf="";

$buf .= "Minimize
  x1 + x2 + x3 + x4 + x5 + x6 + x7

Subject to
";

$n=1;
$yseja = 0;
for ($z1=9;$z1<=10;$z1++) {
for ($z2=9;$z2<=10;$z2++) {
for ($z3=9;$z3<=10;$z3++) {
for ($z4=9;$z4<=10;$z4++) {
for ($z5=9;$z5<=10;$z5++) {
for ($z6=9;$z6<=10;$z6++) {
for ($z7=9;$z7<=10;$z7++) {
   if ($z1 == 9) { $yseja++; }
   if ($z2 == 9) { $yseja++; }
   if ($z3 == 9) { $yseja++; }
   if ($z4 == 9) { $yseja++; }
   if ($z5 == 9) { $yseja++; }
   if ($z6 == 9) { $yseja++; }
   if ($z7 == 9) { $yseja++; }
   if ($yseja==3) {
      $buf .= "$z1 x1 + $z2 x2 + $z3 x3 + $z4 x4 + $z5 x5 + $z6 x6 + $z7 x7 - a$n = 0\n";
      $n++;
   }
   $yseja = 0;
}
}
}
}
}
}
}

$m=1;
for ($i=1; $i<$n; $i++) {
   for ($j=$i+1; $j<$n; $j++) {
      $buf .= "a$i - a$j + 99999 B$m >= 1
a$i - a$j + 99999 B$m <= 99998
";
   $m++;
   }
}

$buf .= "
Bounds
";

for ($i=1; $i<$n; $i++) {
   $buf .= "a$i >= 1
";
}

$buf .= "\nBinaries\n";
for ($i=1; $i<$m; $i++) {
   $buf .= "B$i\n";
}

$buf .= "\nGenerals
  x1
  x2
  x3
  x4
  x5
  x6
  x7
";
for ($i=1; $i<$n; $i++) {
   $buf .= "  a$i\n";
}

$buf .= "\nEnd
";

print $buf;