tutorialk.java

Go to the documentation of this file.

 
import java.util.*;
import java.lang.Math;
import conopt.*;

public class tutorialk {
   public static void main(String argv[]) {
      System.loadLibrary("conoptjni4");
 
      String name = "tutorialk";
 
      Conopt conopt = new Conopt(name);
      TutKModelData model = new TutKModelData();
      MsgHandler msghdlr = new MsgHandler(name);
 
      model.buildModel();
 
      conopt.loadModel(model);
      conopt.setMessageHandler(msghdlr);
 
      // try to set the license using the environment variables
      try {
         int license_int_1 = Integer.parseInt(System.getenv("CONOPT_LICENSE_INT_1"));
         int license_int_2 = Integer.parseInt(System.getenv("CONOPT_LICENSE_INT_2"));
         int license_int_3 = Integer.parseInt(System.getenv("CONOPT_LICENSE_INT_3"));
         String license_text = System.getenv("CONOPT_LICENSE_TEXT");
 
         conopt.setLicense(license_int_1, license_int_2, license_int_3,
               license_text);
      } catch (Exception e) {
         System.out.println("Unable to set license: " + e.getMessage());
      }
 
      conopt.solve();
 
      conopt.printStatus();
 
      std s = new std();
      int retcode = s.checkSolve(name, conopt.modelStatus(), conopt.solutionStatus(),
            conopt.objectiveValue(), 0.572943, 0.000001);
 
      msghdlr.close();
 
      System.exit(retcode);
   }
}
 
class TutKModelData extends ModelData {
   /* declaring the parameters */
   private double Al;
   private double Ak;
   private double Ainp;
   private double Rho;
 
   /* declaring the variable and constraint indices. */
   private int varl;
   private int vark;
   private int varinp;
   private int varout;
   private int varp;
   private int consobj;
   private int consprod;
 
   public TutKModelData() {
      super();
 
      setConstants();
   }
 
   private void setConstants() {
      Al   = 0.16;
      Ak   = 2.0;
      Ainp = 0.16;
      Rho  = 1.0;
   }

   public void buildModel() {
      // adding the variables to the model
      varl = addVariable(0.1, Conopt.Infinity, 0.5);
      vark = addVariable(4.0, 4.0, 4.0);
      varinp  = addVariable(0.1, Conopt.Infinity, 0.5);
      varout  = addVariable(0.0, Conopt.Infinity);
      varp  = addVariable(0.0, Conopt.Infinity);
 
      // adding the constraints to the model
      // Constraint 1
      {
         int[] index = {varl, varinp, varout, varp};
         double[] value = {-1, -1, 0, 0};
         int[] nlflag = {0, 0, 1, 1};
 
         consobj = addConstraint(ConstraintType.Free, -0.1, index, value, nlflag);
      }
 
      // Constraint 2
      {
         int[] index = {varl, vark, varinp, varout};
         double[] value = {0, 0, 0, -1};
         int[] nlflag = {1, 1, 1, 0};
         consprod = addConstraint(ConstraintType.Eq, 0.0, index, value, nlflag);
      }
 
      // Constraint 3
      {
         int[] index = {varout, varp};
         double[] value = {1, 2};
         int[] nlflag = {0, 0};
         addConstraint(ConstraintType.Eq, 4, index, value, nlflag);
      }
 
      // setting the objective constraint
      setObjectiveElement(ObjectiveElement.Constraint, consobj);
 
      // setting the optimisation direction
      setOptimizationSense(Sense.Maximize);
   }

   public double evaluateNonlinearTerm(double[] x, int rowno, boolean ignerr, int thread) {
      double L   = x[varl];
      double K   = x[vark];
      double Inp = x[varinp];
      double Out = x[varout];
      double P   = x[varp];
 
      double g = 0;
      if (rowno == consobj) {
            g = P * Out;
      }
      else if (rowno == consprod) {
         double hold1 = (Al * Math.pow(L, (-Rho)) + Ak * Math.pow(K, (-Rho)) + Ainp * Math.pow(Inp, (-Rho)));
         double hold2 = Math.pow(hold1,( -1. / Rho ));
 
         g = hold2;
      }
 
      return g;
   }

   public void evaluateNonlinearJacobian(double[] x, double[] jac, int rowno, int[] jacnum, boolean ignerr, int thread) {
      assert x.length == jac.length;
 
      double L   = x[varl];
      double K   = x[vark];
      double Inp = x[varinp];
      double Out = x[varout];
      double P   = x[varp];
 
      if (rowno == consobj) {
         jac[varout] = P;
         jac[varp] = Out;
      }
      else if (rowno == consprod) {
         double hold1 = (Al*Math.pow(L,(-Rho)) + Ak*Math.pow(K,(-Rho)) + Ainp*Math.pow(Inp,(-Rho)));
         double hold2 = Math.pow(hold1,( -1./Rho ));
         double hold3  = hold2 / hold1;
 
         jac[varl] = hold3 * Al * Math.pow(L, (-Rho - 1.));
         jac[vark] = hold3 * Ak * Math.pow(K, (-Rho - 1.));
         jac[varinp] = hold3 * Ainp * Math.pow(Inp, (-Rho - 1.));
      }
   }
}