新建 360压缩 ZIP 文件.zip_fartherk4u_充气_压强_大气_大气参数计算

clear; N=input('请输入气体质量'':'); %以氦气代入计算 R=8.314; X=zeros(1,4); H=0:0.1:60; for i=1:601 h=H(i); X(i,:)=basedata(h); end %plot(H,X(:,2)) T=X(:,1); %温度 P=X(:,2); %压强 A=X(:,3); %大气密度 g=X(:,4); %重力加速度 n=(N*1000)/2; %4为氦气的摩尔质量 V=(n.*R.*X(:,1))./P; %气球体积 F=A.*g.*V; %气球浮力 S=4*pi*(((3.*V)/(4*pi)).^(2/3)); A0=(350)./S; %橡胶质量为350g %% 每个图形单独绘制 plot(H,T) xlabel('高度/km');ylabel('温度/k');%画出大气温度随高度变化的曲线 % plot(H,X(:,2)) % xlabel('高度/km');ylabel('压强/Pa');%画出大气压强随高度变化的曲线 % plot(H,X(:,3)) % xlabel('高度/km');ylabel('大气密度/kg/m^3');%画出大气密度随高度变化的曲线 % plot(H,V) % xlabel('高度/km');ylabel('气球体积/m^3');%画出气球体积随高度变化的曲线 % plot(H,F) % xlabel('高度/km');ylabel('气球浮力/N');%画出气球浮力随高度变化的曲线, % plot(H,A0) % xlabel('高度/km');ylabel('气球面密度/g/m^2');%画出气球面密度随高度变化的曲线 %%双纵坐标轴的绘制 % [AX,H1,H2]=plotyy(H,T,H,P); % set(AX(1),'XColor','k','YColor','b'); %设置各个坐标轴的颜色，黑、蓝、红 % set(AX(2),'XColor','k','YColor','r'); % % HH1=get(AX(1),'Ylabel'); %设置标注的内容和颜色 % set(HH1,'String','Temperature/℃'); % set(HH1,'color','b'); % HH2=get(AX(2),'Ylabel'); % set(HH2,'String','Pressure/Pa'); % set(HH2,'color','r'); % % set(H1,'color','b'); %设置曲线的颜色 % set(H2,'color','r'); % xlabel('Altitude/km'); %%三纵坐标轴的绘制 % ylabels{1}='Temperature/℃'; % ylabels{2}='Pressure/Pa'; % ylabels{3}='Density//kg/m^3'; % [AX,hlines] = plotyyy(H,T,H,P,H,A,ylabels); % legend(hlines, 'T','P','A',2) % %