Расчет технико-экономической&;nbsp; эффективности&;nbsp; изготовления - Проектирование и расчет мотоустановки среднемагистрального пассажирского самолета

Воздухозаборника из композиционных материалов

К новым конструкционным материалам, которые по прочности, жесткости и другим физико-механическим свойствам значительно превосходят известные конструкционные сплавы, относятся так называемые композиционные материалы (КМ), или, иначе, композиты.

В процессе эксплуатации конструкций из КМ были выявлены основные преимущества:

- Малая масса по сравнению с традиционными типами подкрепленных пластин и оболочек.

- Экономичность по сравнению с традиционными конструкциями.

- Хорошие теплоизолирующие свойства.

В расчете экономической части определяем стоимость изготовления металлического и композитного канала воэдухозаборника на двигателе самолета.

Себестоимость канала воздухозаборника определяем по формуле :

С = М + ПФ + Зо + Зд + Зсс + НРу, (1.10)

Где М - стоимость материалов;

ПФ - стоимость полуфабрикат;

Зо -зарплата основная;

Зд -зарплата дополнительная;

Зсс-отчисление на соцстрахование;

НРу-накладн. цеховых расходов.

Веса деталей канала воздухозаборника приведнны в табл. 32

Литература

    1. Глаголев A. Н. 'Конструкция самолетов' 1975г. 2. Егер C. М. 'Проектирование самолетов' 1983г. 3. Зоншайн C. И. 'Аэродинамика и конструкция летательных аппаратов' 1966г. 4. Лизин В. Т., Пяткин В. А.'Проектирование тонкостенных конструкций. 5. Максимов И. А., Секистов В. А. 'Двигатели самолетов и вертолетов' 1977г. 6. Сборник трудов 'Теория и практика проектирования пассажирских самолетов' 1976г.

Приложение

Листинг программы расчета аэродинамических нагрузок

на мотогондолу

real*8 fi, Po(14)/1.65,1.69,1.67,0.98,0.88,0.82,0.78,0.56,

* .35,.23,.17,.15,.14,.15/

real*8 Py(14)/3.4,3.4,3.4,3.3,2.5,1.1,

* .7,.55,.55,.55,.56,.45,-2.,-1./,

* Pza(14)/.26,.26,.26,.26,.26,.26,.26,.27,.43,.67,

* .91,.9,.6,0./,

* Pzb(14)/3.95,3.95,3.9,3.75,2.7,1.6,1.2,.62,.4,.3,

* .2,.15,.12,0./,

* X(14)/0.,.0125,.025,.05,.1103,.15,.181,.3,.4304,

* .55,.65,.774,.9,1./

real*8 gamm(14)/44.,24.,16.,7.,5.,2.,1.5,-2.,-8.,-10.,-11.,

* -12.,-12.,-12./

real*8 R(14)/1.,1.06,1.11,1.145,1.2,1.21,1.225,1.24,1.16,

* 1.15,1.07,.95,.815,.72/

real*8 alf, bett, q,t, Ln, Lk, ref, fin, sh, dfi, r1ef, r2ef, fif,

* Myx(5),Mzx(5),L, Pyc(5),Pxc(5),Pzc(5),P(5),Xc(5),Xcc(5),xt, pi

write(*,*) 'Введите начальное значение угла Fi'

read(6,*) fin

write(*,*) 'Введите конечное значение угла Fi'

read(6,*) fi

write(6,*) 'Введите начальную Xотн'

read(6,*) Ln

write(6,*) 'Введите конечную Xотн'

read(6,*) Lk

write(*,*) 'Введите значение угла BETTA'

read(*,*) bett

write(*,*) 'Введите значение угла ALFA'

read(*,*) alf

write(*,*) 'Введите значение q'

read(*,*) q

pi=4*datan(1)

fi=fi*pi/180.

fin=fin*pi/180.

alf=alf*pi/180.

bett=bett*pi/180.

L=5.6

sh=.003

dfi=2.*pi/1257.

xt=Ln

do 4 i=1,13

if(xt. lt. x(i)) goto 5

4 continue

5 i=i-1

do 103 ik=1,5

Pyc(ik)=0.

Pzc(ik)=0.

Pxc(ik)=0.

Myx(ik)=0.

Mzx(ik)=0.

Xc(ik)=0.

103 Xcc(ik)=0.

write(*,*) 'Номер участка',i

gamm(i)=gamm(i)*pi/180.

do 1 t=Ln, Lk, sh

if(xt. gt. x(i+1)) then

i=i+1

write(*,*) 'Номер участка',i

gamm(i)=gamm(i)*pi/180.

endif

do 2 fif=fin, fi, dfi

C write(*,*) fif*180./pi, xt, r(i)

C Учет пилона **********************************

C if((xt. gt. x(5).and. xt. lt. x(6)).and.

C * (fif. lt.1.449.or. fif. gt.1.693)) goto 6

C if((xt. gt. x(6).and. xt. lt. x(7)).and.

C * (fif. lt.1.344.or. fif. gt.1.798)) goto 6

C if(xt. gt.0.1103.and.(fif. gt.1.2915.and. fif. lt.1.85))

C * goto 3

6 continue

r1ef=dcos(fif+dfi/2.)

r2ef=dcos(fif+dfi/2.)

if(xt. gt.0.1103.and.(fif. gt.0..and. fif. le. pi/2.))then

r1ef=1.

r2ef=1.

C write(*,*) '1 *********',fif

C pause

endif

if(xt. gt.0.1103.and.(fif. gt. pi/2.and. fif. le. pi))then

r1ef=-1.

r2ef=-1.

C write(*,*) '2 *********',fif

C pause

endif

C write(*,*) fif*180./pi, xt, r1ef, r2ef

C PAUSE' '

P(1)=(Po(i)+Py(i)*alf*dsin(fif+dfi/2.)+Pza(i)*alf*r1ef

* - Pzb(i)*bett*r2ef)*q*L*dfi*R(i)*sh

C write(*,*) P/(sh*L*R(i)*dfi),xt, fif

C pause

P(2)=Po(i)*q*L*dfi*R(i)*sh

P(3)=Py(i)*alf*dsin(fif+dfi/2.)*q*L*dfi*R(i)*sh

P(4)=Pza(i)*alf*r1ef*q*L*dfi*R(i)*sh

P(5)=-Pzb(i)*bett*r2ef*q*L*dfi*R(i)*sh

do 1000 ik=1,5

Pyc(ik)=Pyc(ik)+P(ik)*dsin(fif+dfi/2.)

Pzc(ik)=Pzc(ik)+P(ik)*dcos(fif+dfi/2.)

Myx(ik)=Myx(ik)+P(ik)*dsin(fif+dfi/2.)*xt

Mzx(ik)=Mzx(ik)+P(ik)*dcos(fif+dfi/2.)*xt

Pxc(ik)=Pxc(ik)+P(ik)*dtan(gamm(i))

1000 continue

3 continue

2 continue

xt=xt+sh

R(i)=R(i)+sh*L*dtan(gamm(i))

1 continue

do 100 ik=1,5

if(dabs(Pyc(ik)).gt.1.d-10) then

Xc(ik)=Myx(ik)/Pyc(ik)

else

write(*,*)ik,'Myx=',Myx(ik)

endif

if(dabs(Pzc(ik)).gt.1.d-10) then

Xcc(ik)=Mzx(ik)/Pzc(ik)

else

write(*,*)ik,'Mzx=',Mzx(ik)

endif

write(*,*) 'Значения аэр. сил в Ц. Д.'

100 write(*,12) Pxc(ik),Pyc(ik),Pzc(ik),Xc(ik)*L, Xcc(ik)*L

12 format(1x,'Pxc=',f10.2,/,1x,'Pyc=',f10.2/,1x,'Pzc=',f10.2/,

* 1x,'Xyc=',f15.7,/,1x,'Xzc=',f15.7)

open(1,file='aer. res')

write(1,*) 'Начальное значение угла Fi'

write(1,*) fin*180./pi

write(1,*) 'Конечное значение угла Fi'

write(1,*) fi*180./pi

write(1,*) 'Начальная Xнач'

write(1,*) Ln*5.6

write(1,*) 'Конечная Xкон'

write(1,*) Lk*5.6

write(1,*) 'Значение угла BETTA'

write(1,*) bett*180./pi

write(1,*) 'Значение угла ALFA'

write(1,*) alf*180./pi

write(1,*) 'Значение q'

write(1,*) q

write(1,*) 'Значения аэр. сил в Ц. Д.'

do 102 ik=1,5

102 write(1,12) Pxc(ik),Pyc(ik),Pzc(ik),Xc(ik)*L, Xcc(ik)*L

close(1)

stop' '

end

Похожие статьи




Расчет технико-экономической&;nbsp; эффективности&;nbsp; изготовления - Проектирование и расчет мотоустановки среднемагистрального пассажирского самолета

Предыдущая | Следующая