Единое окно доступа к образовательным ресурсам

Усталостная долговечность и повреждаемость авиационных конструкций

Голосов: 0

В учебном пособии приведены результаты исследований в области расчетов долговечности авиационных конструкций при циклическом нагружении на основе методов схематизации переменной нагруженности, моделирования накопления повреждений в материале, стабилизации рассеяния свойств материалов путем оптимизации статистических моделей, обоснования вероятностных распределений показателей надежности, обработки цензурированных выборок, возникающих при целевых осмотрах самолетов. Приведены методы моделирования вертикальных перегрузок, возникающих в опасных зонах планера самолета, расчета повреждаемости и эквивалентной наработки в этих зонах, статистического анализа разброса усталостных свойств авиационных материалов по данным испытаний конструктивно-подобных образцов, поддержания жизненного цикла изделий авиационной техники. Учебное пособие предназначено для студентов, обучающихся по направлениям подготовки бакалавров, магистров и специалистов «Авиастроение», «Машиностроение», «Прикладная механика», «Конструкторско-технологическое обеспечение машиностроительных производств», «Испытание летательных аппаратов».

Приведенный ниже текст получен путем автоматического извлечения из оригинального PDF-документа и предназначен для предварительного просмотра.
Изображения (картинки, формулы, графики) отсутствуют.
     132 
            End If 
        Else 
            i1 = i1 + 1 
        End If 
    Wend 
    Next Delta 
     
    ' Расчет повреждаемостей и эквивалентного налета 
     
    povr4 = 0 
    Povr5 = 0 
    Povr6 = 0 
    kk = 0 
    Cells(arow - 1, acolumn).Value = "Ny" 
    Cells(arow - 1, acolumn).Font.Bold = True 
    Cells(arow - 1, acolumn + 1).Value = "GNy" 
    Cells(arow - 1, acolumn + 1).Font.Bold = True 
    Cells(arow - 1, acolumn + 2).Value = "Mizg1" 
    Cells(arow - 1, acolumn + 2).Font.Bold = True 
    Cells(arow - 1, acolumn + 3).Value = "Povr4" 
    Cells(arow - 1, acolumn + 3).Font.Bold = True 
    Cells(arow - 1, acolumn + 4).Value = "Povr5" 
    Cells(arow - 1, acolumn + 4).Font.Bold = True 
    Cells(arow - 1, acolumn + 5).Value = "Povr6" 
    Cells(arow - 1, acolumn + 5).Font.Bold = True 
    For i = 0 To n - 1 
    Cells(arow + i, acolumn + 16).Value = A(i, 1) 
    If (i = 0) Then 
        If ((A(i, 1) >= A((i + 1), 1)) And (A(i, 1) >= 1)) Then 
            Moment = 7.1903 + 0.00033 * A(i, 2) 
            Povr4 = Povr4 + (Moment) ^ 4 
            Povr5 = Povr5 + (Moment) ^ 5 
            Povr6 = Povr6 + (Moment) ^ 6 
            Cells(arow + kk, acolumn).Value = A(i, 1) 
            Cells(arow + kk, acolumn + 1).Value = A(i, 2) 
            Cells(arow + kk, acolumn + 2).Value = Moment 
            Cells(arow + kk, acolumn + 3).Value = Moment ^ 4 
            Cells(arow + kk, acolumn + 4).Value = Moment ^ 5 
            Cells(arow + kk, acolumn + 5).Value = Moment ^ 6 
            kk = kk + 1 
        End If 
    End If 
    If (i = n - 1) Then 
        If ((A(i, 1) >= A((i - 1), 1)) And (A(i, 1) >= 1)) Then 
            Moment = 7.1903 + 0.00033 * A(i, 2) 
            Povr4 = Povr4 + (Moment) ^ 4 
            Povr5 = Povr5 + (Moment) ^ 5 
            Povr6 = Povr6 + (Moment) ^ 6 
            Cells(arow + kk, acolumn).Value = A(i, 1) 
            Cells(arow + kk, acolumn + 1).Value = A(i, 2) 
            Cells(arow + kk, acolumn + 2).Value = Moment 
            Cells(arow + kk, acolumn + 3).Value = Moment ^ 4  

 133 
            Cells(arow + kk, acolumn + 4).Value = Moment ^ 5 
            Cells(arow + kk, acolumn + 5).Value = Moment ^ 6 
            kk = kk + 1 
        End If 
    End If 
    If ((i > 0) And (i < (n - 1))) Then 
        If ((A(i, 1) >= A((i + 1), 1)) And (A(i, 1) >= A((i - 1), 1)) And (A(i, 1) >= 1)) Then 
            Moment = 7.1903 + 0.00033 * A(i, 2) 
            Povr4 = Povr4 + (Moment) ^ 4 
            Povr5 = Povr5 + (Moment) ^ 5 
            Povr6 = Povr6 + (Moment) ^ 6 
            Cells(arow + kk, acolumn).Value = A(i, 1) 
            Cells(arow + kk, acolumn + 1).Value = A(i, 2) 
            Cells(arow + kk, acolumn + 2).Value = Moment 
            Cells(arow + kk, acolumn + 3).Value = Moment ^ 4 
            Cells(arow + kk, acolumn + 4).Value = Moment ^ 5 
            Cells(arow + kk, acolumn + 5).Value = Moment ^ 6 
            kk = kk + 1 
        End If 
    End If 
    Next i 
     
&#39; Вывод результатов расчета 
 
    K4 = 0 
    K5 = 0 
    K6 = 0 
    KMax = 0 
    Cells(arow - 1, acolumn + 7).Value = &#34;Povr4&#34;      &#39; Повреждаемость за полет по 4 степени 
    Cells(arow, acolumn + 7).Value = Povr4 
    Cells(arow - 1, acolumn + 7).Font.Bold = True 
    Cells(arow + 1, acolumn + 7).Value = &#34;Povr5&#34;     &#39; Повреждаемость за полет по 5 степени 
    Cells(arow + 2, acolumn + 7).Value = Povr5 
    Cells(arow + 1, acolumn + 7).Font.Bold = True 
    Cells(arow + 3, acolumn + 7).Value = "Povr6&#34;     &#39; Повреждаемость за полет по 6 степени 
    Cells(arow + 4, acolumn + 7).Value = Povr6 
    Cells(arow + 3, acolumn + 7).Font.Bold = True 
    Cells(arow - 1, acolumn + 8).Value = "Tflight"     ' Время полета в часах 
    Cells(arow, acolumn + 8).Value = Tflight 
    Cells(arow - 1, acolumn + 8).Font.Bold = True 
    Cells(arow - 1, acolumn + 9).Value = &#34;P4Час&#34;      &#39; Повреждаемость за час по 4 степени 
    Cells(arow, acolumn + 9).Value = povr4 / Tflight 
    Cells(arow - 1, acolumn + 9).Font.Bold = True 
    Cells(arow + 1, acolumn + 9).Value = &#34;P5Час&#34;     &#39; Повреждаемость за час по 5 степени 
    Cells(arow + 2, acolumn + 9).Value = Povr5 / Tflight 
    Cells(arow + 1, acolumn + 9).Font.Bold = True 
    Cells(arow + 3, acolumn + 9).Value = &#34;P6Час&#34;      &#39; Повреждаемость за час по 6 степени 
    Cells(arow + 4, acolumn + 9).Value = Povr6 / Tflight 
    Cells(arow + 3, acolumn + 9).Font.Bold = True 
    Cells(arow - 1, acolumn + 10).Value = "Kэ(4)"      ' Коэффициент эквивалентный (для 
степени 4) 
    Cells(arow, acolumn + 10).Value = Cells(arow, acolumn + 9).Value / P4Norm  

 134 
    Cells(arow - 1, acolumn + 10).Font.Bold = True 
    K4 = Cells(arow, acolumn + 9).Value / P4Norm 
    Cells(arow + 1, acolumn + 10).Value = "Kэ(5)"     ' Коэффициент эквивалентный (для 
степени 5) 
    Cells(arow + 2, acolumn + 10).Value = Cells(arow + 2, acolumn + 9).Value / P5Norm 
    Cells(arow + 1, acolumn + 10).Font.Bold = True 
    K5 = Cells(arow + 2, acolumn + 9).Value / P5Norm 
    Cells(arow + 3, acolumn + 10).Value = "Kэ(6)"      ' Коэффициент эквивалентный (для 
степени 6) 
    Cells(arow + 4, acolumn + 10).Value = Cells(arow + 4, acolumn + 9).Value / P6Norm 
    Cells(arow + 3, acolumn + 10).Font.Bold = True 
    K6 = Cells(arow + 4, acolumn + 9).Value / P6Norm 
    KMax = K4 
    If (K5 > KMax) Then KMax = K5 
    If (K6 > KMax) Then KMax = K6 
    Hourss = Tflight * KMax 
    Minss = (Hourss - Int(Hourss)) * 60 
    Sekss = (Minss - Int(Minss)) * 60 
    hF = Int(Tflight) 
    mF = (Tflight - hF) * 60 
    sF = (mF - Int(mF)) * 60 
    Cells(arow - 1, acolumn + 12).Value = "Экв. час."    ' Эквивалентный налет (часы) 
    Cells(arow, acolumn + 12).Value = Int(Hourss) 
    Cells(arow - 1, acolumn + 12).Font.Bold = True 
    Cells(arow - 1, acolumn + 13).Value = "Экв. мин."   ' Эквивалентный налет (минуты) 
    Cells(arow, acolumn + 13).Value = Int(Minss) 
    Cells(arow - 1, acolumn + 13).Font.Bold = True 
    Cells(arow - 1, acolumn + 14).Value = "Экв. сек."    ' Эквивалентный налет (секунды) 
    Cells(arow, acolumn + 14).Value = Round(Sekss) 
    Cells(arow - 1, acolumn + 14).Font.Bold = True 
    Cells(arow + 1, acolumn + 12).Value = "час."         ' Налет (часы) 
    Cells(arow + 2, acolumn + 12).Value = Int(hF) 
    Cells(arow + 1, acolumn + 12).Font.Bold = True 
    Cells(arow + 1, acolumn + 13).Value = "мин."         ' Налет (минуты) 
    Cells(arow + 2, acolumn + 13).Value = Int(mF) 
    Cells(arow + 1, acolumn + 13).Font.Bold = True 
    Cells(arow + 1, acolumn + 14).Value = "сек."         ' Налет (секунды) 
    Cells(arow + 2, acolumn + 14).Value = Round(sF) 
    Cells(arow + 1, acolumn + 14).Font.Bold = True 
 
End Sub  


    
Яндекс цитирования Яндекс.Метрика