Hey,
I have a syntaxe problem with the following procedure, someone can help me? I think that it is with the objectif function.
Thank you,
data fooddata; infile datalines;
input name $ prod $ cost prot fat carb cal Moy; datalines;
Breadb B 2.5 4 1 15 90 150
Breadc C 2 4 1 15 90 212
Milkb B 4 8 5 11.7 120 0
Milkc C 3.5 8 5 11.7 120 350
Cheeseb B 12 7 9 0.4 106 20
Cheesec C 8 7 9 0.4 106 50
;
run;
proc optmodel; /* declare index set */ set<str> FOOD;
/* declare variables */ var diet{FOOD} >= 0;
/* objective function */
num Moy{FOOD}; num cost{FOOD}; min f=(sum{i in FOOD, j=2i-1}((Moy[j]+Moy[j+1])-(diet[j]+diet[j+1]))**2)+sum{i in FOOD}cost[i]*diet[i];
/* constraints */
num prot{FOOD}; num fat{FOOD}; num carb{FOOD}; num cal{FOOD};
num min_cal, max_prot, min_carb, min_fat; con cal_con: sum{i in FOOD}cal[i]*diet[i] >= 300;
con prot_con: sum{i in FOOD}prot[i]*diet[i] <= 10; con carb_con: sum{i in FOOD}carb[i]*diet[i] >= 10;
con fat_con: sum{i in FOOD}fat[i]*diet[i] >= 8;
/* read parameters */ read data fooddata into FOOD=[name] cost prot fat carb cal Moy;
/* solve and print the optimal solution */ solve with lp/logfreq=1; /* print each iteration to log */ print diet;
quit;
