function [Cdi,deda,k]=bi2mono(AR_w,lam_w,hh,l_h,b_w,CL_w,S_w,gap)

Ka=1/AR_w-1/(1+AR_w^1.7);
Kl=(10-3*lam_w)/7;
Kh=(1-hh/b_w)/((2*l_h/b_w)^(1/3));
%deda_M0=4.44*(Ka*Kl*Kh*sqrt(cos(Lamq_w)))^1.19; % monoplane downwash

sig=.5;
Kp=pi/(1+sig);
deda=CL_w/AR_w;	%for biplanes from pg157 ref(2)

CDi=Kp*CL_w^2*(S_w/(2*b_w^2))*(1+sig)/pi;		%induced drag pg157 ref(2)

k=sqrt(1.8*(gap/b_w)+1);	%Munk factor
