option solver_msg 0;
let {i in Products} w[i] := 1/card(Products);
let Risk := 0.1;
printf "Return Avg\t Return Neut\t Return Bull\t Return Bear\t Risk \t Obj \t aversion \n";

for {s in 1 .. 20} {
	let aversion := 0.025 * s;
	solve;
	printf "%f \t %f \t %f \t %f \t %f \t %f \t %f; ",Return, ReturnNeut, ReturnBull, ReturnBear, Risk, obj, aversion;
	display w;
	}