Try this:
W = 73000;
Alt = 30000;
S = 950;
AR = 5.92;
Cd_o = 0.015;
e = .9;
k_3 = 1/(pi*e*AR);
k_2 = 0;
k_1 = (1/3)*k_3;
K = k_1+k_2+k_3;
V = linspace(400, 2400, 1000);
rho = 8.9068*10^(-4);
C_l = ((2*W)./(rho*V.^2*S));
C_d = Cd_o+K*(C_l).^(2);
T_r = (1/2*rho.*V.^2.*S.*C_d);
D = T_r;
P_r = V.*T_r;
T_a = 13850*2;
P_a = V.*T_a;
intx_V = interp1(P_r-P_a, V, 0);
intx_Pr = interp1(V, P_r, intx_V);
figure
hold on
plot(V, P_r)
plot(V, P_a)
plot(intx_V, intx_Pr, 'sr')
hold off
text(intx_V,intx_Pr, sprintf('(%6.1f, %9.1f) \\rightarrow', intx_V,intx_Pr), 'HorizontalAlignment','right', 'VerticalAlignment','middle')
producing:
.
.
Best Answer