我试图绘制三个不同的图表。 h vs T,h vs P,h vs rho。当我运行程序时,我得到三个不同的图,但没有数据。 我不确定我做错了什么。
这是我的剧情代码
for h=0:1:1000
[ T,P,rho ] = stdatm( h );
hold all
subplot(1,3,1)
plot(T,h,'r')
subplot(1,3,2)
plot(P,h)
subplot(1,3,3)
plot(rho,h)
end
这是我的功能代码
function [ T,P,rho ] = stdatm( h )
T0=288.16;
P0=101.325;
rho0=1.225;
a=-6.5*10^-3;
b=3*10^-3;
c=-4.5*10^-3;
d=4.0*10^-3;
R=286.9;
g=9.81;
T1=T0+a*11000;
P1=P0*(T1/T0)^(-g/(a*R));
rho1=rho0*(T1/T0)^((-g/(a*R))-1);
T2=T1;
P2=P1*exp((-g/(R*T2))*(25000-11000));
rho2=rho1*exp((-g/(R*T2))*(25000-11000));
T3=T2+b*(47000-25000);
P3=P2*(T3/T2)^(-g/(b*R));
rho3=rho2*(T3/T2)^((-g/(b*R))-1);
T4=T3;
P4=P3*exp((-g/(R*T4))*(53000-47000));
rho4=rho3*exp((-g/(R*T4))*(53000-47000));
T5=T4+c*(79000-53000);
P5=P4*(T5/T4)^(-g/(c*R));
rho5=rho4*(T5/T4)^((-g/(c*R))-1);
T6=T5;
P6=P5*exp((-g/(R*T6))*(90000-79000));
rho6=rho5*exp((-g/(R*T6))*(90000-79000));
T7=T6+d*(100000-90000);
P7=P6*(T7/T6)^(-g/(d*R));
rho7=rho6*(T7/T6)^((-g/(d*R))-1);
if h<=11000
T=T0+a*h;
P=P0*(T/T0)^(-g/(a*R));
rho=rho0*(T/T0)^((-g/(a*R))-1);
elseif h>11000 && h<=25000
T=T1;
P=P1*exp((-g/(R*T))*(h-11000));
rho=rho1*exp((-g/(R*T))*(h-11000));
elseif h>25000 && h<=47000
T=T2+b*(h-25000);
P=P2*(T/T2)^(-g/(b*R));
rho=rho2*(T/T2)^((-g/(b*R))-1);
elseif h>47000 && h<=53000
T=T3;
P=P3*exp((-g/(R*T3))*(h-47000));
rho=rho3*exp((-g/(R*T3))*(h-47000));
elseif h>53000 && h<=79000
T=T4+c*(h-53000);
P=P4*(T/T4)^(-g/(c*R));
rho=rho4*(T/T4)^((-g/(c*R))-1);
elseif h>79000 && h<=90000
T=T5;
P=P5*exp((-g/(R*T))*(h-79000));
rho=rho5*exp((-g/(R*T))*(h-79000));
elseif h>90000 && h<=100000
T=T6+d*(h-90000);
P=P6*(T/T6)^(-g/(d*R));
rho=rho6*(T/T6)^((-g/(d*R))-1);
end
答案 0 :(得分:0)
尝试每个子图的hold
:
for h=0:1:1000
[ T,P,rho ] = stdatm( h );
subplot(1,3,1)
plot(T,h,'r')
hold on
subplot(1,3,2)
plot(P,h)
hold on
subplot(1,3,3)
plot(rho,h)
hold on
end
hold off
将函数stdatm
矢量化是一个更好的解决方案。
答案 1 :(得分:0)
当我运行我的代码时,我只获得了h,T,P,rho的一维向量。因此,每个图上有一个数据点。
for h=0:1:100
[ T,P,rho ] = stdatm( h );
end
hold on
subplot(1,3,1)
plot(T,h)
subplot(1,3,2)
plot(P,h)
subplot(1,3,3)
plot(rho,h)