%subroutine objective function
%file name = port_wood_obj.m
%optimization of redundant wood planar portal frame
%Prof. Reyolando Brasil - May 2021
function f=port_wood_obj(x,h,L,b,P)
%design variables
x1=x(1);%column section d dimension, m
x2=x(2);%beam section d dimension, m
%wood parameters
rho=1000;%density, kg/m³
%objective function, portal frame total mass
f=rho*(2*h*b*x1+L*b*x2);
%