function [Cmq_w_MO,Cmq_w,Cmq_h,Cmq]=Cmq2(AR_w,Lamq_w,Xw,c_w,Cla_w,CLa_h,eta_h,V_h,Xh,c_h,B)

K=.7; %fig5.1
A=AR_w;
L=Lamq_w;

num1=A*(2*(Xw/c_w)^2+.5*Xw/c_w ); %part of eqn5.8
den1=A+2*cos(L); %part of eqn 5.8
num2=A^3*(tan(L))^2; %part of eqn 5.8
den2=24*(A+6*cos(L)); %part of eqn 5.8
num3=A^3*(tan(L))^2/(A*B+6*cos(L)) +3/B; %part of eqn 5.7
den3=A^3*(tan(L))^2/(A*B+6*cos(L)) +3;		%part of eqn 5.7


Cmq_w_M0=K*Cla_w*cos(L)*(num1/den1+num2/den2+1/8); %eqn 5.8
Cmq_w=Cmq_w_M0*(num3/den3); %eqn 5.7

Cmq_h=-2*CLa_h*eta_h*V_h*Xh*c_h;

Cmq = Cmq_w+Cmq_h;


return