want to solve the following problem
Function:
function [f] = nyfil(x)
v=ones(50,1);
v=v*10;
B_t=v;
S_t=v;
M_t = min(B_t,S_t)+max(B_t,S_t)/2;
x_s = x(2)/(x(5)+x(2));
x_b = x(1)/(x(5)+x(1));
f= sum(x(1)-x(2)+M_t*(log(x_b)+log(x_s))) + S_t*log(x(5)+x(2)) +...