Разработка конструкции и обоснование параметров инерционно-рубящего рабочего органа кустореза для удаления лесной поросли
Диссертация
Обоснованность результатов исследований. Выводы диссертационной работы базируются на результатах фактического материала, полученного при проведении лабораторных и полевых испытаний. В ходе проведения лабораторных исследований учитывались плотность, влажность, порода и биометрические показатели поросли. Полученные данные обрабатывались методом математической статистики с использованием программ… Читать ещё >
Список литературы
- Александров Е.В. Прикладная теория и расчёты ударных систем / Е. В. Александров, В. Б. Соколинский М.: Наука. 1969. — 201 с.
- Алимов О. Д. Удар. Распространение волн деформаций в ударных системах / О. Д. Алимов, В. К. Манжосов, В. Э. Кремьянц- Отв. ред. Я. Г. Пановко. М.: Наука, 1985.-357 с.
- Аниферов Ф.Б. Машины для садоводства. Л.:Лесн. пром-сть, 1976. — 255 с.
- Аппель А. Теоретическая механика. Т.1. :Статика. Динамика точки. М.:Гл. ред физ-мат. лит., 1960. — 515 с.
- Аппель А. Теоретическая механика. Т.2. :Динамика системы. Аналитическая динамика. М.: Гл. ред физ-мат. лит., 1960. — 515 с.
- Аравийский В.П. Анализ работы орудий для срезания древесных и кустарниковых насаждений / В. П. Аравийский, И. Н. Пенькова // Механизация защитного лесоразведения. Волгоград. 1986. — С. 95−101.
- Атрохин В.Г. Рубки ухода и промежуточное лесопользование. / В.Г. Атро-хин, И. К. Иевинь. М.:Агропромиздат, 1985. — 255 с.
- Баранов А.И. Машины и механизмы для лесного хозяйства: Учеб. пособие. -М.:Гослесбумиздат, 1962. 380 с.
- Бартенев И.М. Машины и механизмы для рубок ухода: современный технический уровень / И. М. Бартенев, Г. Л. Котляр // Лесное хозяйство. 1992. — № 2−3. -С. 48−50.
- Бартенев И.М. Особенности подготовки площадей и обработки почвы при лесовосстановлении в дубравах / И. М. Бартенев, П. Э. Гончаров // Лесное хозяйство Поволжья. Вып 4: Межвуз. сб. научн. работ / Сарат. СХИ Саратов. -2000. С. 166 173.
- Бартенев И.М. Ротор кустореза / И. М. Бартенев, В. П. Попиков, М.В. Драпа-люк, Л. Д. Бухтояров. Воронеж, 2003. ЦНТИ, 2003, — 2с. (Информ. Листок № 79 214−03)
- Белов C.B. Лесоводство. Учебное пособие для вузов. М.: Лесн. пром-сть, 1983.-352 с.
- Беловзоров Л.Н. Цепные режущие устройства лесозаготовительных машин / Л. Н Беловзоров, C.B. Дмитриев, Ю. А. Рудаков, В. З. Матюшкин. М. 1982. — 134 с.
- Березин Н.Г. Определение критической скорости резания стебля // Механизация и электрофикация с/х -1963. № 2. — С. 16−18.
- Бершадский А.Л. Резание древесины. / А. Л. Бершадский, П. И. Цветаева -Минск: Вышэйшая школа, 1975. 304 с.
- Боровиков A.M. Исследование влияния температуры и влажности на упругость, вязкость и пластичность древесины: Дис.. канд. техн. наук: 05.21.01 Архангельск, 1968 — 149 с.
- Босой Е. С. Скорость резания стеблей сельскохозяйственных культур. // Сельхозмашина, 1953. — № 4. — С. 19−22.
- Босой Е. С. Теория, конструкция и расчет сельскохозяйственных машин / Е. С. Босой, О. В. Верняев, И. И. Смирнов, Е.Г. Султан-Шах. М.: Машиностроение, 1978.- 568 с.
- Босой Е.С. Режущие аппараты уборочных машин. М.: Машиностроение. 1967.-167 е.
- Бредун М.И. Механизация работ в садах и виноградниках. М.:Высш. шк. -1967.-144 с.
- Бугаев В. А. Реконструкция малоценных лесов / В. А. Бугаев, Н. В. Глады-шева. Воронеж: Изд-во ВГУ, 1991. -128 с.
- Бутенин Н.В. Курс теоретической механики / Н. В. Бутенин, ЯЛ. Лунц, Д. Р. Меркин: Учебник. Т1: Статика и кинематика. 4-е изд., исправл. — М.: Наука, гл. ред. физ-мат. лит. 1985. — 240 с.
- Бутенин Н.В. Курс теоретической механики / Н. В. Бутенин, Я. Л. Лунц, Д. Р. Меркин: Учебник. Т2: Динамика. 3-е изд., исправл. — М.: Наука, гл. ред. физ-мат. лит. 1985.-496 с.
- Бухтояров Л.Д. Исследование количества, биометрических параметров и физико-механических свойств поросли осины / Бухтояров Л.Д.- Воронеж, гос. лесо-техн. акад. Воронеж, 2004. 12 с. ил. Библиогр. 1 назв. Рус. Деп. в ВИНИТИ 29.01.2004, № 165-В2004.
- Бухтояров Л.Д. Силовое взаимодействие режущего элемента гибкого инерционно-рубящего рабочего органа кустореза с порослью // Лесное хозяйство Поволжья. Вып 7: Межвуз. сб. научн. работ / Сарат. СХИ Саратов. -2003. с.
- Бухтояров Л.Д. Технические средства для удаления поросли древесиных и кустарниковых пород / Воронеж, гос. лесотехн. акад. Воронеж, 2002. 9с. Библиогр. 2 назв. Рус. Деп. в ВИНИТИ 22.08.2002, № 1514-В2002.
- Буш К. К. Экологичские и технологические основы рубок ухода / К. К. Буш, И. К. Иевинь. Рига: Зинатне, 1984 .- 172 с.
- Варфоломеев В.Е. Осветление культур ели на нераскорчёванных вырубках //Лесн. хоз-во. -1989. № 12. — С. 22−24.
- Василенко И. Ф. Экспериментальная теория режущих аппаратов. ТК и ПСМ, М.-Л.: Гослесбумиздат, 1936. -134 с.
- Воскресенский С.А. Резание древесины. М.: Гослесбумиздат, 1955. — 199 с.
- Герасименко В.Я. Разработка и обоснование параметров срезающего механизма полуавтоматичексой машины для рубок ухода за молодыми культурами сосны: Дис. канд. техн. наук: 05.21.01.-Харьков, 1988−266 с.
- Гончаров П.Э. Повышение эффективности рабочих органов дисковых борон при обработке почвы на вырубках: Дис.. канд. техн. наук: 05.21.01.- Воронеж, 1998.-221 с.
- Горячкин В.П. Собрание сочинений / Под ред. Н. Д. Лучинского.- 2-е изд.-М.: Колос, 1968.- 3 т. 384 с.
- Гутьяр Е. М. К теории резания стеблей. // Сельхозмашина, 1931. — № 7, -С. 12−13.
- Дж. А. Зукас. Динамика удара / Дж. А. Зука, Т. Николас, Х. Ф. Свифорт. -М.:Мир, 1985.-296 с.
- Драпалюк М.В. Влияние геометрических и физико-механических факторов на перерезание древесины / М. В. Драпалюк, Л. Д. Бухтояров // Лес. Наука. Молодёж ВГЛТА 2003: Сб. научн. тр. / Под ред. акад. РАЕН, проф Л. Т. Свиридова, Воронеж: ВГЛТА, 2003, с. 240−244.
- Драпалюк М.В. Обоснование основных параметров рабочих органов машины для подрезки корней сеянцев дуба в питомниках лесостепи: Дис.. канд. техн. наук.:05.21.01 Воронеж, 2000. — 180 с.
- Дьяконов В.И. Технология и механизация разреживания кулис при рубках ухода в молодняках культур дуба: Дис. канд. техн. наук: 05.21.01 Харьков, 1986. — 178 с.
- Еньков Е.И. Теллермановский лес и его восстановление.- Воронеж.:ВГУ. -1976.-216 с.
- Желиговский В.А. Экспериментальная теория резания лезвием // Труды МИМЭСХ. М., 1940. — Вып. 9. — 27 с.
- Захаров В.В. Импульсное резание древесины. М.: Лесн. пром-сть, 1983. — 160 с.
- Зима И.М. Механизация лесохозяйственных работ / И. М. Зима, Т. Т. Малюгин.- 3-е изд., перераб. и доп.- М.: Лесн. пром-сть, 1976.- 416 с.
- Зяблов В.П. Основы теории технологии процесса резания в режущих аппаратах кормоприготовительных машин. М.:Машиностроение, 1964. — 123 с.
- Иванов Л.А. Свет и влага в жизни наших древесиных пород. М.-Л.:АН СССР.- 1946.-60 с.
- Ивашко А. А. Вопросы теории резания органических материалов лезвием // Тракторы и сельхозмашины. 1958. № 2. — С. 15−17.
- Иевлев А.И. Исследование режущего аппарата с пильной цепью повышенной устойчивости: Дис. канд. техн. наук: 05.420 Воронеж, 1972.-208 с.
- Изюминский П. П. Машина для рубок ухода в молодняках. / П.П. Изюмин-ский, Ф. Г. Стахейко, И. К. Ильиченко // Лесное хозяйство, 1973. № 10, — С. 56−58.
- Казаков В.И. Обоснование технологических параметров фрезерования почвы с древесинными включениями на нераскорчёванных вырубках: Дис.. канд. техн. наук: 05.21.01- Пушкино, 1982 199 с.
- Калиниченко Н. П. Лесовосстановление на вырубках / Н. П. Калиниченко, А. И. Писаренко, Н. А. Смирнов. М.: Экология, 1991. — 384 с.
- Козинов Г. Л. Беззажимная распиловка древесины гибкими нитями: Дис.. канд. техн. наук: 05.21.01 / Сиб. гос. технолог, ун-т. Воронеж, 1999.-338 с.
- Константинов В. А. Определение критической скорости резания свободного стебля. // Тракторы и сельхозмашины, 1964. № 12. — С. 20−22.
- Кочегаров В.Г. Технология и машины лесосечных работ / В. Г. Кочегаров, Ю.А., Бит, В. Н. Меньшиков. -М.:Лесн. пром-сть, 1990. 390 с.
- Крыльцов В.Д. Исследование процесса и параметров устройств бесстружечного ножевого перерезания стволовой древесины: нитями: Дис. канд. техн. наук. / ЦНИИНЭ.-М., 1973.- 181 с.
- Курапцев Н. Ф. Определение сил действующих на резец при косоугольном резании // Науч. труды / Кар. НИИЛПа. Петразаводск, 1969. — 20 с.
- Ларюхин Г. А. Механизация лесного хозяйства / Г. А. Ларюхин, Л. С. Златоустов, B.C. Раков. М.:Лесная пром-сть, 1975. — 278 с.
- Леонтьев Н. Л. Влияние влажности на физико-механические свойства древесины. М.: Гослесбумиздат, 1962. — 114 с.
- Лосицкий К.Б. Восстановление дубрав. М.: Сельхозиздат, 1963. — 366 с.
- Лукин И. Н. Отклонение стебля при безопорном срезе. // Тракторы и сельхозмашины, 1967. -№ 12. — С. 22−23.
- Лушников М.В. Совершенствование технологического процесса и обоснование основных параметров ротационно-консольного кустореза для осветления лесных культур на не раскорчеванных вырубках: Дне.. канд. техн. наук. Саратов, 2001.- 197 с.
- Майоров Л.И. Исследование работы тракторного кустореза в хвойно-лиственных молодняках //Лесн. хоз-во 1979. — № 11. — С. 24−25.
- Майоров Л.И. Комплекс устройств для срезания маломерной древесной и кустарниковой растительности // Лесн. культуры в Сред. Поволжье. М., 1991. С. 6272. Деп. во ВНИИЦлесресурс 04.02.91. № 851 — ЛХ 91.
- Майоров Л.И. Результаты исследований процесса срезания деревьев, кустарника и поросли // Рубки и восстановление леса в Сред. Поволжье. -М., 1991. с. 48−53 Деп. во ВНИИЦлесресурс 04.02.91. № 852-ЛХ91.
- Мореев В.П. Механизация расчистки площадей от древесной и кустарниковой растительности. М. Лесное хоз-во, 1966. — 29 с.
- Налог на прибыль организаций (2002). Налоговый кодекс РФ. Часть 2. глава 25.- Воронеж, 2001.- 180 с
- Нартов П.С. Проектирование и расчёт лесохозяйственных машин: Учеб. пособие. Воронеж: Воронеж. ун-та, 1980. — 192 с.
- Нарышкин В.П. Машины для сводки кустарника и мелколесья / В. П. Нарышкина, С. А Винчи, И. Ш. Сумецкий. Обз. инф. М.: ЦНИИТЭстроймаш, 1977. -48 с.
- Новиков Ю. Ф. Теория и расчет ротационного режущего аппарата с рубящими рабочими органами. // Сельхозмашина, № 8, 1957. с. 1−5.
- Новосельцев В.Д. Дубравы / В. Д. Новосельцев В.А. Бугаев. М.: Агропром-издат, 1985.-214 с.
- О классификации основных средств, включаемых в амортизационные группы." Постановление правительства РФ от 1 января 2002 г. № 1.- 43 л.
- Основные положения по ведению хозяйства в дубравах. М.-.ЦБНТИ. 1987. -45с.
- Отраслевые методические указания и нормативно справочные материалы для определения экономической эффективности новой техники в тракторном и сельскохозяйственном машиностроении / Под. ред. Яловенко Ф.И.- М., 1976 — 230 с.
- Отраслевые методические указания по определению экономической эффективности использования в лесном хозяйстве новой техники, изобретений и рацпредложений / ЦБНТИлесхоз.- М., 1978.- 78 с
- Отрослевые методические указания по определению экономической эффективности использования в лесном хозяйстве новой техники, изобретений и рацпредложений." М., 1981.- 45 с.
- Павленко И.А. О ширине и направлении коридоров при реконструкции мо-^ лядняков. // Лесное хозяйство. 1967. — № 7. — С. 33−34.
- Пановко Я. Г. Основы прикладной теории колебаний и удара. -4-е изд., пе-рераб. и доп. Л.: Политехника, 1990. — 271 с.
- Пановко Я.Г. Введение в теорию механического удара. М.: Наука. 1977. -224 с.
- Перелыгии A.M. Древесиноведение / A.M. Перелыгин, Б. Н. Уголев. -^ М.:Лес. пром-сть, 1971.-286 с.
- Петровский B.C. Экономико-математические методы: Учеб. пособие. Во-ронеж.:Воронеж. гос. лссотехн. акад. 2000. — 159 с.
- Печенкин В. Е. Бесстружечное резание древесины / В. Е. Печенкин, П. М. Мазуркин. М.: Лесн. пром-сть, 1986. — 143 с.
- Воронеж. ВГЛТА, 2003, С. 109 — 112.
- Попиков П.И. Повышение эффективности гидрофицированных машин при лесовосстановлении на вырубках. Воронеж.:Воронеж. гос. лесотехн. акад., 2001. -156 с.
- Попиков П.И. Проектирование самоходных лесных машин: Учеб. пособие / П. И. Попиков, Л. Д. Бухтояров. Воронеж.:Воронеж. гос. лесотехн. акад., 2002. -90 с.
- Пошарников Ф.В. Моделирование и оптимизация процессов в лесном комплексе: Учеб. пособие. Воронеж.'.Воронеж. гос. лесотехн. акад., 2002. — 270 с
- Пошарников Ф.В. Технология и техника в лесной промышленности: Учеб. пособие. Воронеж.: Воронеж, гос. лесотехн. акад., 1998. — 180 с.
- Прохоров JI.H. Механизация рубок ухода в молодняках / JI.H. Прохоров, В. Ф. Зинин // Лесн. хоз-во. 1994. — № 3. — С. 47−50.
- Раев Б.Г. Резание стеблей без противорежущей части. Вестник с.-х. науки, -1962. -JSTall.- С.20−23.
- Резник Н.Е. Теория резания лезвием и основы расчёта режущих аппаратов.-М.: Машиностроение, 1975.-311 с.
- Рубцов В.И. Культуры сосны в лесостепи цетрально-чернозёмных областей. М.: Лесн. пром-сть, 1964. — 316 с.
- Савина A.B. Физиологическое обоснование рубок ухода / A.B. Савина, М. В. Журавлёва М.:Лесн. пром-сть, 1978. — 104 с.
- Свиридов Л.Т. Основы научных исследований: Учеб. пособие. Воронеж.: Воронеж, гос. лесотехн. акад., 2003. — 314 с.
- Свиридов Л.Т. Технологии машины и оборудование в лесном хозяйстве: Учеб. пособие/ Л. Т. Свиридов, В. И. Вершинин. Воронеж.: Воронеж, гос. лесотехн. акад., 2003.-312 с.
- Селезнев Б. И. Режущий орган для безопилочного резания. // Лесная промышленность, 1961. -№ 12. — С. 22−24.
- Сериков Ю.М. Расчёт параметров рабочего органа цепного кустореза / Ю. М. Сериков, В. Т. Дегтев, A.A. Гойденко //Лесн. хоз-во, -1995. № 2. — С. 45−46.
- Справочник лесохозяйственных машин, оборудования и приборов, разработанных ВНИИЛМ, ЦОКБлесхозмаш, С.-П.НИИЛХ, Вырицким ОМЗ, ВНИИ
- ПОМлесхоз и рекомендованных в производство / Под ред. В. И. Казакова. Пушкино. 2001.- 134 с.
- Справочник по сопротивлению материалов / Под ред. Г. С. Писаренко, А. П. Яковлев, В. В. Матвеев. Киев.: Наукова думка 1975. — 704 с.
- Справочник по теоретической механики / Под. ред А. Н. Динник. М.: ОГИЗ гос. изд. технико-теоретической л-ры., 1949. — 744 с.
- Сухов И.В. Обоснование технологии искусственного лесовосстановления в свежих типах леса нагорных дубрав Ц.Ч.Р.: Дис.. канд. с.-х. наук: 06.03.01.- Воронеж, 1982.-245 с.
- Тимофеев В.П. Осветления и прочистки. М.:Лесн. пром-сть, 1961. — 67 с.
- Ткаченко М. Е Общее лесоводство. М.: Гослесбумиздат 1952. — 600 с.
- Трофимов С. Д. Исследование косого среза толстостебельных растений. // Сельхозмашина 1957. — № 5. — С. 6−7.
- Тудель Н. В. Исследование энергоемкости процесса резания толстостебельных растений / Н. В. Тудель, В. М. Верхуша // Тракторы и сельхозмашины, -1967.-№ 1 С. 25−28.
- Уголев Б.Н. Испытание древесины и древесных материалов. М/.Лесная промышленность, 1965.-251 с.
- Успенский E.H. Машинная техника при разработке лесосек с сохранением подроста в Среднем Поволжье / Е. И. Успенский, Ю. А. Ширнин. Обзор. инф.:ВНИИЦлесресурс. М. — № 8. — 1994. — 38 с.
- Цыплаков В.В. О доступности вырубок степной и лесостепной зон Поволжья для лесокультурной техники // Лесное хозяйство, лесомелиорация и охрана природы: Сб. научн. работ / Сарат. СХИ Саратов, 1993. — С. 103−109.
- Шахов Е. Н. Параметры кустореза-осветителя с активными рабочими органами // Теоретические и экспериментальные обоснования параметров лесохозяй-ственных машин / Сб. науч. тр. ВНИИМ. М., 1981. — С. 54−60.
- Шутов И.В. Арборициды при реконструкции малоценных молодняков. // Лесное хозяйство. 1965, — № 4. — С. 18−19.
- Ящерицын П. И. Ротационное резание материалов / П. И. Ящерицын, А. В. Борисенко, И. Г. Дривотин, В. Я. Лебедев — АН БССР, Физ.-техн. ин-т. Минск: Наука и техника, 1987. — 228 с.
- Abrahamson, L.P. and D.H. Bickelhaupt (eds.). 1980. Proceedings, North American forest tree nursery soils workshop. State Univ. New York, Coll. Environ. Sei. and Forestry, Syracuse.
- Duryea, Mary L., and Thomas D. Landis (eds.). 1984. Forest Nursery Manual: Production of Bareroot Seedlings. Martinus Nijhoff/Dr. W. Junk Publishers, The Hague/Boston/Lancaster for Forest Research Laboratory, Oregon State University, Corval-lis.
- Fachkatalog '94Г95 fur forst unt holzwirtschaft, landwirtschaft, park and garten
- Kummel, J.F., C.A. Rindt, and T.T. Mungcr. 1944. Forest planting in the Douglas-fir region. U.S.D.A. Forest Serv., Washington, D. C
- Sagewerkstechnik. Mit 226 Beldern / Autoren kollektiv. Leipzig.: VEB. Fachbuchverlag, 1971. 278 s.
- Salon international de la machine agricole, Numero special SIMA 1976/ INTERCETEF. Paris, 1976. p. 3−56. — (Bull. Vulg. forest. №½)
- Soucek P, Regge H. Grundsatze fur die Konstruktion von Landmaschinen. -Berlin, VEB Verlag Technik, 1979. 223 s.
- Traktoren / Blumenthal. Berlin: VEB Verlag Technik, 1978. — 376 s.
- Программа для расчета кинематики гибкого рабочего органа в трёхплоскостяхinclude «pragma hdrstop
- USERES («.A.Kinematik02ProjectI.res») —
- USEFORM («Kinem 02. cpp», Forml)---------------------7.---------------------------------------------
- WINAPI WinMain (HINSTANCE, HINSTANCE, LPSTR, int) {try {
- AppIication→InitiaIize () — AppIication→CreateForm (classid (TForml), 1. FormI)-1. Application→Run ()-catch (Exception ?exception) {
- Arr xij[k.=Arr r[k]*sin (Arrw[k]*t) — Arry1. k]=Arrr[k]*cos (Arrw[k]*t) —
- Arrz1.k.=/*Arr r[k]**/Koeffsin (Arr wud[k]*t/*Tud*0. 001*/) —
- StringGrid I →Cells0.1.=t- StringGrid 1 →Cells[l][i]=Arrx[i][k]-
- StringGrid I →CeIls2.1.=Arry[i][k]- }else
- Arrx1.k.=Arrr[k]*sin (Arrw[k]*t) — //находим вектор длины
- Arry1.k.=Arrr[k]*cos (Arrw[k]*t) —
- Arrz1.k.=Koeff>sin (Arrwud[k]*t/*Tud*0.001*/) —
- Arrx1.k.=Arrx[i][k]*cos (Arrw[k-l]*t-Arrw[k]*t) — //проицируем на ось OX
- Arry1.k.=Arry[i][k]*cos (Arrw[k-I]*t-Arrw[k]*t) — //проицируем на ось OY // Arrz[i][k]=Arrz[i][k]*cos (Arrwud[k-l]*t
- Arrwudk.*t) — //проицируем на ось OZ
- Gipot XY=sqrt (pow (Arr x1.k.-Arrx[i][k-1 ], 2)+pow (Arry[i][k]-Arrly[i][k-1 ], 2" — Arr z[i][k]=Gipot XY*Arr z[i][k]-1. С! ро1Хг=01ро1Хг+5яп (роу (0!ро1ХУ, 2)+роу (ЛгггП.к] -Аггг[!][к-1], 2)) — //в объёме, гипотенуза в плоскости ХОУ является катетом
- Аггх1.к.=Аггх[1][к]*Аггг[к-1]/Сф01Хг- //радиус от центра на вычисляемую суммарную длину =коэф <1 для уменьшения на основе теории подобия Аггу[1][к]=Аггу[|][к]*Л1Тг[к-1]/С|ро1Хг- Аггг[|'][к]=Аггг[!][к]*Аггг[к-1]/С1'ро1Х2-
- StringGrid I→CeIIs0.1.=t- StringGrid 1 →Cells[ I ][i]=Arr x[i][k]- StringGrid I→Cells[2][i]=Arry[i][k]-
- TPrintDialog «PrintDialogl-include TLabcl *Labell-pragma hdrstop TLabel *Label2-
- USERES («RabProc01 .res») — TLabcl *LabeI3-
- USEFORM («RabPr.cpp», Forml) — TLabel *Label4-r //.--------------------------------------------------------------------------------------------------------------------------------------TLabel *Label5-
- WIN API WinMain (HINSTANCE, H IN STANCE, LPSTR, TLabel ¦Label6-int) TLabel «Label?-1. TLabel *Label9-try TLabel «Label 10−1. TEdit *EditI-
- Application→InitiaIize () — TEdit *Edit2-
- Application→CreateForm (classid (TForml), TEdit *Edit3−1. Forml) — TEdit *Edit4-
- Application→Run () — TEdit ¦Edit5−1. TEdit *Edit6-catch (Exception &exception) TEdit *Edit7−1. TEdit *Edit8-
- TLabel *p 10- if (Flag t==l)1. TLabel *p 11- {
- TLabel *pl2- 11 →Caption=FloatToStr (StrToFloat (t 1 →Caption)"0.05)
- TEdit «Edit 12- t2→Caption=FloatToStr (StrToFIoat (t2→Caption)"0.05)
- TEdit «Editl3- t3→Caption=FloatToStr (StrToFloat (t3→Caption)"0.05)
- TEdit «Editl4- t4→Caption=FloatToStr (StrToFloat (t4→Caption)"0.05)
- TEdit «Editl5- t5→Caption=FIoatToStr (StrToFloat (t5→Caption)"0.05)
- TLabel *Label8- t6→Caption=FloatToStr (StrToFloat (t6→Caption)"0.05)
- TLabel «LabelM- t7→Caption=FloatToStr (StrToFIoat (t7→Caption)"0.05)
- TEdit *Edit9- t8→Caption=FloatToStr (StrToFloat (t8→Caption)"0.05)
- TLabel * Label 11- t9→Caption=FloatToStr (StrToFIoat (t9→Caption)"0.05)
- TLabel «Label 15- 110→Caption=FloatToStr (StrToFloat (t 10→Caption)"0.05)
- Fdin 1 .=StrToFIoat (Edit 12→Text) —
- Fdin2.=StrToFIoat (Editl3→Text) —
- Fdin3.=StrToFloat (EditI4→Text) —
- Fdin4.=StrToFloat (Editl5→Text)-ay=StrToFIoat (Edit 1 →Text)*0.1 —
- ScalPmaxk+l.=l/(Pmax/(McUdar[k+l]400)) — //масштаб переводящий всплеск при разгоне в всплески при удареif (t*5==TUdark+1 .) //если пришло время удараисправляем исходный массив давления добавляя всплескиfor (int ?=0- i
- StringGrid I →Cells0. 0]="t" — StringGrid 1 →Cells[0][l]="p" —
- StringGrid I →Cells01[2.="t" — StringGrid 1→Cells[0][3]="p"--------------------------------Заполнение таблицыfor (int t=0- t<50- t-н-) {if (t==25) DN=1-
- StringGridl→Cellst+l-DN+25. 0+DN*2]=t+5- StringGridl→Cells[t+l-DN+25][l+DN+2]=p[t+5]-pBitmap0→LoadFromFile («E:\Leo\pa6 cтoл\Leo\CppLeo\graflk01\bmpVБe.^экp.bmp») —
- Form 1 →Image I →Can vas→Draw (0,0,pBitmap0) — }voidfastcall TForml: Button3Click (TObject «Sender)1. Form 1→Print () — }
- Программа расчёта процесса силового взаимодействия рабочегооргана и поросли--------------------------------------------------------------------- TLabel *Label4-include TLabel «Label 1-pragma hdrstop TLabel *Label2-
- USERES («Porosl01.res») — TLabel «Label 13-
- USEFORM («Porosl01 .cpp», Form I) — TEdit *L stwl-1. TEdit *Y~udar-
- WINAPI WinMain (HINSTANCE, H1NSTANCE, LPSTR, TEdit *Eupr-int) TLabel *LabeII9−1. TLabel *Label20-try TEdit *Grad-1. TButton *Button3-
- Application→InitiaIize () — TLabel *Radian-
- AppIication→CreateForm (classid (TForm I), TLabel *Label8−1. Forml) — TEdit *morg-
- Application→Run () — TTabSheet *TabSheet3−1. TLabel *Label5-catch (Exception &exception) TLabel *Label6−1. TLabel *Label7-
- TButton «Button 1- TImage *Image Fnoch Dprsl-
- TPageControl *PageControll- TLabel *Label24-
- TTabSheet *TabSheetl- TLabel *Label25-
- TTabSheet *TabSheet2- TLabel *Label27-
- TLabel *Label3- TImage * Image ePrsl Dprsl-
- TLabel «Label 10- TLabel *Label26-
- TLabel «Label 12- TLabel *Label30-
- TLabel «Label14- TLabel *Labcl29-
- TLabel «Label 16- TImage *Image SigmPrsI Dprsl-
- TEdit *my- TLabel *Label28-
- TLabel Fl 1- TLabel «Label 100-
- TLabel F12- TLabel «Label 101-
- TLabel F13- TLabel «Label 102-
- TLabel FI4- TLabel «Label 103-
- TLabel F15- TLabel «Label104-
- TLabel FI 6- TLabel «Label 105-
- TLabel FI 7- TLabel «Label 106-
- TLabel F18- TLabel «Labell07-
- TLabel FI 9- TLabel «Label 108-
- TLabel F20- TLabel «Labell09-
- TLabel Label49- TLabel «Label 110-
- TLabel Label50- TLabel «Label111-
- TLabel Labels 1- TLabel «Label 112-
- TLabel Label52- TLabel *Labelll3-
- TLabel Label53- TLabel *Labelll4-
- TLabel LabeI54- TLabel «Label 115-
- TLabel Label55- TLabel «Labell 16-
- TLabel Labe 15 6- TLabel «Labell 17-
- TLabel Label57- TLabel «Labell 18-
- TLabel LabeI58- voidfastcall ButtonlCIick (TObject «Sender) —
- TLabel el- voidfastcall Button2Click (TObject «Sender) —
- TLabel e2- voidfastcall Button3Click (TObject «Sender) —
- TLabel e3- voidfastcall Button4Click (TObject «Sender) —
- TLabel e4- private: // User declarations
- TLabel e5- public: // User declarations
- TLabel e6- fastcall TForml (TComponent* Owner)-1. TLabel e7- }-
- TLabel e8- //--------------------------------------------------------------------
- TLabel Tf оЦа| e9- f 1 rv extern PACKAGE TForml «Forml-
- Laucl TLabel e i u, eil- //. tfendif
- TLabel el2- //.-------------------------------------------------------------------1. TLabel eI3-
- TLabel e 14- #inc!udc
- TLabel el5- #pragma hdrstop1. TLabel eI6-
- TLabel el7- «include «Porosl01.h»
- TLabel el8- «include «math.h»
- TLabel el9- //•-------------------------------------------------------------------
- TLabel e20- #pragma package (smartjnit)
- TLabel Label79- «pragma resource «*.dfm"1. TLabel sl- TForml «Forml-
- TLabel s2- int FlagGraf=0-
- TLabel s3- float aeds=90.25, PIotn=0.5-//экспериментально най
- TLabel s4- денная сила для перерезания 1-го миллиметра
- TLabel s5- float In d10., In S[10], In F[10], In mprsl[10],
- TLabel s6- In mpriv10., In J[10], In A[10], In T[10], In e[10],
- TLabel s7- In M10., In W[I0], In Napr[I0J, In DopNapr[10], 1. TLabel s8- InVprsl10.7
- TLabel s9- float ??=0» nl=0, n2=0, n3=0, n4=0, n5=0, n6=0, n7=0, n8=0,
- TLabel slO- n9=0, n 10=0, n 11 =0, n 12=0, n 13=0−1. TLabel sll-
- TLabel sl2- float In myy-0.104, In sigma=870 000, In E upr=300 000,
- TLabel s 13- Infi=0?78539f Inbetta=0.2617, Ingamma=0.174 532,
- J1.=0- In Ai.=0- In T[i]=0- In e[i]=0- lnM[i]=0-
- W1.=0- InNapri.=0- In DopNapr[i]-0−1.Vprsl1.=0- }
- StringGrid 1 →Cells0. 0]="d, см" —
- StringGrid l→Cells8. 0]="S, cM2" —
- StringGrid 1 →Cells2. 0]="F, H" —
- StringGrid I →Cells 11. 0]="mprsl, кг" —
- StringGrid l→Cells4. 0]="mpriv, кг" —
- StringGrid 1 →Cells5. 0]="J, м4" —
- StringGrid I→CeIls6. 0]="A, м" —
- StringGrid l→Cel!s7. 0]="T, с" —
- StringGrid l→CeIlslj[0.="est, c-1" — //8→l
- StringGrid l→Cells9. 0]="M, Нм" — //I l→3
- StringGrid I →CeIls 10. 0]=» W" —
- StringGrid 1 →CelIs3. 0]="Vst, M/c" —
- StringGrid 1 →Cells 12. 0]="би, МПа" — //3→ 1313.12
- StringGrid 1 →Cells 13. [0]="ДопНапр" — //12−13lnmyy=StrToFloat (my→Text)-1.sigma=StrToFIoat (sigma→Text)-1.fi=StrToFIoat (fi→Text)-1.betta=StrToFloat (betta→Text)-1.gamma=StrToFIoat (gamma→Text) —
- Bnoch=StrToF!oat (Bnoch→Text) —
- Eupr=StrToFloat (Eupr→Text)-при расчёте вводили переводные величины для перевода в метры, и силу в конце брали удельную, на 1 см, for (int Ю- ?<10- i++) {if (i≠0) {1. И-1.d1.=ii*4/10- //, см
- Sij=MPI*pow (Ind1., 2)/4- //см2
- J1.=pow (Indi./100,4)*MPI/64- //м4
- A1.=InFi.*pow (StrToFIoat (Yudar→Tcxt)/100,3)/(StrToFloat (Eupr→Text)*InJ[i]*3)-//M
- VprsI1.=Inei.*0.005- //за времяпрохождения ножом 10 см t=0.005c, поросль при расч. ускор будет иметь след. скорость
- M1.=InFi./((StrToFloat (Lstwl→Text)/100)-(StrToFIoat (Yudar→Text)/l00))y/M
- StringGrid 1 →Cells0. i+1 ]=n 1/10 000- //см
- StringGridl→Ce!!s8. i+I]=n2/I000- //см2
- StringGrid 1 →CeIls2. i+1 ]=пЗ/10 000- //Дж/см2
- StringGrid 1 →Cells 11. i+1 ]=n4/l 0000- //r StringGrid 1 →Cells[4][i+1 ]=п5/10 000- //см4 StringGrid 1 →Cclls[5][i+1 ]=n6/l 0- StringGrid I →Cclls[6][i+1 ]=n7/l 000- //м
- StringGrid 1 →Ce!!s7. i+1 ]=n8/l 00- StringGrid 1 →CeIIs[ 1 ][i+1 ]=n9/l 0000- //с-1
- StringGrid 1 →Cells9. i+1 ]=n 10/10 000-
- StringGrid l→Cells10. i+l]=n 11/1 000 000 000-
- StringGridl →Cells3. i+1 ]=0.01 *abs (In Vprs!1.* 100) — StringGrid l→Cells[I2][i+1 ]=n 12/100- ~ StringGrid I →CelIs[ 13][i+1 ]=abs (lnDopNapr[i]) — /"StringGrid l→Cells[0][i+1 ]=lnd[i]» 100- //см
- StringGrid 1 →Cells 1. i+1 ]=lnS1.» 10 000- //cm2
- StringGrid. →CelIs2][i+1 ]=InF1.» 10 000/10000- //Дж/см2
- StringGrid I →Ce!Is3. i+l]=Inmprs!1.» 100- //r StringGrid 1 →CelIs[4][i+1 ]=lnmpriv[i]* 100- //см4 StringGrid 1 →Cells[5][i+1 ]=InJ[i]*l 0- StringGrid l→Cells[6][i+1 ]=InA[i]- //м
- StringGrid l→CeIls7. i+1 ]=In T1.-
- StringGrid l→Ce!!s8. i+l]=In~e1.- //c-1
- StringGrid 1 →Cells9. i+1 ]=In~M1.- StringGrid l→Cells[10][i+l]=InW[i]- StringGrid 1 →Cells[ 11 j[i+1 ]=InNapr[i]-
- StringGrid l→Cells12. i+l]=InDopNapr1.-«/ }
- F1 →Caption=FloatToStr (StrToFloat (F 1 →Caption)» 100) —
- F2→Caption=FloatToStr (StrToFloat (F2→Caption)"100) —
- F3→Caption=FloatToStr (StrToFloat (F3→Caption)"I00) —
- F4→Caption=FloatToStr (StrToFloat (F4→Caption)» 100) —
- F5→Caption=FloatToStr (StrToFIoat (F5→Caption)"100) —
- F6→Caption=FloatToStr (StrToFloat (F6→Caption)"100) —
- F7→Caption=FloatToStr (StrToFIoat (F7→Caption)"l00) —
- Pud→Caption=FIoatToStr (StrToFIoat (morg→Text)*StrToFIoat (Rorg→Tcxt)*(StrToFIoat (wdoud→Text)-StrToFloat (wpsIud→Text))/StrToFloat (tud→Text)) —
- PudIezv→Caption=FIoatToStr (StrToFIoat (Pud→Caption)/(StrToFloat (Bnoch→Text)"0.03)) — //0.03 маскимальный диаметр поросли }------------------------------------------------------------------voidfastcall TForml: Button3CIick (TObject «Sender)
- Radian→Caption=FIoatToStr (StrToFIoat (Grad1. Text)"MPl/180) — }
- I---------------------------------------------------------------------voidfastcall TForml: Button4CIick (TObject «Sender)f (PageGafikov→VisibIe==true)PageGafikov
- Visible=faIse- else PageGafikov→Visible=true- }•-------------------------------------------------------------------
- Программа по оптимизации процесса резания поросли гибкими инерционнорубящими рабочими органами---------------------------------------------------------------------include «pragma hdrstop USERES («Optimum 01. res») —
- USEFORMfOptim Ol. cpp», Forml) — //----------------------------------------------------------------------
- WINAPI WinMain (HINSTANCE, HINSTANCE, LPSTR, int) {try {
- Application→Initialize () — Application→CreateForm (classid (TForml), 1. Forml)-1. Application→Run ()-catch (Exception &exception) {
- Graphics:TBitmap *pBitmapO = new Graphics: TBitmap () — //.------------------------.--------------------------------------------fastcall TForml: TForml (TComponent* Owner)1. TForm (Owner)----------------------------------------Вывод подписей
- TablOpt→Cells0. 0]="dnpw, cM" —
- TablOpt→Cells0. 1 ]="Lz, m m" —
- TablOpt→Cells0. 2]="Betta, rpafl" —
- TablOpt→Cells0. 3]="Hp, cm" —
- TablOpt→Cells0. 4]="FI, H" —
- TablOpt→Cells0. 5]="Fud, H" —
- TablOpt→Cells0. 6]="Vst, M/c" —
- TablOpt→Cells0. 7]="Vl, M/c" —
- TabIOpt→Cells0. 8]="tpa3r, c" —
- TablOpt→Cells0. 9]="Vn, km/4" —
- TablOpt→Cells0. 10]="nvl, об/мин"-------Вывод подписей промежуточной таблицы массивов1. Tabl Arr→CeIls0. 0]="№" —
- Tabl~Arr→Ccllsl. 0]="Lz, mm" —
- TablArr→Ce!Is2. 0]="Betta, град" —
- TablArr→Cells3. 0]="Hp,%" —
- TablArr→CelIs4. 0]="FI, H" —
- TabrArr→Cells5. 0]=, Fud, H" —
- Tabl Arr→CeI!s6. 0]="Vst, M/c" —
- TablArr→Cells7. 0]="VI, M/c" —
- TabfArr→Cells8. 0]="tpa3r, c" —
- TabfArr→Cells9. 0]="Vn, km/4" — }-------------------------------------------------------------------voidfastcallTForml:ButtonlCIick (TObject «Sender)
- Arr Opt Betta1.=0- ArrOptHpi.=0- ArrOptFud[i]=0-
- ArTOpf Fl1.=0- ArrOptVprsli.=0- Arr0ptvi[i]=0-}переменные присваемые из формыfloat lnLz0=0, InLz2=0, InBetta0=0, InBetta2=0,
- Hp0=0, InHp2=0, InVI0=0, InVI2=0-float InPlotn~el=0, lnLx=0, InLy=0, lnSigmr=0,
- Jprdw→Caption=JprGidromot-1. Mdw→Caption=MGidromot-
- Rzel=StrToFloat (Rzrab→Text)--------------------Запись переменных с формы
- Sigmr=StrToFIoat (Sigmr→Tcxt)* 1 000 000-
- Eupr=StrToFloat (Eupr→Text)-1.My=StrToFloat (My→Text)-lnLprsl=StrToFloat (Lprsl→Text) — //---------------------------------------------------------------------------Запишим начальные, и после оставшиеся значенияварьируемых переменных
- ArrVarFactLz0.=InLz0- Arr VarFactBetta[0]=InBetta0- Arr~VarFactHp[0]=InHp0- ArrVarFactVI[0]=InVI0-for (int i=l- ?<11- ?++) {
- Arr VarFactLz1.=Arr VarFactLzi-l.+(InLz2-lnLz0)/10-
- ArrVarFactBetta1.=ArrVarFactBettai-l.+(InBetta21.Betta0)/10~
- Arr VarFact Hp1.=Arr VarFactHpi-l.+(InHp2-InHp0)/I0- «
- FactBettai3.)+tan (Infi)*pow (sin (ArrVarFactBetta[i3]), 2.)+InMy*(tan (Infi)+pow (cos (ArrVarFactBettai3.), 2))) >
- TempVprsl=TempFI*pow (InLprsI*ArrVarFactHpi2., 2)/(In~mst*pow (InLprsI, 2))*tud- tud=0.005. TemptRazg=TempFl*tud*(JprGidromot+Jprel)/(Inme l*RzeI*MGidromot)-if (TempFud≥TempFI && ArrVarFactVIi 1 .≥TempVprsI) {Numk=Numk+1 —
- MinFI=ArrTempFIy.- //основное
- MinFud=ArrTempFudy.- Min Vst=ArrTempVst[y]- MinVI=ArrTempVI[y]- M inLz=A rrTempLz[y ]-
- ArrTempFly.=MinFI- //основное
- ArrTempFudy.=MinFud- ArrTemp Vst[y]=MinVst- ArrTempVI[y]=MinVI- ArrTempLz[y]=MinLz- ArrTempBetta[y]=MinBetta- ArrTempHp[y]=MinHp- ArrTemptRazg[y]=MintRazg-
- Arr Temp Vpodachiy.=MinVpodachi- } ~-----------Заполнение премужточной таблицы массивовfor (int i=0- ?<15000- i++) {
- Tabl Arr→Cells0. i+1 ]=i+l-
- Tabl Arr→Cells 1. i+1]=abs (Arr TempLz1."l000) —
- Tabl Arr→Cells2. i+l]=abs (Arr~Temp Betta1./0.17 453) —
- TablArr→CeIls3. i+lj=abs (Arr~TempHp1.*I00) —
- TablArr→Cells4. i+l]=ArrTempFI1.-упорядоченнный
- TablArr→Cells5. i+1 ]=ArrTempFud1.- Tabl Arr→Cells[6][i+l]=ArrTempVst[i]- TablArr→Cells[7][i+1]=ArrTemp Vl[i]- TablArr→Cells[8][i+lj=ArrTempjRazg[i]-
- TablArr→Cells9. i+l]=ArrTempVpodachi1.- }---------------Заполнние итоговой таблицы оптимизации
- TablOpt→CellsNumbD. 1 ]=TablArr→Cells[ 1 ][ I ]-1. Продолжение приложения Г
- TabIOpt→CellsNumbD. 2]=TablArr→Cells[2][ I ]- TablOpt→Cells[NumbD][3]=abs (Tabl Агг→Cells[3][l]*InLprsl) —
- TablOpt→CellslNumbD.4]=TablArr→Cells[4][l]- TablOpt→Cclls[NumbD][5]=TabIArr→CeIls[5][ 1 ]- TablOpt→Cells[NumbD][6]=Tabl Arr→CeIls[6][l]- TablOpt→CelIs[NumbD][7]=TablArr→Cells[7][l]- TablOpt
- Ce!lsNumbD. 8]=0.001*abs (StrToFIoat (TablArr1. Cells8.1.)*1000)-1. TablOpt
- CellsNumbD. 9]=0.01*abs (StrToFloat (TabI Arr→Cells[9][l])*100) —
- G rVtrk→Canvas→ LineTo (S trTo F1 oat (TablOpt
- CellsNumbD. 0]*88), I40-StrToFloat (TablOpt
- CellsNumbD. 9])M 1.8/4.6) —
- GrV→Canvas→LineTo (StrToFloat (TablOpt
- CellsNumbD. 0]*88), l40-StrToFloat (TablOpt1. CellsNumbD. 7])*2)-if (NumbD==l) GrV→Canvas→MoveTo (0,140) — else Gr V→Canvas→MoveTo (StrToFloat (TablOpt→CellsNumbD-l. 0]*88), 140-StrToFIoat (TablOpt→Cells[NumbD-l][6])*2) —
- Forml→GrV→Canvas→Draw (0,0,pBitmap0) —
- Forml→GrVtrk→Canvas→Draw (0,0,pBitmap0) — }--------------------------------------------------------------------voidfastcall TFormI: Button3Click (TObject «Sender)1. FormI→Print () — }•-----------------------------------------------------------------
- Программа перевода данных полученных с манометра в цифровые величины
- Borland C++Builder «include «pragma hdrstop //.-------------------------------------------------------------------
- USERES («Oscilloscope.res») — USEFORM («Oscilloscope .cpp», Form I) — //.----------------------------~-------------------------------------
- WINAPI WinMain (HINSTANCE, HINSTANCE, LPSTR, int) {
- Application→Initialize () —
- Application→CreateForm (classid (TForm 1), 1. Forml) —
- Application→Run () — return 0−1.-------------------------------------------------------------------
- TImage «Image 1- TImage *Image2- TLabel «Label2- TLabel «Label4- TLabel «Label 12- TLabel «Labelll- TLabel «Label 10- TLabel «Label9- TLabel «Label8- TLabel «LabeI7- TLabel *LabelTime-voidfastcall FormMouseMove (TObject «Sender,
- TShiftState Shift, int X, int Y)1. F=Y-------------------------------------------------------------------voidfastcall TForml: TirnerlTimer (TObject «Sender)
- Seconds→Caption=t- ArrFt.=F-
- StopProcess=t- //при остановке процесса фиксируется eroвремя протекания }----------------------------------------------------------------------voidfastcall TForml: N4Click (TObject «Sender)повторная прорисовка графика {