summaryrefslogtreecommitdiff
path: root/548/CH6/EX6.14/6_14.sce
blob: 47bea784e9791889b57086a6ec6774bf8d885381 (plain)
1
2
3
4
5
6
7
pathname=get_absolute_file_path('6_14.sce')
filename=pathname+filesep()+'6_14data.sci'
exec(filename)
Cl_Cdmax=sqrt(Cdo*%pi*e*AR)/(2*Cdo);
disp(Cl_Cdmax,"(Cl/Cd)max=","(Cl/Cd)max=sqrt(Cdo*%pi*e*AR)/(2*Cdo)")
Cl_Cd1max=(3*Cdo*%pi*e*AR)^(3/4)/(4*Cdo);
disp(Cl_Cd1max,"((Cl/Cd)^1.5)max=","((Cl/Cd)^1.5)max=(3*Cdo*%pi*e*AR)^(3/4)/(4*Cdo)")