summaryrefslogtreecommitdiff
path: root/548/CH6/EX6.15/6_15.sce
blob: 85d71971a2bf8080e5c9d726f0fe7814c5216d74 (plain)
1
2
3
4
5
6
7
pathname=get_absolute_file_path('6_15.sce')
filename=pathname+filesep()+'6_15data.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=((1/3)*Cdo*%pi*e*AR)^(1/4)/(4*Cdo/3);
disp(Cl_Cd1max,"(Cl^0.5/Cd)max=","(Cl^0.5/Cd)max=((1/3)*Cdo*%pi*e*AR)^(1/4)/(4*Cdo/3)")