function [Clp_wb,Clp_w,Clp_H,Clp_h,Clp_v,Clp]=Clp2(BClp_Kap,BClp_Kap_h,Kap,Kap2,Beta,S_h,S_w,b_h,b_w,Z_v,b_v,CyB_v)

Clp_wb = BClp_Kap*Kap/Beta;	%eqn 8.3 not sure about the Beta term, which beta, compressibility corr or sideslip angl
Clp_w=Clp_wb;
Clp_H = BClp_Kap_h*Kap2/Beta;		%eqn 8.3 not sure about the Beta term, which beta, compressibility corr or sideslip angl
Clp_h=.5*Clp_H*S_h/S_w*(b_h/b_w)^2;	%eqn 8.4
Clp_v=2*(Z_v/b_v)^2*CyB_v;		%eqn 8.5

Clp = Clp_wb+Clp_h+Clp_v;		%eqn 8.2