example2
>load lpsolve
Start the LPSOLVE DLL.
Provilde lpsolve by Notebaert.
This file is not loaded by Euler automatically. However, ilpsolve() is
available in lpsimplex.e, and it will start the LPSOLVE DLL.
>lp=eulpsolve("make_lp", 0, 4);
>eulpsolve("set_verbose", lp, 3);
>eulpsolve("set_obj_fn", lp, [1, 3, 6.24, 0.1]);
>eulpsolve("add_constraint", lp, [0, 78.26, 0, 2.9], 2, 92.3);
>eulpsolve("add_constraint", lp, [0.24, 0, 11.31, 0], 1, 14.8);
>eulpsolve("add_constraint", lp, [12.68, 0, 0.08, 0.9], 2, 4);
>eulpsolve("set_lowbo", lp, [28.6, 0, 0, 18]);
>eulpsolve("set_upbo", lp, [1.0e30, 1.0e30, 1.0e30, 48.98]);
>eulpsolve("set_col_name", lp, 1, "COLONE");
>eulpsolve("set_col_name", lp, 2, "COLTWO");
>eulpsolve("set_col_name", lp, 3, "COLTHREE");
>eulpsolve("set_col_name", lp, 4, "COLFOUR");
>eulpsolve("set_row_name", lp, 1, "THISROW");
>eulpsolve("set_row_name", lp, 2, "THATROW");
>eulpsolve("set_row_name", lp, 3, "LASTROW");
>eulpsolve("write_lp", lp, "a.lp");
>eulpsolve("get_mat", lp)
Column 1 to 3:
0 78.26 0
0.24 0 11.31
12.68 0 0.08
Column 4:
2.9
0
0.9
>eulpsolve("solve", lp)
[ 0 ]
>eulpsolve("get_objective", lp)
[ 31.7827586207 ]
>eulpsolve("get_variables", lp)
28.6
0
0
31.8275862069
>eulpsolve("get_constraints", lp)
92.3
6.864
391.292827586
>//eulpsolve("delete_lp", lp);