Шестаков В.С. Оптимизация параметров горных машин. Учебное пособие (811777), страница 20
Текст из файла (страница 20)
После окончания первого цикла определяется шагвывода строк по времени dTv=Т/10 (10 взято из соображения, чтобы115таблица поместилась на странице Excel – для этого число строк недолжно превысить 24). При выполнении второго цикла расчетов(kviv=2) осуществляется вызов подпрограммы Вывод1 для выводастроки в таблицу в момент, когда текущее значение времени T превысит вспомогательное время вывода Tv (оператор сравненияIf (T >=Tv) And (Kviv = 2) в этом случае выдаст True).Sub Вывод1(iv, Tv, T, V, X, dTv - вывод строки данных (оформленсамостоятельной процедурой), в ней сразу же после вывода строкиданных выполняется увеличение номера строки на единицу iv=iv+1,чтобы следующий вывод был в новой строке, а также увеличениезначения вспомогательного времени Tv=Tv+dTv, которое используется в операторе сравнения If (T >=Tv) .В данном примере в программе использована передача данных между подпрограммами через аргументы процедур.
В предыдущем примере (см. п. 5.3) передача данных выполнялась глобальными переменными. Передача данных через аргументы предпочтительнее, так как в этом случае в подпрограмме только один вход ивыход. Чтобы найти, в каком месте произошло вычисление какойлибо переменной, не нужно будет просматривать все процедуры впоиске соответствующего оператора присваивания или ввода. Например, в процедуре "Расчет1" мы решили проверить в выраженииFdv = Po * S, где задается значение переменной Ро. Просматриваяучасток выше этого выражения, мы не найдем в этой процедуреоператора, которым задано значение этой переменной, но обнаружим, что переменная указана в заголовке процедуры в аргументах.Далее рассматриваем оператор вызова. Он находится в основнойпроцедуре «Ударник» и имеет вид Call Расчет1(M, Po, L1, S, f, k,dT, T, V, X, iv, Tv, dTv). Выше этого оператора вызова находитсяоператор вызова другой процедуры «Ввод», в аргументах котороготакже присутствует рассматриваемая переменная.
Просматриваяпроцедуру «Ввод», мы обнаружим оператор присваивания, которымиз ячейки "F4" листа "Ударник" передается значение переменнойРо. Имя листа указано в операторе With Worksheets("Ударник").Далее искать другой оператор, которым также могло бы быть задано значение переменной Ро, не нужно, так как в переменной сохраняется последнее введенное в нее значение. Если нас не устраивает по каким-либо причинам в программе значение переменной Ро,то для его изменения следует перейти к листу "Ударник" и изме116нить число в ячейке "F4".В результате реализации алгоритма и добавления элементовдля вывода получена следующая программа:Option Explicit'Расчет максимального хода ударникаSub Ударник()‘Основная п.п.
вызывается щелчком по кнопкеDim M As Single, Po As Single, L1 As Single, S As Single, f As SingleDim k As Single dT As Single, dTv As Single, T As Single, V As SingleDim iv As Integer, X As Single, Tv As SingleОчистка'Вызов п.п. очистки таблицыCall Ввод(M, Po, L1, S, f, k, dT) 'Вызов п.п. ввода данныхCall Расчет1(M, Po, L1, S, f, k, dT, T, V, X, iv, Tv, dTv) 'Вызов п.п. расчетаCall Расчет2(M, Po, L1, S, f, k, dT, T, V, X, iv, Tv, dTv)Call Вывод2(iv, T, X)'Вызов п.п. вывода конечных результатовEnd Sub.Sub Ввод(M, Po, L1, S, f, k, dT) 'Ввод данных с листаWith Worksheets("Ударник")' Указание листа для ввода из ячеекM = .Range("F3").Value' Ввод массы из ячейки "F3"Po = .Range("F4").Value' Ввод давления сжатого воздуха из "F4"L1 = .Range("F5").Value' Ввод хода до выхлопного отверстияS = .Range("F6").Value' Ввод площади ударникаf = .Range("F7").Value' Ввод коэф.
для расчета усилия Fck = .Range("F8").Value' Ввод коэф. для расчета усилия FcdT = .Range("F9").Value' Ввод шага интегрированияEnd With' Завершение оператора WithEnd Sub.' Расчет до перекрытия выхлопного отверстияSub Расчет1(M, Po, L1, S, f, k, dT, T, V, X, iv, Tv, dTv)Dim Kviv As Integer, Fdv As Single, Fc As SingleFor Kviv = 1 To 2' Цикл для организации вывода в табл.V=0: X=0: T=0Tv = 0' Время для вывода в табл.iv = 12' Задание строки начала вывода таблицыWhile X < L1Fdv = Po * S' Движущее усилиеFc = f * M + k * V ^ 2' Усилие сопротивленияV = V + (Fdv - Fc) * dT / M' СкоростьX = X + V * dT' Перемещение ударникаT = T + dT' Время с начала движенияIf (T>=Tv) And (Kviv=2) Then Вывод1 iv, Tv, T, V, X, dTv ‘Вывод стрWenddTv = T / 10'Расчет шага по времени для вывода в таблицу117Next KvivEnd Sub.' Расчет после перекрытия выхлопного отверстияSub Расчет2(M, Po, L1, S, f, k, dT, T, V, X, iv, Tv, dTv)Dim Fdv As Single, Fc As SingleWhile V >= 0Fdv = Po * SFc = f * M + k * V ^ 2V = V + (-Fdv - Fc) * dT / MX = X + V * dTT = T + dTIf (T >= Tv) Then Вывод1 iv, Tv, T, V, X, dTv ‘Вызов вывода строкиWendВывод1 iv, Tv, T, V, X, dTvEnd Sub.Sub Вывод1(iv, Tv, T, V, X, dTv)' Вывод строки данных в таблицуWith Worksheets("Ударник").Cells(iv, 1).Value = iv – 11 ' Порядковый номер строк в таблице.Cells(iv, 2).Value = T' Время с начала движения.Cells(iv, 3).Value = V' Текущая скорость.Cells(iv, 4).Value = X' Текущее перемещение с начала движенияiv = iv + 1‘ Изменение номера строки для последующего выводаTv = Tv +dTv‘Изменение времени для вывода следующей строкиEnd WithEnd Sub.Sub Вывод2(iv, T, X) 'Вывод конечных результатовiv = 35‘Номер строки вывода на листе ExcelWith Worksheets("Ударник")Программа рас.Cells(iv, 1).Value = "1.
Время перемещения, с"чета макси.Cells(iv, 6).Value = Tмального хода.Cells(iv + 1, 1).Value = "2. Максимальная ход, м/с".Cells(iv + 1, 6).Value = XEnd WithEnd SubSub Очистка() ‘П.п. очистки таблицы для последующего выводаRange("A12:F45").Select‘Задание диапазонаSelection.ClearContents‘ОчисткаRange("A12").Select‘ Снятие выделения с диапазонаEnd Sub.Расположение информации на листе Excel для этой программы показано на рис.
5.10.118ACDEРасчет максимального хода ударникаИсходные данные1. Масса ударника m, кг2. Давление сжатого воздуха Ро, Па3. Ход до выхлопного отверстия L1, м4. Площадь ударника S, м5. Коэффициент для расчета усилия сопротивления f6. Коэффициент для расчета усилия сопротивления k7. Шаг интегрирования по времени, сF1010000000.40.010.10.050.0001Пройденноерасстояние, мNСкорость, м/сРезультаты расчетовВремя с началадвижения, с12345678910B11121 0.000 0.10 0.00132 0.006 5.70 0.02143 0.011 11.40 0.07154 0.017 16.99 0.15165 0.023 22.68 0.26176 0.028 28.26 0.40187 0.034 22.54 0.55198 0.040 16.83 0.66209 0.043 14.03 0.7021 10 0.045 11.22 0.7422 11 0.048 8.32 0.7623 12 0.051 5.52 0.7824 13 0.054 2.72 0.8025 14 0.057 -0.08 0.802627 1.
Время перемещения, с0.056628 2. Максимальный ход, м0.7986Рис. 5.10. Расположение информации на листе Excel1195.8. Расчет продолжительности поворота платформыэкскаватора на заданный уголВ рассмотренных выше задачах движущие усилия и моментыявляются постоянными. В реальных же механизмах они, как правило, меняются в процессе рабочего цикла. Данная задача являетсяпримером задач, в которых меняется движущий момент в процессеразгона.Формулировка задачиОпределить время поворота платформы экскаватора на заданный угол. Статическая характеристика привода постоянного токапредставлена на рис.
5.11.При разгоне двиω.ωххжущий момент меняется в соответствии с граω.pграфиком статическойωотсхарактеристики, а приторможении он поМpω.pстоянен и равен максимальномузначению.Мmax ММомент инерции вМpМотспроцессеповоротаРис 5.11. Статическая характеристикапринимается неизменным.ωхх – скорость холостого хода; ωотс – скорость отсечки; Мmax – максимальный моментИсходные данные:привода; Мотс –момент отсечки привода; - угол поворотаω.p – текущее значение скорость при разгоне;платформы, рад; Jпч М.p – текущее значение момента при разгоне.момент инерции поворотной части экскаватора, кг.м2; U - передаточное число механизма;Nдв - мощность привода поворота, кВт; н - номинальная скоростьдвигателя, 1/с; Jдв - момент инерции ротора двигателя, кгм2., Мс момент сопротивления повороту платформы, Нм; — КПД механизма; Кп- коэффициент для расчета максимального момента привода.Анализ задачиКонструктивная схема механизма представлена на рис. 5.12.Механизм работает следующим образом.
Крутящий момент от120двигателя передается через редуктор на выходной вал с венцовойшестерней. Шестерня входит в зацепление с зубчатым венцом,закрепленным на ходовой тележке. Так как венец заторможен, тоначнется поворот платформы.Процессу разгона будетЭл. двигательпрепятствовать момент соРедукторпротивления Mc, дейстВыходной вал с венцовой шестернейвующий на платформу вопорно-поворотном устройЗубчатый венецстве, а также момент сопроРис.
5.12. Конструктивная схемативления от сил трения примеханизмапередаче движущего момента от двигателя к венцовой шестерне. При торможении же этимоменты, наоборот, помогают, увеличивая тормозной момент. Момент от сил трения достаточно просто и точно можно учесть черезКПД механизма .
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
