질점 항공기로의 가정을 통한 항공기 운동 특성

소개글

질점 항공기로의 가정을 통한 항공기 운동 특성에 대한 보고서 자료입니다.

목차

1.개요

2.항공기 비행조건

3.프로그램 설명

4.결과 예측 및 특성 파악

5.프로그램 코드[MATLAB]

본문내용

50)+12000;
elseif j>=75 && j<150
Th(j,1)=17000;
elseif j>=150 && j<175
Th(j,1)=-300*(j-150)+17000;
elseif j>=175 && j<250
Th(j,1)=100/3*(j-175)+9500;
elseif j>=250 && j<302
Th(j,1)=12000;
end
L=n*w;
cl=(n*w)/(0.5*rho*v(j)^2*s);
cd=0.024+0.12*cl^2;
D=(0.5*rho*v(j)^2*s)*cd;
T=Th(j,1);
[t, y]=ode45('newton_eqn', [j-1:0.5:j], y_0(j,:));
y_0(j+1,:)=y(1,:);
v(j+1)=y(1,1);
tf(j+1,1)=t(3,1);
yf(j+1,:)=y(3,:);
h(j+1)=v(j)*sin(y(3,3))+h(j);
end
figure(3)
subplot(311)
plot(tf,Th); xlabel('Time [sec]');title('Time reponse'); ylabel('T'); grid;
subplot(312)
plot(tf,yf(:,1));xlabel('Time [sec]'); ylabel('Velocity [m/s]');grid;
subplot(313)
plot(tf,h);xlabel('Time [sec]');ylabel('height [m]');grid;
%추력, 롤각도, 하중배수 3가지를 모두 한꺼번에 바뀔 경우
for j=1:1:301
n=N(j,1);
L=n*w;
cl=(n*w)/(0.5*rho*v(j)^2*s);
cd=0.024+0.12*cl^2;
D=(0.5*rho*v(j)^2*s)*cd;
Phi=phi(j)*pi/180;
T=Th(j,1);
[t, y]=ode45('newton_eqn', [j-1:0.5:j], y_0(j,:));
y_0(j+1,:)=y(1,:);
v(j+1)=y(3,1);
tf(j+1,1)=t(3,1);
yf(j+1,:)=y(3,:);
h(j+1)=v(j)*sin(y(3,3))+h(j);
X(j+1)=v(j)*cos(y(3,3))*cos(y(3,2))+X(j); % X방향 거리를 구하기 위한 배열
Y(j+1)=v(j)*cos(y(3,3))*sin(y(3,2))+Y(j); % Y방향 거리를 구하기 위한 배열
end
figure(4)
subplot(311)
plot(tf,Th,'y-^',tf,N*10000,'b-+',tf,phi*500,'r--'); xlabel('Time [sec]');title('Time reponse'); grid;
legend('Thrust', 'n * 10000', 'phi *500');
subplot(312)
plot(tf,yf(:,1));xlabel('Time [sec]'); ylabel('Velocity [m/s]');grid;
subplot(313)
plot(tf,h);xlabel('Time [sec]');ylabel('height [m]');grid;
figure(5)
plot3(X,Y,h);xlabel('X'); ylabel('Y');zlabel('Z'); grid;
%%%%%% newton_eqn.m %%%
function dy=newton_eqn(t,y)
global g
global w
global Phi;
global L;
global D;
global T;
v_t=y(1);
psi=y(2);
gamma=y(3);
dy(1)=g*(((T-D)/w)-sin(gamma));
dy(2)=g/v_t*L/w*sin(Phi)/cos(gamma);
dy(3)=g/v_t*(L*cos(Phi)/w-cos(gamma));
dy=dy';

키워드

비행 동역학,   질점 항공기,   운동방정식,   뉴튼 운동방정식,   질점,   point mass,   항공기 운동 특성