summaryrefslogtreecommitdiff
path: root/548/CH6/EX6.19.d/6_19d.sce
blob: 7dea11332b26d66cd866895d886128f8e3d81557 (plain)
1
2
3
4
5
6
pathname=get_absolute_file_path('6_19d.sce')
filename=pathname+filesep()+'6_19data.sci'
exec(filename)
E=(n/(4*c*Cdo))*(3*Cdo*%pi*e*AR)^(3/4)*sqrt(2*D*S)*[1/sqrt(W-W1)-1/sqrt(Wo)]
printf("\Answer:\n")
printf("\n\Maximum Endurance at sea level: %f s\n\n",E)