写个弹道程序，画出来就一个点，不是曲线，帮看看吧

Question

Tt=0.05;V=0;m=165;%炮弹总重D=0.18;H=0;%空气密度函数F=0;%阻力函数j=0.8722;m=165-27.185Tt; az=1796/m;%发动机加速度ag=-9.81;%重力加速度P=0;Ma=0;rho0=1.225;T0=288.15;figure;title('模拟火箭弹飞行轨迹');xlabel('水平距离 m');ylabel('高度 m');%xlim([0,12000]);ylim([0,3000]);hold on;for i=0:Tt:60 if Y<0,disp([num2str(i),'s']),break,end m=165-27.185*Tt; az=1796/m;if i>1.08 az=0; m=128.23;end Ma=V/340; if Y<=11000%计算空气密度函数 P=T0-0.0065*Y; Ro=rho0*(P/T0)^4.25588; elseif Y>11000&&Y<=20000 P=216.65; Ro=0.36392exp((11000-Y)/6341.62); else P=216.65+0.001*(Y-20000); Ro=0.088035*(P/216.65)^(-35.1635); end H=Ro/1.2250; F=(0.155-0.390Ma^2+0.381Ma^4-0.238Ma^6+0.114Ma^8)/(1-2.65Ma^2+2.74Ma^4-1.50Ma^6+0.471Ma^8)VV; a=az+agsin(j)-af; af=(0.711FH/m)D^2;%空气阻力加速度 V=V+aTt;%计算当前速度 j=j-9.81Ttcos(j)/V; X=X+Vcos(j)Tt;%计算当前位置 Y=Y+Vsin(j)*Tt; plot(X,Y,'.');hold on %disp(['已仿真',num2str(i),'s'])end

Answer 1

你好，请把代码按照如下格式粘贴（点右上角</>按钮，然后代码放进去预览效果）：

Tt=0.05;
V=0;
m=165;%炮弹总重
D=0.18;
H=0;%空气密度函数

不然很多代码都是乱的还缺少乘号