I am trying to use Markowitz theory to optimise a portfolio. At the moment I have got

> f := proc (x) options operator, arrow; piecewise(x = 1, 0.3e-2, x = 2, 0.4e-2, x = 3, 0.6e-2, x = 4, (-1)*0.6e-2, x = 5, 0.4e-2, x = 6, 0.1e-2, x = 7, 0.1e-2, x = 8, 0, x = 9, 0.4e-2, x = 10, 0.8e-2, x = 11, 0.6e-2, x = 12, 0.17e-1, x = 13, 0.2e-2, x = 14, 0.13e-1, x = 15, 0.12e-1, x = 16, 0.6e-2, x = 17, 0.1e-2, x = 18, 0.2e-2, x = 19, 0.1e-2, x = 20, 0.12e-1, x = 21, (-1...