Оценка влияния наружного диаметра колеса на силу сопротивления качения

    Дисциплина: Технические
    Тип работы: Курсовая
    Тема: Оценка влияния наружного диаметра колеса на силу сопротивления качения

    Нижегородский государственный технический университет
    Кафедра «Автомобили и тракторы»
    Курсовая работа по САПР
    Оценка влияния наружного диаметра колеса на силу сопротивления качения
    Выполнил: студент группы 02-А-3
    Плесков А. П
    Проверил:
    Тумасов А. В
    г. Нижний Новгород
    2006 год
    Содержание
    .Введение
    1.постановка задачи………………………………………………………………1
    2.Сведения из теории……………………………………………………………..1
    .Блок схема программы…………………………………………………………3
    4.Текст программы………………………………………………………….…….4
    5.интерфейс программы…………………………………………………….……8
    6.Результаты расчёта…………………………………..………………….………9
    7.Графики зависимостей………………………..………….……………….…….9
    8.вывод…………………………………………………………………………....10
    Введение
    Для сокращения затрат времени и средств на осуществление конструкторской
    и технологической подготовки производства необходимо их автоматизировать. Следствием научно технического прогресса является неиссякаемая потребность в
    обработке новых программных средств. При этом каждая такая разработка при решении инженерной задачи выполняются по следующим этапам:
    На первом этапе осуществляется постановка задачи, формируется конечная цель решения, являются исходные параметры и параметры результаты. Затем строится
    математическая модель - связывающих исходные параметры и параметры результаты.
    На третьем этапе выбирается метод решения задачи, позволяющий, пользуясь математической моделью ,найти параметры результаты по заданным исходным данным.
    Руководствуясь принятым методом строится алгоритм решения задачи –сформулированной на каком либо языке и в виде графической схемы последовательность действий, которая, если ей
    следовать приведёт от исходных данных к искомому результату.
    На пятом этапе составляется программа ЭВМ – тот же алгоритм, но записанный на языке понятном конкретному вычислительному устройству. Далее после контрольных
    просчётов инструмент исследования (программа) может оказаться совершенно не пригодным средством.
    Действительно, при построении математической модели, которое в частности связано абстрагированием второстепенными факторами, могут быть упущены или неконкретно
    учтены некоторые важные обстоятельства.
    Во всех случаях для завершения работ по созданию программного средства требуется вернутся к тому или иному этапу решения задачи. Поэтому, если инженер
    является специалистом только в своей области специальных знаний, то в период разработки новых программ он оказывается обречённым на полную зависимость от математика и программиста,
    что очевидно не способствует пользе дела. А современный инженер владеет основами, как правило и элементарными навыками программирования, испытывая, возможно некоторую уверенность при
    разработке прикладных программ.
    1.Постановка задачи
    Задание:
    Оценка влияния наружного диаметра колеса на сопротивление качению.
    Исходные данные:
    плечо действия нормальной реакции;
    - Нормальная реакция;
    - Момент подводимый к колёсам;
    - Коэффициент нормальной деформации шины;
    2.Сведения из теории
    Для оценки влияния наружного диаметра колеса на силу сопротивления качению необходимо рассмотреть силы,
    действующие на колесо и параметры колеса диаметр, высоту ширину шины.
    Рис.1 силы,
    действующие на колесо.
    =0,8-0,85-коэффициент нормальной деформации шины для легкового автомобиля.
    - Посадочный диаметр обода колеса.
    - Высота профиля шины.
    - Ширина профиля шины.
    - Коэффициент профиля шины.
    - Наружный диаметр колеса.
    - Плечо действия нормальной реакции.
    - Момент подводимый к колёсам.
    – сила сопротивления качению в зависимости от наружного диаметра колеса выраженного через радиусы;
    +(2*
    ) – наружный диаметр колеса;
    – посадочный диаметр;
    =0.5(
    – динамический радиус колеса выраженный через наружный диаметр;
    =1,04*
    – радиус качения;
    В расчётах принято средние
    расчитанные параметры для легкового автомобиля:
    a=0,006(
    =4500
    =250
    (H*M)
    =0,8
    .Блок схема алгоритма расчёта
    начало
    SHAPE
    \\* MERGEFORMAT
    a, R, T, Y, K, B, d
    a, R, T, Y, K, B, d
    B=B/1000;
    Y=Y/10; a=a/10;
    rd=0,5(D-2*K*B)+Y*K*B;
    =1,04*rd
    Diam=D1 to D2
    Step(D2-D1)/10
    i=i+1
    Ff=((a*R)/rd)+(T(rd-
    rk))/rd*
    Diam(
    КОНЕЦ
    4.Текст
    программы
    Private Sub
    UserForm_Initialize()
    st As String
    Dim e As String
    line3:
    InputBox(\"Прочитать из файла?\")
    If e = \"
    да
    \" Or e = \"yes\" Or e = \"
    \" Or e = \"y\" Then
    GoTo
    line1
    ElseIf
    e = \"
    нет
    \" Or e = \"no\" Or e = \"
    \" Or e = \"n\" Then
    GoTo
    line2
    Else
    GoTo
    line3
    End If
    line1:
    Open
    ThisWorkbook.Path \"\\dok.txt\" For Input As #1
    i = 1 To 23
    Line Input #1,
    i = 2 Then TextBox1.Value =
    CInt(
    i = 3 Then TextBox4.Value =
    CInt(
    i = 6 Then TextBox2.Value =
    CInt(
    i = 7 Then TextBox5.Value =
    CInt(
    i = 10 Then TextBox3.Value =
    CInt(
    i = 11 Then TextBox6.Value =
    CInt(
    i = 14 Then TextBox9.Value =
    CInt(
    i = 17 Then TextBox8.Value =
    CInt(
    i = 20 Then ComboBox2.Text =
    i = 23 Then TextBox11.Value =
    CInt(
    Next
    Close #1
    line2:
    ComboBox2.AddItem \"4400\"
    ComboBox2.AddItem \"4450\"
    ComboBox2.AddItem \"4500\"
    ComboBox2.AddItem \"4550\"
    End Sub
    Private Sub CommandButton1_Click()
    Unload UserForm1
    End Sub
    АЛГОРИТМ
    ДЛЯ
    КНОПКИ
    РАСЦЁТ
    Private
    Sub CommandButton2_Click()
    обьявление необходимых переменных
    Dim B(1 To 2) As Single
    Dim R As Integer
    Dim T As Integer
    Dim K(1 To 2) As Single
    Dim d(1 To 2) As Single
    Dim a As Single
    Dim Y As Single
    rk(1 To 2) As Single
    Dn(1 To 11) As Single
    Dim rd(1 To 2) As Single
    Dim Ff(1 To 11) As Single
    Dim H(1 To 2) As Single
    Diam As Single
    Dim LT As Boolean
    Variant
    програма проверки
    коректности ввода чисел в форму
    If ComboBox2.Text = \"\" Then
    MsgBox
    Введите
    реакцию
    Rz\")
    GoTo
    line:
    End If
    For Each box In Controls
    If Left(
    box.Name, 7) = \"
    TextBox\" Then
    IsNumeric(
    box.Value) = False Then
    MsgBox
    (\"Все ли числа\")
    GoTo
    line:
    End If
    box.Value = 0 Then
    MsgBox
    ПРоверьте все ли числа 0?\")
    GoTo
    line:
    End If
    End If
    Next box
    присваевание
    переменных
    ячейкам
    B(1) = TextBox1.Value
    K(1) = TextBox2.Value
    d(1) = TextBox3.Value
    B(2) = TextBox4.Value
    K(2) = TextBox5.Value
    d(2) = TextBox6.Value
    Y = TextBox9.Value
    T = TextBox8.Value
    a = TextBox11.Value
    Open
    ThisWorkbook.Path \"\\dok.txt\" For Output As #1
    Print #1, \"
    ширина
    i = 1 To 2
    Print #1, B(
    Next
    Print #1, \"\"
    Print #1, \"
    коэфицент
    i = 1 To 2
    Print
    #1, K(
    Next
    Print
    #1, \"\"
    Print
    #1, \"посадочный диаметр\"
    i = 1 To 2
    Print #1, d(
    Next
    Print
    #1, \"\"
    Print
    #1, \"
    коэф.норм деформации\"
    Print
    #1, Y
    Print
    #1, \"\"
    Print
    #1, \"момент
    подв. к
    колёсам,Нм\"
    Print
    #1, T
    Print
    #1, \"\"
    Print
    #1, \"нормальная реакция,(H)\"
    Print
    #1, ComboBox2.Text
    Print #1, \"\"
    Print #1, \"
    плечо
    силы
    Print
    Close
    CSng(ComboBox2.Text)
    LT = CheckBox1.Value
    \'UserForm1.Hide
    \'расчёт необходимых переменных
    a / 1000
    Y = Y / 10
    i = 1
    To 2
    i) = B(
    i) / 1000
    i) = K(
    i) / 100
    i) =
    i) * 0.0254
    i) = K(
    i) * B(
    i) = d(
    i) + 2 * H(
    i) = 1 / 2 * (
    i) - 2 * H(
    i)) + Y * H(
    i) = 1.04 * rd(
    Next
    With
    Worksheets(\"лист1\")
    Range(\"A1\").Value = \"D
    нар
    Range(\"B1\").Value = \"F
    сопр
    Diam =
    Dn(1) To
    Dn(2) Ste...

    Забрать файл

    Похожие материалы:


ПИШЕМ УНИКАЛЬНЫЕ РАБОТЫ
Заказывайте напрямую у исполнителя!


© 2006-2016 Все права защищены