/******************************************************** Mosel User Guide Example Problems ================================= file ugcompfrmem.cs ``````````````````` Retrieve model output via callback-style functionality. (c) 2013 Fair Isaac Corporation author: S.Heipcke, Mar. 2013 J.Farmer, Mar. 2021 ********************************************************/ using System; using System.IO; using Mosel; namespace ugcompfrmem.cs { public class ugcompfrmem { /// /// String containing the model /// const string modelSource= "model Burglar\n"+ "uses 'mmxprs'\n"+ "declarations\n"+ " WTMAX = 102 ! Maximum weight allowed\n"+ " ITEMS = 1..8 ! Index range for items\n"+ " VALUE: array(ITEMS) of real ! Value of items\n"+ " WEIGHT: array(ITEMS) of real ! Weight of items\n"+ " take: array(ITEMS) of mpvar ! 1 if we take item i; 0 otherwise\n"+ "end-declarations\n"+ "VALUE :: [15, 100, 90, 60, 40, 15, 10, 1]\n"+ "WEIGHT:: [ 2, 20, 20, 30, 40, 30, 60, 10]\n"+ "! Objective: maximize total value\n"+ "MaxVal:= sum(i in ITEMS) VALUE(i)*take(i)\n"+ "! Weight restriction\n"+ "sum(i in ITEMS) WEIGHT(i)*take(i) <= WTMAX\n"+ "! All variables are 0/1\n"+ "forall(i in ITEMS) take(i) is_binary\n"+ "maximize(MaxVal) ! Solve the problem\n"+ "! Print out the solution\n"+ "writeln(\"Solution:\\n Objective: \", getobjval)\n"+ "forall(i in ITEMS) writeln(' take(', i, '): ', getsol(take(i)))\n"+ "end-model"; /// /// Main entry point for the application /// [STAThread] static void Main(string[] args) { // Initialize Mosel XPRM mosel = XPRM.Init(); // Compile the Mosel model to a physical file FileStream file= new FileStream("burglar2.bim", FileMode.Create, FileAccess.Write); mosel.Compile("", new StringReader(modelSource), file); file.Close(); // Load the Mosel model XPRMModel model = mosel.LoadModel("burglar2.bim"); // Alternative version: compile+load without writing the BIM // XPRMModel model = mosel.CompileAndLoad(new StringReader(modelSource)); // Run the model model.Run(); } } }