x0=[22;11;51];
Lb=[0;0;0];
Ub=[40;30;70];
options=optimset('tolcon',1e-8);
[x,fval]=fmincon(@fun2,x0,[],[],[],[],Lb,Ub,@fun1,options)
function[c,ceq]=fun1(x)
c(1)=19-x(1);
c(2)=x(1)-25;
c(3)=9.5-x(2);
c(4)=x(2)-12.7;
c(5)=50-x(3);
c(6)=x(3)-60;
c(7)=37.1134-x(1)*x(2);
c(8)=x(1)*x(2)-927.835
ceq=[];
function[f]=fun2(x)
kA=1.3;
P0=0.003*x(1)^1.08*970^0.9*(x(2)/25.4)^(3-0.028*x(2));
p=10;
kz=(x(1)/19)^1.08;
ki=0.685+0.15*970/330*(1-0.1*970/330);
ka=0.71332+0.0085*x(3)-0.0001*x(3)^2/3;
f=kA*p/(P0*kz*ki*ka);