function S = test(x)
R=1.987;
T=1000;
x1=x(1);
x2=x(2);
x3=x(3);
x4=x(4);
x5=x(5);

x

S= exp(x1)*((4610/(R*T))+x1 -log(exp(x1)+exp(x2)+exp(x3)+exp(x4)+exp(x5)))+...
    exp(x2)*((-46030/(R*T))+x2-log(exp(x1)+exp(x2)+exp(x3)+exp(x4)+exp(x5)))+...
    exp(x3)*((-47940/(R*T))+x3-log(exp(x1)+exp(x2)+exp(x3)+exp(x4)+exp(x5)))+...
    exp(x4)*((-94610/(R*T))+x4-log(exp(x1)+exp(x2)+exp(x3)+exp(x4)+exp(x5)))+...
    exp(x5)*(x5-log(exp(x1)+exp(x2)+exp(x1)+exp(x4)+exp(x5)))

endfunction
	