blob: 0cf6c4dc2e434b93c54fbf35c5d56a406bee94f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
pathname=get_absolute_file_path('602.sce')
filename=pathname+filesep()+'602data.sci'
exec(filename)
clf();
i = 1;
Cl = 0;Cd = 0;Cl_Cd =0;Thrust = 0;
while(i<=length(V))
Cl(i) = 2*W/(D*S*V(i)^2);
Cd(i) = Cdo + Cl(i)^2/(%pi*e*AR);
Cl_Cd(i) = Cl(i)/Cd(i);
Thrust(i) = W/Cl_Cd(i)/1000;
Tf(i)=2*16245/1000;
i = i+1;
end
xlabel("Velocity (m/s)");
ylabel("Thrust (kN)");
plot2d(V,Thrust,3);
plot2d(V,Tf,4);
disp("As Thrust required equals Thrust provided by two turbofan at Velocity 297 m/s approx(intersection point of both graphs.)so it will be Vmax")
Vmax=297;
printf("\Answer:\n")
printf("\n\maximum velocity: %f m/s\n\n",Vmax)
|
