Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке

Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Государственное образовательное учреждение

высшего профессионального образования

«Комсомольский-на-Амуре государственный технический университет»

Институт КП МТО

Кафедра ТМ

Пояснительная записка к курсовому проекту

по дисциплине «Металлорежущие станки»

Использование современного программного обеспечения для

проектировании цепной передачи в металлорежущем станке

Студент группы 5ТМб-1

К. Н. Мускин

Преподаватель

А.С.Хвостиков

2009

Содержание

1 Введение

2 Краткая характеристика цепной передачи

3 Альтернативный способ передачи крутящего момента от двигателя к входному валу станка

4 Методика, лежащая в основе программных вычислений

5 Принцип работы программы

6 Код программы

7 Заключение

1. Введение

Целью данного проекта была разработка программы, написанной в среде визуального проектирования Delphi 7.0, которая бы избавила пользователя, поставившего себе цель – спроектировать цепную передачу, от трудоемкого поиска методик расчета этой передачи в книгах и справочниках. Суть программы – определить типоразмер цепи и геометрическую характеристику звездочки по заданным пользователем условиям. В программе учтены многие переменные, влияющие на конечный выбор стандартного типоразмера цепи.

Почему именно Delphi? Ответ прост.

Delphi - представляет собой уникальную систему разработки, в которой технология высокопроизводительной оптимизирующей компиляции сочетается с визуальными средствами разработки и масштабируемым процессором баз данных. Это позволяет создавать эффективные приложения Windows, работающие с базами данных, в том числе и приложения для систем клиент/сервер. Разработанные с помощью Delphi приложения, могут функционировать под практически любой 32 разрядной операционной системой типа Windows 95, 98, 2000, NT, XP.

Delphi - среда быстрого создания приложений и на данный момент является самой популярной средой разработки.

Delphi обладает рядом преимуществ разработки:

Поддержка большого числа разнообразных технологий доступа к данным.

-Быстрота разработки приложения.

-Высокая производительность разработанного приложения.

-Hизкие требования разработанного приложения к ресурсам компьютера.

-Hаращиваемость за счет встраивания новых компонент и инструментов

в среду Delphi.

-Возможность разработки новых компонент и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходниках)

-Удачная проработка иерархии объектов.

2. Краткая характеристика цепной передачи

Цепные передачи предназначены для передачи движения с заданными усилиями и скоростями. Они могут работать в широком диапазоне передаваемых мощностей (от 0,1 кВт до 5000 кВт), скоростей (до 35 м/с), передаточных отношений (до 10 ). Цепная передача состоит из ведущей и ведомой звездочек и цепи, охватывающей звездочки и зацепляющейся за их зубья.

Цепные передачи обладают рядом достоинств:

-возможность применения в значительном диапазоне межосевых расстояний (до 8 м);

-меньшие, чем у ременных передач, габариты;

-отсутствие скольжения;

-высокий КПД;

-малые силы, действующие на валы, отсутствие необходимости в большом начальном натяжении;

-возможность легкой замены цепи;

-возможность передачи движения нескольким звездочкам.

Однако цепные передачи не лишены недостатков:

-отсутствие жидкостного трения в шарнирах и, следовательно, неизбежный износ, существенный при плохом смазывании и попадании пыли и грязи (износ шарниров приводит к увеличению шага звеньев и длины цепи, что вызывает необходимость применения натяжных устройств);

-более высокие требования к точности установки валов, чем в клиноременных передачах, и более сложный уход - смазка, регулировка.

-скорость движения цепи, особенно при малых числах зубьев звездочек, не постоянна, что вызывает колебания передаточного отношения, хотя эти колебания небольшие.

- передачи требуют установки на картерах;

Цепи, применяемые в машиностроении, по характеру выполняемой ими работы подразделяют на две группы – приводные и тяговые. В металлорежущих станках применяются приводные зубчатые цепи вследствие обеспечения ими более плавной работы, меньшего шума, высокой кинематической точности и обладания более высокой надежностью из –за отсутствия роликов и втулок, а также благодаря тому, что разрыв одной пластины не приводит к разрыву всей цепи.

3. Альтернативный способ передачи крутящего момента от двигателя к входному валу станка

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

Ремённые передача

Механизм, осуществляющий передачу вращательного движения с помощью ремня, охватывающего закрепленные на валах шкивы. Ремень, являясь промежуточной гибкой связью, передаёт крутящий момент с ведущего шкива на ведомый за счёт сил трения, возникающих между натянутым ремнем и шкивами. В зависимости от типа используемых ремней Р. п. могут быть плоскоремёнными, клиноремёнными и круглоремёнными. Получают распространение ременные передачи с поликлиновыми ремнями, имеющими клиновые выступы на внутренней стороне. Плоские и круглые ремни используются, как правило, по одному в передаче, а клиновые — по несколько штук (обычно не более 6—8).

Плоскоремённые передачи просты и удобны, позволяют применять обычные шкивы с гладкой поверхностью, способны работать при высоких скоростях (40—50 м/сек и выше). Однако такие Р. п. имеют невысокое тяговое усилие, значительные габариты и сравнительно малое передаточное отношение (обычно до 5).

Клиноремённые передачи, обеспечивая повышенное сцепление ремней со шкивами, позволяют сократить межосевое расстояние, уменьшить размеры передачи и повысить передаточное отношение (до 10—15). Круглоремённые передачи используются редко, главным образом в приводах малой мощности (настольные станки, швейные машины и т. п.).

Получают распространение ремни из высокоэластичных и прочных синтетических материалов, узкоклиновые и зубчатые ремни. ременные передачи распространены в приводах с/х машин, электрогенераторов, некоторых станков, текстильных и других машин. Ременные передачи. применяют обычно для передачи мощности до 30—50 квт. Известны установки мощностью в несколько сотен и даже тысяч квт, в которых также использованы ременные передачи.

Ремённые передачи обладают как рядом достоинств, так и рядом недостатков.

Достоинства ременной передачи:

конструктивная простота

относительно малая стоимость

способность передавать мощность на значительные расстояния (до 15 м и более)

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

Недостатки ременной передачи:

- короткий срок службы ремней

-относительно большие размеры

-высокая нагрузка на валы и подшипники-

-непостоянство передаточного отношения (из-за неизбежного проскальзывания ремня).

4. Методика, на которой основана программа

Основу вычислительной программы составляют ряд указаний и формул, предложенных книгой А.А. Готовцева и И.П Котенкова «Проектирование цепных передач». Программа представляет собой более систематизированную методику, нацеленную именно на расчет зубчатой цепной передачи.

В качестве исходных параметров пользователю необходимо определится с:

-передаточным отношением передачи, U;

-межосевым расстоянием, A (мм);

-диаметром ведущей звездочки, De (мм) (должен быть не меньше 68 мм);

Данные переменные позволят рассчитать максимально допустимый диаметр звездочки по следующей формуле:

и сравнить его с введенным пользователем диаметром ведущей звездочки. Если указанное пользователем значение будет превышать максимальное программа известит пользователя об этом, и попросит его перезадать значение.

-частотой вращения ведущей звездочки, n (об/мин);

Это позволит произвести расчет скорости движения цепи по формуле:

-режимом работы цепи;

-температурой окружающей среды;

-передаваемой мощностью

Данные параметры влияют на выбор коэффициентов, которые в свою очередь помогают определить коффициент эксплуатации, рассчитывающийся по формуле:

Значение скорости, определенное ранее позволит высчитать коэффициент, учитывающий снижение несущей способности цепи, из – за центробежных сил, для зубчатых цепей:

- максимально допустимой частотой вращения, nmax (об/мин);

Это позволит определиться с шагом цепи.

-числом зубьев ведущей звездочки;

Это необходимо, чтобы определиться с числом звеньев цепи:

где 010009000003281d000000001610000000001610000026060f002220574d46430100000000000100af660000000002000000002000003801000038210000010000006c00000000000000000000003b010000120000000000000000000000db1e0000da01000020454d4600000100382100000c00000001000000000000000000000000000000000500002003000040010000c800000000000000000000000000000000e20400400d0300460000002c00000020000000454d462b014001001c000000100000000210c0db01000000600000006000000046000000480700003c070000454d462b224004000c000000000000001e4009000c00000000000000244001000c000000000000003040020010000000040000000000803f214007000c000000000000000840000594060000880600000210c0db01000000000000000000000000000000000000000100000089504e470d0a1a0a0000000d494844520000013c00000013080200000082ea2606000000017352474200aece1ce9000000097048597300000ec400000ec401952b0e1b0000060e49444154785eed5b3b6e2241101df624584e1c7008d026584e7d0393584eb1f60cc8a49693e1069bae96640587207062c14dd8eacf74777dfa33806483a713efcc54d7e75555777535dbdbeff755373a043a04ce07811fe7a36aa7698740878042a04bda93c5c16e71dbbb5dec4ec6efc21929b87acf6b6b257eba70d38f35af4bdaa3105c3ff7dcb89a2ca7bf1efa47f1fb4693fbd783aa9aff3159bbfbf77b598d6f3af08a02a0d79d698b709288206347f36abadabf0c0fe6f1ad27c2f60a2b9d81605c6fff762b5e593874495b8613a782887bacdeba403b14bf6edec10898f2589f28c838fa78e64b47cd2a90614e32e4bbf042eb1656a0bde0d088df6be5b1ca88c01d9e1052dc6e4b177e30afa8fa50d055f73ffb9c90e82c0bc67679bd05a322e7e412ca808678539aed0f980cf6c008373302367a1d7341a1eb23b1e9b5391484a8df9be838149ff2986fd06e6644e3444a6d288ff7db7a5ca932cf0cfc645f1ef66735d5754f33593d86cf7bfdc209b6a28309988070d38a9ac9948fb1c171d69f43398d42c454a41f66c18001da695d8f9db2540653294410f126a8e0890cb2804d923225a231c622df123de03c9e4ec3885170c3c0becdb820ebfa121f31d713b86220a4fc1e64c141f8b48a79154510c1f64f69925536e69bccd1e6846953ca48a42306b0e540fa1e484f06be4e71ab2925641353b1ef35c7c65328d4b343c68403020acb48e94ebe6141e463824f8a3229c2266da37d5bf4ec7a8516c5e94a0ad6603d360bab072ce3fa68d851af1c0542b84d91a0f7c1c5b684747495c4bcdd40fcae631531bbaa7908ff4dd0d0e5f1f0c5f652d6cfaa05ba3ae9416df9fb1f14c7f90175c2d5fb40ef8976ec3e36e0e6784b71f7be1c5cf705ceeb3f73327178078c97ef69454c0b136a5ec3b2fff06b5a79edd557da1d46e2fb3790c739198a31554ff751e589bbc56c0e91fe34cce28729f322a2e031f5203e387ad70a9cf9cc9c7b669bfaa9af9ce5472b1770d747cd253e22746d4130d3459e47e15316f3ebd74955e25a064670e50385fe685ede0b95cec1b4301fbec0bab39c5cd9e3b26b1532355423b68236ec5df80570ab2a392d35d61f9b9697049b0f216bbd1dd057daefc3054b05eb72f2bad699964558e71e1ef351d028c0e078547aaa075d5548b966e2d564b0422a31e412942911edc1c30a42263fd563050e003328bfe9e22e105dcf92b1e9b9301f69ca434048f8fda0e06af0298a79adf068ee770862307c4d2cd32e69d5265bd5dbf2db8bfec35f56c3f0d9b08993f29329f3fe7adb9bdd6c23172762a235eb633ca3459345726fc75bf5086085b9a5b7187d97083b07da66850cd585011ebe3c84c50b1c15f00e2b478d102a6f7c83e166461b6c11115b46991061db6889c0e09f287afd9ff763306a04dbecb09811669276bd679af291a24ac0150521c9f3287c0a62deb66206b09ff1866f3a63c15c93b4fac6d195c5f0d44457d0456bd5de2a7622d485f3cdbd7c4597ae37611f9edec9d162cab9b02ccf55da5a5f5d0fbbfb7efd4a6d27f06601552a11e6f3b9b15517064995ec62aced6a7e5690414a674651b58528332254d9e08e01548362f40c5ef20f4a8a98c45d1f4545f05148db0604378ff33c0d3ed924b09bf223ff199d3bd3ca3c58b7581da4c3b6191cd0f5c95beabeb6ec52b17650ae854804c3e3b8ae75c30d9fe1e5d680d3983782ade2b8692034972c3a626f0e2b476d931a24c95673b325e08951d559e39450529f056ea5fd8f96e8b1f68906937530b102cc8e9ceb5d68657c94842b06429ae791f8e0a4c8c43cc6c5a468b6115519bbf0a0dde355adc6b6658a1272a39e1ec13d8d7e0e7bc0e10bdbd976cae9795661dc87342448ef405eb41fce8c17fae6ace51dd885e6078598042a59f4e4a925de30f20b282511a266d82f3e079bf7ec128eade19e6d481b75012397e7cb86d23bc474f08a38c7fd7e343e28ea1331df84832351e1539ab4d94c4cadf5d9c9174010f4fe2fc01ab6ab0635c7096aa9b347e82cf0c9fc8701f7eb50dc45912bed0b7a0b769b06c16ef19838fe9da7c5d2b95b9f41bb610a41a155f2a5f04926adbeb6fdae9e54dd1fd3527fbbac1fb2cbf7645f2a2a3f35e6be3e3edd7f181003c45518e5f7d69f1a689df0ef84c07f3cbda14509fed8be0000000049454e44ae4260820000000840010824000000180000000210c0db01000000030000000000000000000000000000001b40000040000000340000000100000002000000000000bf000000bf00009e430000984103000000000080b3000080b3ffff9d43000080b3000080b3ffff97412100000008000000620000000c00000001000000150000000c00000004000000150000000c00000004000000510000008c18000000000000000000003b01000012000000000000000000000000000000000000003c0100001300000050000000c80000001801000074170000000000002000cc003c01000013000000280000003c010000130000000100080000000000000000000000000000000000280000000000000000000000ffffff00489cdf009c480000ffffdf0074000000ffffbf00dfffff0000489c00bf7400000074bf00ffbf740074bfff009cdfff0000004800df9c48009c484800bfffff000000740048000000ffdf9c00740048009c9c7400744848000048740048489c00004848004800480074007400489c9c0074747400bfffbf00dfdf9c004800740074bfbf00747448009c74000000749c009c9cbf009c9c9c00010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107080005060101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010c000000000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107080f0a0304010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a0f010101010101111c06010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a0f010101010101111c06010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020000000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107191407080f010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a090101010101010c0506010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a090101010101010c05060101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010102000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010d10040101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a050601010101010a0506010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a050601010101010a050601010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000000000013140101010126270401010101010101010101010101010101010101010200000506111200000f010c0000131401010c00000009010a00030401111200000f0101010d0e000013140101010101010c00000000000f01010101010d0e0b01010101010111120000000b01011112000000000005060101010c00000005060111120000000000030401010101011112000000000003040101010c0000000506010a0000000000000000050601010d0e00001314010111120005060101010a0000030401010d0e000013140101111200000f010c00001314010101010c00000000000f01011112000000000003040101010c0000000506010c00000000000f01010a0000000000000000050601010d0e00001314010101010101010200000506111200000901070800050600000101000001010101010101070809010111120b010c000f0a000b0101010101010101010101010101010101010101010a1314010111120901010102131401010c000901010c03250b020901011112090101010c0009010102000b01010101010c1314010102000f01010101020003040101010111120506010c000f0101111209010111120304010c0009010111120b0111120901010d0e0901010101010111120901010d0e0901010c0009010111120b010d150601011112090101010c0009010102000b01010d1506010101010708030401010c0009010102000b010111120901010102131401010101010c1314010102000f010111120901010d0e0901010c0009010111120b0c1314010102000f01010d150601011112090101010c0009010102000b010101010101010a1314010111120901010d0e090101000001010000010101010101010111120901010c0901010a0000050601010101010101010101010101010101010101010102050601011112131401010c13140107080506010101010101111c06011112090101010a1314010107080304010101010101010101111209010101070824080b010101010c000b0101010a0506011112090101010a131407080506010101010101111209010107080304010101010111120901010708030407080506010101010101010a0f01011112090101010a131401010708030401111c06010a09010708030401010a1314010107080304011112131401010c131401010101010101010101111209010111120901010708030407080506010101010101010101011112090101010a0f01011112090101010a1314010107080304010101010101020506010111120901010a1314010100000001000001010101010101010111120f0101010101010101010101010101010101010101010101010101010101010102050601011112231b14010c1314011112030401010101010107080b011112090101111203040101010a050601010101010101010102000b0101010c000b0c09010101010a050601010102000b011112090101111205061112090101010101010111120901010d0e0f01010101010111120901010d0e0f0111120901010101010101010d1004011112090101111203040101010a050601111c060d0e13140708030401111203040101010a0506011112231b14010c13140101010101010101010102000b010111120901010d0e0f01111209010101010101010101010102000b0101010d1004011112090101111203040101010a05060101010101010205060101111209010c000f010101000000000000010101010101010101010d0e0b010101010101010101010101010200000000000506010101011112000000000506010111120f11120b0c1314011112090101010101010101020f011112090101111203040101010a13140101010101070800000f01010101010a05061121140101070805060101010c000b0111120000000005060111120000000000000f01111200000005060101010101010111120000000506010111120000000000000f0101071914011112090101111203040101010a131401111c06020522090708030401111203040101010a13140111120f11120b0c1314010101010101070800000f0101010111120000000506010111120000000000000f01070800000f0101010101071914011112090101111203040101010a131401111200000000050601011112000013140101010100000100000001010101010101010101010c000b0101010101010101010101010101010101010101010101010a13140101020506010111120f0111121e13140107080304010101010101010c09011112090101111203040101010a0506010101010101010101021314010111120f0101020901010708050601010102000b011112090101010101011112030401010c000b0111120901010213140101010101011112090101021314011112030401010c000b0101010a0b011112090101111203040101010a050601111c1f120f07192008030401111203040101010a05060111120f0111121e13140101010101010101010102131401011112090101021314011112030401010c000b0101010101021314010101010a0b011112090101111203040101010a0506010a131401010205060101111209010a0f0101010100000101000001010101010101010c09010102131401010101010101010101010101010101010101010101010a03040101020506010111120f01010708131401010a0506010101010101010d10041112090101010a05060101111203040101010101010101010d0e0f010102131401010d1b1401070813140101010a131401111209010101010101010a05060101021314011112090101111209010101010101111209010111120901010a05060101021314010101020f011112090101010a050601011112030401111c1d0506010c090a030401010a05060101111203040111120f010107081314010101010101010101010d0e0f0101111209010111120901010a0506010102131401010101010d0e0f01010101020f011112090101010a0506010111120304010a030401010205060101111209010d150601010100000101000001010101010101010d0e0b0101020506010101010101010101010101010101010101010101010a030401010a13140101111209010101021314010111120901010a030401010d15061112090101010d0e0901010a000b01010101010d0e0b01010c000f0107080506010107080901010a161004010c00090101111209010101010101010d0e0901111203040111120901010c000f01010101010111120901010c000f01010d0e0901111203040101010209011112090101010d0e0901010a000b01010d171809010107191a030401010d0e0901010a000b010111120901010102131401010101010d0e0b01010c000f010111120901010c000f01010d0e0901111203040d0e0b01010c000f010101010209011112090101010d0e0901010a000b01010a030401010a1314010111120901010a0b0c0901010101010101010101010101010107080000000000030401010101010101010101010101010101010101010a000003040200000506111200000f010c0000131401011112000000030401111200000000000f01010111120000000b0101010101010d0e000000000901070800000506070800000901020f0d0e00000901011112000009010101010101011112000003040111120000000000030401010101011112000000000003040101011112000003040101010c0000000000000901010111120000000b010111120013140101010c00000304010111120000000b0101111200000f010c00001314010101010d0e00000000090101111200000000000304010101111200000304010d0e0000000009010101010c0000000000000901010111120000000b01010a00000304020000050611120000090111120009010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010d100401010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000b0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020000000f010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000000000b0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010c000b010d0e0f010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010203040101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020506010708090101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101b200000026060f005a01574d464301000000000001000000000000000200000038010000000000003821000001010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101014c0000006400000000000000000000003b0100001200000000000000000000003c010000130000002900aa0000000000000000000000803f00000000000000000000803f0000000000000000000000000000000000000000000000000000000000000000220000000c000000ffffffff460000001c00000010000000454d462b024000000c000000000000000e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0213003c01030000001e00040000000701040004000000070104002b0c0000410b2000cc0013003c010000000013003c0100000000280000003c010000130000000100080000000000000000000000000000000000280000000000000000000000ffffff00489cdf009c480000ffffdf0074000000ffffbf00dfffff0000489c00bf7400000074bf00ffbf740074bfff009cdfff0000004800df9c48009c484800bfffff000000740048000000ffdf9c00740048009c9c7400744848000048740048489c00004848004800480074007400489c9c0074747400bfffbf00dfdf9c004800740074bfbf00747448009c74000000749c009c9cbf009c9c9c00010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107080005060101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010c000000000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107080f0a0304010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a0f010101010101111c06010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a0f010101010101111c06010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020000000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010107191407080f010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a090101010101010c0506010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a090101010101010c05060101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010102000b010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010d10040101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a050601010101010a0506010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a050601010101010a050601010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000000000013140101010126270401010101010101010101010101010101010101010200000506111200000f010c0000131401010c00000009010a00030401111200000f0101010d0e000013140101010101010c00000000000f01010101010d0e0b01010101010111120000000b01011112000000000005060101010c00000005060111120000000000030401010101011112000000000003040101010c0000000506010a0000000000000000050601010d0e00001314010111120005060101010a0000030401010d0e000013140101111200000f010c00001314010101010c00000000000f01011112000000000003040101010c0000000506010c00000000000f01010a0000000000000000050601010d0e00001314010101010101010200000506111200000901070800050600000101000001010101010101070809010111120b010c000f0a000b0101010101010101010101010101010101010101010a1314010111120901010102131401010c000901010c03250b020901011112090101010c0009010102000b01010101010c1314010102000f01010101020003040101010111120506010c000f0101111209010111120304010c0009010111120b0111120901010d0e0901010101010111120901010d0e0901010c0009010111120b010d150601011112090101010c0009010102000b01010d1506010101010708030401010c0009010102000b010111120901010102131401010101010c1314010102000f010111120901010d0e0901010c0009010111120b0c1314010102000f01010d150601011112090101010c0009010102000b010101010101010a1314010111120901010d0e090101000001010000010101010101010111120901010c0901010a0000050601010101010101010101010101010101010101010102050601011112131401010c13140107080506010101010101111c06011112090101010a1314010107080304010101010101010101111209010101070824080b010101010c000b0101010a0506011112090101010a131407080506010101010101111209010107080304010101010111120901010708030407080506010101010101010a0f01011112090101010a131401010708030401111c06010a09010708030401010a1314010107080304011112131401010c131401010101010101010101111209010111120901010708030407080506010101010101010101011112090101010a0f01011112090101010a1314010107080304010101010101020506010111120901010a1314010100000001000001010101010101010111120f0101010101010101010101010101010101010101010101010101010101010102050601011112231b14010c1314011112030401010101010107080b011112090101111203040101010a050601010101010101010102000b0101010c000b0c09010101010a050601010102000b011112090101111205061112090101010101010111120901010d0e0f01010101010111120901010d0e0f0111120901010101010101010d1004011112090101111203040101010a050601111c060d0e13140708030401111203040101010a0506011112231b14010c13140101010101010101010102000b010111120901010d0e0f01111209010101010101010101010102000b0101010d1004011112090101111203040101010a05060101010101010205060101111209010c000f010101000000000000010101010101010101010d0e0b010101010101010101010101010200000000000506010101011112000000000506010111120f11120b0c1314011112090101010101010101020f011112090101111203040101010a13140101010101070800000f01010101010a05061121140101070805060101010c000b0111120000000005060111120000000000000f01111200000005060101010101010111120000000506010111120000000000000f0101071914011112090101111203040101010a131401111c06020522090708030401111203040101010a13140111120f11120b0c1314010101010101070800000f0101010111120000000506010111120000000000000f01070800000f0101010101071914011112090101111203040101010a131401111200000000050601011112000013140101010100000100000001010101010101010101010c000b0101010101010101010101010101010101010101010101010a13140101020506010111120f0111121e13140107080304010101010101010c09011112090101111203040101010a0506010101010101010101021314010111120f0101020901010708050601010102000b011112090101010101011112030401010c000b0111120901010213140101010101011112090101021314011112030401010c000b0101010a0b011112090101111203040101010a050601111c1f120f07192008030401111203040101010a05060111120f0111121e13140101010101010101010102131401011112090101021314011112030401010c000b0101010101021314010101010a0b011112090101111203040101010a0506010a131401010205060101111209010a0f0101010100000101000001010101010101010c09010102131401010101010101010101010101010101010101010101010a03040101020506010111120f01010708131401010a0506010101010101010d10041112090101010a05060101111203040101010101010101010d0e0f010102131401010d1b1401070813140101010a131401111209010101010101010a05060101021314011112090101111209010101010101111209010111120901010a05060101021314010101020f011112090101010a050601011112030401111c1d0506010c090a030401010a05060101111203040111120f010107081314010101010101010101010d0e0f0101111209010111120901010a0506010102131401010101010d0e0f01010101020f011112090101010a0506010111120304010a030401010205060101111209010d150601010100000101000001010101010101010d0e0b0101020506010101010101010101010101010101010101010101010a030401010a13140101111209010101021314010111120901010a030401010d15061112090101010d0e0901010a000b01010101010d0e0b01010c000f0107080506010107080901010a161004010c00090101111209010101010101010d0e0901111203040111120901010c000f01010101010111120901010c000f01010d0e0901111203040101010209011112090101010d0e0901010a000b01010d171809010107191a030401010d0e0901010a000b010111120901010102131401010101010d0e0b01010c000f010111120901010c000f01010d0e0901111203040d0e0b01010c000f010101010209011112090101010d0e0901010a000b01010a030401010a1314010111120901010a0b0c0901010101010101010101010101010107080000000000030401010101010101010101010101010101010101010a000003040200000506111200000f010c0000131401011112000000030401111200000000000f01010111120000000b0101010101010d0e000000000901070800000506070800000901020f0d0e00000901011112000009010101010101011112000003040111120000000000030401010101011112000000000003040101011112000003040101010c0000000000000901010111120000000b010111120013140101010c00000304010111120000000b0101111200000f010c00001314010101010d0e00000000090101111200000000000304010101111200000304010d0e0000000009010101010c0000000000000901010111120000000b01010a00000304020000050611120000090111120009010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010d100401010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000b0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020000000f010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010a000000000b0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010c000b010d0e0f01010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101020304010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010102050601070809010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010c00000040092900aa0000000000000013003c0100000000040000002701ffff030000000000

И впоследствии мы найдем длину цепи:

Далее программа проведет проверку цепи по двум условиям

- условие плавности:

В случае если данное условие не будет выполнятся, программа выдаст пользователю извещение об этом.

-условие долговечности:

Если данное условие не выполняется, то пользователь будет об этом информирован. И наконец, определив указанные выше параметры мы сможем посчитать ширину цепи:

Вторая часть расчетов посвящена геометрическому расчету звездочки. Программа рассчитывает и выводит на экран следующие параметры:

Половина углового шага τ, которая высчитывается по формуле:

Диаметр делительной окружности 0100090000035a05000000009403000000009403000026060f001e07574d46430100000000000100d7fc0000000001000000fc06000000000000fc060000010000006c000000000000000000000019000000160000000000000000000000890200003e02000020454d4600000100fc0600000c00000001000000000000000000000000000000000500002003000040010000c800000000000000000000000000000000e20400400d0300460000002c00000020000000454d462b014001001c000000100000000210c0db010000006000000060000000460000004002000034020000454d462b224004000c000000000000001e4009000c00000000000000244001000c000000000000003040020010000000040000000000803f214007000c00000000000000084000058c010000800100000210c0db01000000000000000000000000000000000000000100000089504e470d0a1a0a0000000d494844520000001a0000001708020000009ab6c847000000017352474200aece1ce9000000097048597300000ec400000ec401952b0e1b0000010849444154484be554bb0d8330103d3209521a8a0c11298de919210d4a8bb7c11b64009a0886489106e14dc8f91c3e96b1c4119426d7dd193dde7b7ee7a8ef7bd8af0efb4119a46538add2c854aa34f3772876b1ba52001475e838300f8ad5af0a441233c985e074fb04915dbe801b0c43cfa47adc2b381db968001f13ea026589b2a3969ab1e3d8477064fbcc77ea076c0e5a6fbcd34699286f67c7f72d528d588fcbb68c900a64672231b7dd92656784a47941d12abfbaf09ce8215c9ca0f1cf96d6a991396478af44ae91916c26305a3ba7167e34ddac39a4adb2397157cc4ee6b7ec4ff0345af940212b0b3732f2274bde719cf2bffdc97bb799e25fb15b15149b8950cdd3f306ceaf8036af63e05e0000000049454e44ae426082000840010824000000180000000210c0db01000000030000000000000000000000000000001b40000040000000340000000100000002000000000000bf000000bf0000d0410000b84103000000000000b3000000b3ffffcf41000000b3000000b3ffffb7412100000008000000620000000c00000001000000150000000c00000004000000150000000c00000004000000510000005803000000000000000000001900000016000000000000000000000000000000000000001a000000170000005000000084000000d400000084020000000000002000cc001a00000017000000280000001a000000170000000100080000000000000000000000000000000000170000000000000000000000ffffff00489cdf0048000000ffdf9c0074000000ffffbf000074bf009c480000ffffdf00dfffff0000489c00df9c48009cdfff00000048009c9c7400ffbf740074bfff00bfffff0000007400bf7400009c48740000749c000101010101010101010101010000000000000000000001010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff010d0e0005061100001001010100000101010100000101010101ffff0a0b080912151608090710010101000000000000010101010101ffff12131401010d0e05060101010101010101010101010101010101ffff1213140101010203040101010101010101010101010101010101ffff0a0b080901010d0e100101010101010101010101010101010101ffff0102030401010a0b140101010101010101010101010101010101ffff010d0e1401010a0b080901010101010101010101010101010101ffff010111000c011213030401010101010101010101010101010101ffff0101010d0e00000f0e1001010101010101010101010101010101ffff010101010101010a0b0c01010101010101010101010101010101ffff0101010101010101070809010101010101010101010101010101ffff0101010101010101020506010101010101010101010101010101ffff0101010101010102000304010101010101010101010101010101ffff0101010101010101010101010101010101010101010101010101ffff0101010101010101010101010101010101010101010101010101ffff4c000000640000000000000000000000190000001600000000000000000000001a000000170000002900aa0000000000000000000000803f00000000000000000000803f0000000000000000000000000000000000000000000000000000000000000000220000000c000000ffffffff460000001c00000010000000454d462b024000000c000000000000000e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0217001a00030000001e000400000007010400040000000701040091010000410b2000cc0017001a000000000017001a0000000000280000001a000000170000000100080000000000000000000000000000000000170000000000000000000000ffffff00489cdf0048000000ffdf9c0074000000ffffbf000074bf009c480000ffffdf00dfffff0000489c00df9c48009cdfff00000048009c9c7400ffbf740074bfff00bfffff0000007400bf7400009c48740000749c000101010101010101010101010000000000000000000001010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff0101010101010101010101010100000101010100000101010101ffff010d0e0005061100001001010100000101010100000101010101ffff0a0b080912151608090710010101000000000000010101010101ffff12131401010d0e05060101010101010101010101010101010101ffff1213140101010203040101010101010101010101010101010101ffff0a0b080901010d0e100101010101010101010101010101010101ffff0102030401010a0b140101010101010101010101010101010101ffff010d0e1401010a0b080901010101010101010101010101010101ffff010111000c011213030401010101010101010101010101010101ffff0101010d0e00000f0e1001010101010101010101010101010101ffff010101010101010a0b0c01010101010101010101010101010101ffff0101010101010101070809010101010101010101010101010101ffff0101010101010101020506010101010101010101010101010101ffff0101010101010102000304010101010101010101010101010101ffff0101010101010101010101010101010101010101010101010101ffff0101010101010101010101010101010101010101010101010101ffff0c00000040092900aa0000000000000017001a0000000000040000002701ffff030000000000:

Радиальный зазор, е:

Высота зуба, h

Диаметр окружности впадин 0100090000039004000000002a03000000002a03000026060f004a06574d464301000000000001006c890000000001000000280600000000000028060000010000006c00000000000000000000001500000012000000000000000000000025020000da01000020454d4600000100280600000c00000001000000000000000000000000000000000500002003000040010000c800000000000000000000000000000000e20400400d0300460000002c00000020000000454d462b014001001c000000100000000210c0db010000006000000060000000460000002c02000020020000454d462b224004000c000000000000001e4009000c00000000000000244001000c000000000000003040020010000000040000000000803f214007000c0000000000000008400005780100006c0100000210c0db01000000000000000000000000000000000000000100000089504e470d0a1a0a0000000d49484452000000160000001308020000001b1b6adf000000017352474200aece1ce9000000097048597300000ec400000ec401952b0e1b000000f549444154384fa593b11183300c45ed4cc25d1a8a0c62f6812d32028c91bb7430448a3439bc8923598065d9c4e450856de949fa12da39a7ced9e55c3846af083b345a5a33d84309a091c5c616024c3ff3233b0747f1a504a21dc3c5dc9b08ba0309081fc00910210acb33829cf6fd54a6aea2eeab1aeb28d886981e77a56ed71881d8a26d13f9bc404b5144319a1c98fe611af919fd96d3eb26b4cc89099a2789a80a3f0df146238db19849267284c0a798e0cb8adce96635e6ed11a28dc53949e7fdd25b45f1c2927eb77653c2d2c8eefef3071427c7fee367c73d93bb87d51f4758583edabda9d3ddc45a3fd44398bc9c13bc7c01769c651d84111fce0000000049454e44ae4260820840010824000000180000000210c0db01000000030000000000000000000000000000001b40000040000000340000000100000002000000000000bf000000bf0000b0410000984103000000000000b3000000b3ffffaf41000000b3000000b3ffff97412100000008000000620000000c00000001000000150000000c00000004000000150000000c000000040000005100000098020000000000000000000015000000120000000000000000000000000000000000000016000000130000005000000080000000d0000000c8010000000000002000cc0016000000130000002800000016000000130000000100080000000000000000000000000000000000160000000000000000000000ffffff009cdfff0000004800df9c480074bfff009c480000ffffdf00ffbf7400489cdf0074000000ffffbf00bfffff00000074000074bf00dfffff0000489c00bf74000048000000ffdf9c009c48480074004800010101010101010101010101010109000008010101010000010101010101010101010101010f1004010e08010101000001010101010101010101010101010e110101010101010000010101010101010101010101010109060701010101010000050000000000000401010101010102150b0101010101000001050008010105000a0b010101010c0d0801010101010000010c0d040101010c0d0a0b01010c0d000000060701010000010f100607010101020311010101010e110101010101000001010e0a0b010101010e12130101010214070101010100000101051213010101010500040101010101010101010100000101020304010101010c0d0607010101010101010101000001010c0d11010101010c0d060701010101010101010100000101010e06070101010f1006070101010101010101010000010101090a0b0101010c0d060701010101010101010100000101010500080101010900040101010101010101010100000101010500040101050006070101010101010101010100000101020300000000000401010101010101010101010100000101010101010101010101010101010101010101010100000101010101010101010101010101010101010101010100004c0000006400000000000000000000001500000012000000000000000000000016000000130000002900aa0000000000000000000000803f00000000000000000000803f0000000000000000000000000000000000000000000000000000000000000000220000000c000000ffffffff460000001c00000010000000454d462b024000000c000000000000000e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c0213001600030000001e000400000007010400040000000701040031010000410b2000cc00130016000000000013001600000000002800000016000000130000000100080000000000000000000000000000000000160000000000000000000000ffffff009cdfff0000004800df9c480074bfff009c480000ffffdf00ffbf7400489cdf0074000000ffffbf00bfffff00000074000074bf00dfffff0000489c00bf74000048000000ffdf9c009c48480074004800010101010101010101010101010109000008010101010000010101010101010101010101010f1004010e08010101000001010101010101010101010101010e110101010101010000010101010101010101010101010109060701010101010000050000000000000401010101010102150b0101010101000001050008010105000a0b010101010c0d0801010101010000010c0d040101010c0d0a0b01010c0d000000060701010000010f100607010101020311010101010e110101010101000001010e0a0b010101010e12130101010214070101010100000101051213010101010500040101010101010101010100000101020304010101010c0d0607010101010101010101000001010c0d11010101010c0d060701010101010101010100000101010e06070101010f1006070101010101010101010000010101090a0b0101010c0d060701010101010101010100000101010500080101010900040101010101010101010100000101010500040101050006070101010101010101010100000101020300000000000401010101010101010101010100000101010101010101010101010101010101010101010100000101010101010101010101010101010101010101010100000c00000040092900aa000000000000001300160000000000040000002701ffff030000000000:

Расстояние между верхним краем рабочей грани звена и точкой, лежащей в плоскости измерения зуба, Р:

Радиус построения криволинейного профиля зуба R:

Наибольший зазор между рабочей гранью пластин и зубом, K:

Угол поворота звена на звездочке, φ:

Ширина зуба, b:

Расстояние от вершины зуба до линии центров :

Радиус закругления торца зуба и направляющей проточки r:

Глубина проточки 010009000003d00300000000b80200000000b802000026060f006605574d4643010000000000010075330000000001000000440500000000000044050000010000006c0000000000000000000000110000000e0000000000000000000000c10100007601000020454d4600000100440500000c00000001000000000000000000000000000000000500002003000040010000c800000000000000000000000000000000e20400400d0300460000002c00000020000000454d462b014001001c000000100000000210c0db01000000600000006000000046000000e4010000d8010000454d462b224004000c000000000000001e4009000c00000000000000244001000c000000000000003040020010000000040000000000803f214007000c000000000000000840000530010000240100000210c0db01000000000000000000000000000000000000000100000089504e470d0a1a0a0000000d49484452000000120000000f080200000066e40845000000017352474200aece1ce9000000097048597300000ec400000ec401952b0e1b000000ad49444154384f63fcffff3f03e98089742d201d94683b50ca08069e731f106b39d06f40b0bf04a4be643f844718401cf9e0ee1520e9a1a140ac65506d37183c3c1876a428421c5b7a80a076841341ae2c21d2b120db204e64f098733f5b8358c7feff7f7f8e072c3cc02103d48e142690c0421503a610e450842801bb1512a830010c6d4c0c07b6f6a087620f8377b70348bf433792569460221847581cfeff3f99890be8373c00ee37f4600100d00910b79f4db64c0000000049454e44ae4260820840010824000000180000000210c0db01000000030000000000000000000000000000001b40000040000000340000000100000002000000000000bf000000bf000090410000704103000000000000b3000000b3ffff8f41000000b3000000b3ffff6f412100000008000000620000000c00000001000000150000000c00000004000000150000000c0000000400000051000000fc0100000000000000000000110000000e00000000000000000000000000000000000000120000000f0000005000000080000000d00000002c010000000000002000cc00120000000f00000028000000120000000f0000000100080000000000000000000000000000000000160000000000000000000000ffffff0074bfff00df9c48000074bf00ffbf7400dfffff0000489c0048000000ffdf9c00bfffff00484874000000480074000000ffffbf007474000000007400489cdf009c4800009cdfdf00ffffdf00747474000101010101010101010a1000000003010101210501010101010101010101010408090101010101810101010101010101010101040809010101012105020012140400000501010104080901010101dd420a100d0e04000d150e0a1000080901010101c142060700050200030101010a10080901010101000001110012130c1214010101010101010101010000010200000f100d0e010101010101010101010000010a0b0c00000d0e01010101010101010101000001060708090101010101010101010101010100000101040005010101010101010101010101010000010200000301010101010101010101010101e1430101010101010101010101010101010101010000010101010101010101010101010101010101000001010101010101010101010101010101010100004c000000640000000000000000000000110000000e0000000000000000000000120000000f0000002900aa0000000000000000000000803f00000000000000000000803f0000000000000000000000000000000000000000000000000000000000000000220000000c000000ffffffff460000001c00000010000000454d462b024000000c000000000000000e000000140000000000000010000000140000000400000003010800050000000b0200000000050000000c020f001200030000001e0004000000070104000400000007010400e3000000410b2000cc000f001200000000000f0012000000000028000000120000000f0000000100080000000000000000000000000000000000160000000000000000000000ffffff0074bfff00df9c48000074bf00ffbf7400dfffff0000489c0048000000ffdf9c00bfffff00484874000000480074000000ffffbf007474000000007400489cdf009c4800009cdfdf00ffffdf00747474000101010101010101010a1000000003010101210501010101010101010101010408090101010101810101010101010101010101040809010101012105020012140400000501010104080901010101dd420a100d0e04000d150e0a1000080901010101c142060700050200030101010a10080901010101000001110012130c1214010101010101010101010000010200000f100d0e010101010101010101010000010a0b0c00000d0e01010101010101010101000001060708090101010101010101010101010100000101040005010101010101010101010101010000010200000301010101010101010101010101e1430101010101010101010101010101010101010000010101010101010101010101010101010101000001010101010101010101010101010101010100000c00000040092900aa000000000000000f00120000000000040000002701ffff030000000000

Ширина проточки, s_>1>

5. Принцип работы программы

Программа состоит из одного главного окна.

Рисунок1.Главное окно программы

В левой стороне содержатся операторы, запоминающие данные вводимые пользователем. Диаметр ведущей звездочки вводится с клавиатуры путем нажатия кнопок несущих в себе числа (по умолчанию 69 мм). Число зубьев звездочки указывается в выпадающем спике при помощи левой кнопки мышки (по умолчаннию z=17). Передаточное отношения указывается также, как и число зубьев звездочки (по умолчанию u=1). Частота вращения звездочки заполняется вводом с клавиатуры, «не числовые» клавиши заблокированы (по умолчанию n=1500 об/мин). Характер работы цепи задается благодаря выпадающему списку по щелчку мыши. Температура окружающей среды вводится по средствам полосы прокрутки, правее полосы прокрутки указывается текущее значение температуры (по умолчанию 15 ⁰ С). Максимально допустимая частота вращения ведущей звездочки (nmax) выбирается из выпадающего списка (по умолчанию nmax=3300 об/мин ). При помощи второй полосы прокрутки пользователь может задать передаваемую цепью мощность N в кВт (по умолчанию N=14 кВт). Далее после корректировки всех данных нужно нажать кнопку «Расчет».

Механизм программы обработает данные и окно программы примет следуюший вид:

Рисунок 2. Вид программы после нажатия кнопки «Расчет»

Как видно на картинке в правой части и в центре появились значения вычисленных геометрических величин. В центре, чуть ниже картинки располагается надпись «Типоразмер цепи З-12-2,4». Программа выдала нам стандартный типоразмер цепи, согласно указанным условиям.Далее пользователю необходимо нажать кнопку «Внести в базу». Окно изменится (см рисунок3)

Как видим на белом поле ниже кнопки «Внести в базу» появился ряд чисел. Каждое число соотвествует характеристике находящейся над ней. Соотвествие буквенных обозначений геометрическим параметрам можно найти на окне программы. Данная структура записи в этом поле не случайна. Дело в том, что впоследствии пользователь сможет сохранить результаты вычислений в файле «Цепь.txt» (путем нажатия из выпадающего главного меню «Файл» и выбора там функции «сохранить» ). Файл примет структуру аналогичную структуре записи окна. Данная структура является ничем иным как внешней базой, на которую можно сослаться при работе в программе T-Flex, с целью построения конкретного чертежа или 3D модели зубчатой цепи и звездочки. Для произведения указанных действий необходимо будет иметь уже готовый параметризованный чертеж цепи и звездочки, разработка которого находится в перспективе.

Рисунок 3 Окно программы после нажатия кнопки «Внести в базу»

Код программы содержит в себе механизмы предупреждения пользователя о его некорректной работе с программой. В коде прописаны условия предъявляемые к самой цепной передаче, невыполнение которых, из – за некорректно введенных данных ведет к появлению различного рода сообщений, информирующих пользователя и дающих ему совет.

6. Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, jpeg, Menus;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit3: TEdit;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

ComboBox2: TComboBox;

RadioButton1: TRadioButton;

Label11: TLabel;

RadioButton2: TRadioButton;

Label12: TLabel;

ScrollBar1: TScrollBar;

Label13: TLabel;

Label14: TLabel;

ComboBox3: TComboBox;

Label15: TLabel;

Label16: TLabel;

ScrollBar2: TScrollBar;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

ComboBox4: TComboBox;

Label25: TLabel;

Image1: TImage;

Panel1: TPanel;

Memo1: TMemo;

Button2: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button3: TButton;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure ScrollBar1Change(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9','-']) then Key := #0;

end;

procedure TForm1.Edit2Exit(Sender: TObject);

var De:real;

begin

De:=StrToFloat(Edit2.text);

if De<68 then ShowMessage('Значение диаметра ведущей звездочки введено некорректно')

else

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Label13.Caption:=IntToStr(ScrollBar1.Position);

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Label17.Caption:=IntToStr(ScrollBar2.Position);

end;

procedure TForm1.Button1Click(Sender: TObject);

var A,s,Dmax,u,u1,De,n,h,V,P,Talpha,klambda,kt,T,kv,e,shag,B,Bkon,z,Lt,L,b2,c1,r1,tau,dd,Dt,R,K,fi,beta,gamma,bzuba,cL,H2,s1,ty,y:real;

begin

A:=StrToFloat(Edit1.text);

De:=StrToFloat(Edit2.text);

u:=StrToFloat(ComboBox1.text);

if ComboBox1.Text='1..4'

then Dmax:=(1.66*A)/(u+1)

else Dmax:=A/(u+1);

if Dmax<69 then ShowMessage('Значение максимального диаметра ведущей звездочки при данных параметрах слишком мало. Перезадайте межосевое расстояние или передаточное отношение')

else

if De>Dmax then ShowMessage('Значение диаметра ведущей звездочки превышает максимальный. Перезадайте межосевое расстояние,передаточное отношение или уточните диаметр ведущей зведочки')

else

label3.Caption:=formatfloat('#.##',De);

n:=StrToFloat(Edit3.text);

V:=(3.14*De*n)/60000;

label8.Caption:=formatfloat('###.##',V);

if (combobox2.ItemIndex=0) and (RadioButton1.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton1.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=2) and (RadioButton1.Checked) then klambda:=1.4;

if (combobox2.ItemIndex=3) and (RadioButton1.Checked) then klambda:=1.6;

if (combobox2.ItemIndex=4) and (RadioButton1.Checked) then klambda:=1.8;

if (combobox2.ItemIndex=5) and (RadioButton1.Checked) then klambda:=1.9;

if (combobox2.ItemIndex=0) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=2) and (RadioButton2.Checked) then klambda:=1.1;

if (combobox2.ItemIndex=3) and (RadioButton2.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=4) and (RadioButton2.Checked) then klambda:=1.45;

if (combobox2.ItemIndex=5) and (RadioButton2.Checked) then klambda:=1.5;

T:=StrToFloat(Label13.Caption);

if (T>-80) and (T<-25) then kt:=2.5;

if (T>-25) and (T<150) then kt:=1;

if (T>150) and (T<250) then kt:=1.25;

kv:=1-1.1*0.001*V*V;

if ComboBox3.Text='3300' then shag:= 12.7;

if ComboBox3.Text='2650' then shag:= 15.875;

if ComboBox3.Text='2200' then shag:= 19.05;

if ComboBox3.Text='1650' then shag:= 25.4;

if ComboBox3.Text='1350' then shag:= 31.75;

if shag>0.185*De then showmessage('Шаг цепи не удовлетворяет условию плавности.Измените частоту вращения или откорректируйте диаметр ведущей звездочки.');

if (shag<0.0125*A) or (shag>0.04*A) then showmessage('Шаг цепи не удолетворяет условию долговечности. Измените межосевое расстояние.');

N:=StrToFloat(Label17.Caption);

B:=(250*klambda*kt*N)/(kv*shag*exp(1.5*ln(V)));

label14.Caption:=formatfloat('###.##',B);

if (B>22.5) and (B<117) then

else showmessage('Полученная ширина цепи выходит за пределы стандартных значений, определить типоразмер цепи не представляется возможным. Пересмотрите введенные вами параметры');

if (ComboBox3.Text='3300') and (B>22.5) and (B<25.5) then Bkon:=22.5;

if (ComboBox3.Text='3300') and (B>25.5) and (B<28.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>28.5) and (B<31.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>31.5) and (B<34.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>34.5) and (B<37.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>37.5) and (B<40.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>40.5) and (B<43.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>43.5) and (B<46.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>46.5) and (B<49.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>49.5) and (B<52.5) then Bkon:=52.5;

if (ComboBox3.Text='3300') and (B>52.5) then showmessage('При данной ширине цепи шаг слишком мал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2650') and (B>30) and (B<34) then Bkon:=30;

if (ComboBox3.Text='2650') and (B>34) and (B<38) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>38) and (B<42) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>42) and (B<46) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>46) and (B<50) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>50) and (B<54) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>54) and (B<58) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>58) and (B<62) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>62) and (B<66) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>66) and (B<70) then Bkon:=70;

if (ComboBox3.Text='2650') and (B>70) then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2200') and (B>45) and (B<51) then Bkon:=45;

if (ComboBox3.Text='2200') and (B>51) and (B<57) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='2200') and (B>93)then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='1650') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='1650') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1650') and (B>105) then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='1350') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1350') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>105) and (B<111) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>111) and (B<117) then Bkon:=117;

if (ComboBox3.Text='1350') and (B>117)then showmessage('При данной ширине цепи шаг слишком мал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

label21.Caption:=formatfloat('##.##',Bkon);

z:=StrToFloat(ComboBox4.text);

Lt:=(2*(A/shag))+((z+u*z)/2)+((z*u-z)/3.14)*((z*u-z)/3.14)*(shag/A);

L:=Lt*shag;

label25.Caption:=formatfloat('##.##',L);

if (ComboBox3.Text='3300') and (Bkon=22.5) then

Panel1.Caption:='Типоразмер цепи - З-12-2,4';

if (ComboBox3.Text='3300') and (Bkon=28.5) then

Panel1.Caption:='Типоразмер цепи - З-12-2,9';

if (ComboBox3.Text='3300') and (Bkon=34.5) then

Panel1.Caption:='Типоразмер цепи - З-12-3,4';

if (ComboBox3.Text='3300') and (Bkon=40.5) then

Panel1.Caption:='Типоразмер цепи - З-12-4,0';

if (ComboBox3.Text='3300') and (Bkon=46.5) then

Panel1.Caption:='Типоразмер цепи - З-12-4,7';

if (ComboBox3.Text='3300') and (Bkon=52.5) then

Panel1.Caption:='Типоразмер цепи - З-12-5,3';

f (ComboBox3.Text='2650') and (Bkon=30) then

Panel1.Caption:='Типоразмер цепи - З-15-3,9';

if (ComboBox3.Text='2650') and (Bkon=38) then

Panel1.Caption:='Типоразмер цепи - З-15-4,8';

if (ComboBox3.Text='2650') and (Bkon=46) then

Panel1.Caption:='Типоразмер цепи - З-15-5,7';

if (ComboBox3.Text='2650') and (Bkon=54) then

Panel1.Caption:='Типоразмер цепи - З-15-6,7';

if (ComboBox3.Text='2650') and (Bkon=62) then

Panel1.Caption:='Типоразмер цепи - З-15-7,8';

if (ComboBox3.Text='2650') and (Bkon=70) then

Panel1.Caption:='Типоразмер цепи - З-15-8,9';

if (ComboBox3.Text='2200') and (Bkon=45) then

Panel1.Caption:='Типоразмер цепи - З-19-7,2';

if (ComboBox3.Text='2200') and (Bkon=57) then

Panel1.Caption:='Типоразмер цепи - З-19-8,7';

if (ComboBox3.Text='2200') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-19-10,3';

if (ComboBox3.Text='2200') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-19-12,2';

if (ComboBox3.Text='2200') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-19-14,1';

if (ComboBox3.Text='1650') and (Bkon=57) then

Panel1.Caption:='Типоразмер цепи - З-25-11,6';

if (ComboBox3.Text='1650') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-25-13,8';

if (ComboBox3.Text='1650') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-25-16,3';

if (ComboBox3.Text='1650') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-25-18,9';

if (ComboBox3.Text='1650') and (Bkon=105) then

Panel1.Caption:='Типоразмер цепи - З-25-21,6';

if (ComboBox3.Text='1350') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-31-17,1';

if (ComboBox3.Text='1350') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-31-20,2';

if (ComboBox3.Text='1350') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-31-23,5';

if (ComboBox3.Text='1350') and (Bkon=105) then

Panel1.Caption:='Типоразмер цепи - З-31-26,8';

if (ComboBox3.Text='1350') and (Bkon=117) then

Panel1.Caption:='Типоразмер цепи - З-31-30,3';

if ComboBox3.Text='3300' then b2:=7.0;

if ComboBox3.Text='3300' then u1:=4.76;

if ComboBox3.Text='3300' then h:=8.3;

if ComboBox3.Text='3300' then e:=1.3;

if ComboBox3.Text='3300' then P:=1.270 ;

if ComboBox3.Text='3300' then Talpha:=14.11;

if ComboBox3.Text='3300' then c1:=20.52;

if ComboBox3.Text='3300' then r1:=1.5;

if ComboBox3.Text='3300' then s:=1.5;

if ComboBox3.Text='2650' then b2:=8.7;

if ComboBox3.Text='2650' then u1:=5.95;

if ComboBox3.Text='2650' then h:=10.3;

if ComboBox3.Text='2650' then e:=1.6;

if ComboBox3.Text='2650' then P:=1.587;

if ComboBox3.Text='2650' then Talpha:=17.73;

if ComboBox3.Text='2650' then c1:=23.92;

if ComboBox3.Text='2650' then r1:=2;

if ComboBox3.Text='2650' then s:=2;

if ComboBox3.Text='2200' then b2:=10.5;

if ComboBox3.Text='2200' then u1:=7.14;

if ComboBox3.Text='2200' then h:=12.4;

if ComboBox3.Text='2200' then e:=1.9;

if ComboBox3.Text='2200' then P:=1.905;

if ComboBox3.Text='2200' then Talpha:=21.22;

if ComboBox3.Text='2200' then c1:=30.76;

if ComboBox3.Text='2200' then r1:=2;

if ComboBox3.Text='2200' then s:=3;

if ComboBox3.Text='1650' then b2:=14;

if ComboBox3.Text='1650' then u1:=9.52;

if ComboBox3.Text='1650' then h:=16.5;

if ComboBox3.Text='1650' then e:=2.5;

if ComboBox3.Text='1650' then P:=2.54 ;

if ComboBox3.Text='1650' then Talpha:=28.33;

if ComboBox3.Text='1650' then c1:=41.03;

if ComboBox3.Text='1650' then r1:=2.5;

if ComboBox3.Text='1650' then s:=3;

if ComboBox3.Text='1350' then b2:=17.5;

if ComboBox3.Text='1350' then u1:=11.91;

if ComboBox3.Text='1350' then h:=20.7;

if ComboBox3.Text='1350' then e:=3.2;

if ComboBox3.Text='1350' then P:=3.175 ;

if ComboBox3.Text='1350' then Talpha:=35.35;

if ComboBox3.Text='1350' then c1:=51.34;

if ComboBox3.Text='1350' then r1:=3.5;

if ComboBox3.Text='1350' then s:=3;

tau:=3.14/z;

dd:=shag/sin(tau);

Dt:=dd-(2*h/cos(tau));

P:=0.1*shag;

R:=2.4*shag;

K:=0.04*shag;

fi:=6.28/z;

gamma:=0.52-fi;

bzuba:=B+2*s;

cL:=0.4*shag;

r:=shag;

H2:=0.75*shag;

s1:=2*s;

ty:=shag-2*(u1*cos(gamma)-P*sin(gamma));

label27.Caption:=formatfloat('0.##',tau);

label28.Caption:=formatfloat('#.##',dd);

label29.Caption:=formatfloat('#.##',e);

label30.Caption:=formatfloat('#.##',h);

label31.Caption:=formatfloat('#.##',Dt);

label32.Caption:=formatfloat('#.##',P);

label33.Caption:=formatfloat('#.##',R);

label34.Caption:=formatfloat('0.##',fi);

label35.Caption:=formatfloat('0.##',gamma);

label36.Caption:=formatfloat('#.##',bzuba);

label37.Caption:=formatfloat('#.##',cL);

label38.Caption:=formatfloat('#.##',r);

label39.Caption:=formatfloat('#.##',H2);

label40.Caption:=formatfloat('#.##',s1);

label41.Caption:=formatfloat('#.##',T);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if Panel1.Caption='' then showmessage ('Произведите расчет цепи.');

if Panel1.Caption='Типоразмер цепи - З-12-2,4' then

memo1.Lines.add('12.7; 22.5; 13.4; 7; 1.5; 4.76; 28.5; 30; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-12-2,9' then

memo1.Lines.add('12.7; 28.5; 13.4; 7; 1.5; 4.76; 34.5; 36; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-12-3,4' then

memo1.Lines.add('12.7; 34.5; 13.4; 7; 1.5; 4.76; 40.5; 42; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-12-4,0' then

memo1.Lines.add('12.7; 40.5; 13.4; 7; 1.5; 4.76; 46.5; 48; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-12-4,7' then

memo1.Lines.add('12.7; 46.5; 13.4; 7; 1.5; 4.76; 52.5; 54; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-12-5,3' then

memo1.Lines.add('12.7; 52.5; 13.4; 7; 1.5; 4.76; 58.5; 60; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-3,9' then

memo1.Lines.add('15.875; 30; 16.7; 8.7; 2.0; 5.95; 36.0; 39; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-4,8' then

memo1.Lines.add('15.875; 38; 16.7; 8.7; 2.0; 5.95; 44.0; 47; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-5,7' then

memo1.Lines.add('15.875; 46; 16.7; 8.7; 2.0; 5.95; 52.0; 55; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-6,7' then

memo1.Lines.add('15.875; 54; 16.7; 8.7; 2.0; 5.95; 60.0; 63; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-7,8' then

memo1.Lines.add('15.875; 62; 16.7; 8.7; 2.0; 5.95; 68.0; 71; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-15-8,9' then

memo1.Lines.add('15.875; 70; 16.7; 8.7; 2.0; 5.95; 76.0; 79; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-19-7,2' then

memo1.Lines.add('19.05; 45; 20.1; 10.5; 3.0; 7.14; 52.6; 56; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-19-8,7' then

memo1.Lines.add('19.05; 57; 20.1; 10.5; 3.0; 7.14; 64.5; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-19-10,3' then

memo1.Lines.add('19.05; 69; 20.1; 10.5; 3.0; 7.14; 76.5; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-19-12,2' then

memo1.Lines.add('19.05; 81; 20.1; 10.5; 3.0; 7.14; 88.5; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-19-14,1' then

memo1.Lines.add('19.05; 93; 20.1; 10.5; 3.0; 7.14; 100.5; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-25-11,6' then

memo1.Lines.add('25.40; 57; 26.7; 14.0; 3.0; 9.52; 65.0; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-25-13,8' then

memo1.Lines.add('25.40; 69; 26.7; 14.0; 3.0; 9.52; 77.0; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+';

'+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-25-16,3' then

memo1.Lines.add('25.40; 81; 26.7; 14.0; 3.0; 9.52; 89.0; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-25-18,9' then

memo1.Lines.add('25.40; 93; 26.7; 14.0; 3.0; 9.52; 101; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-25-21,6' then

memo1.Lines.add('25.40; 105; 26.7; 14.0; 3.0; 9.52; 113; 116; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-31-17,1' then

memo1.Lines.add('31.75; 69; 33.4; 17.5; 3.0; 11.9; 78.0; 82; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-31-20,1' then

memo1.Lines.add('31.75; 81; 33.4; 17.5; 3.0; 11.9; 90.0; 94; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-31-23,5' then

memo1.Lines.add('31.75; 93; 33.4; 17.5; 3.0; 11.9; 102; 106; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-31-26,8' then

memo1.Lines.add('31.75; 105; 33.4; 17.5; 3.0; 11.9; 114; 118; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типоразмер цепи - З-31-30,3' then

memo1.Lines.add('31.75; 117; 33.4; 17.5; 3.0; 11.9; 126; 130; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

end;

procedure TForm1.N3Click(Sender: TObject);

begin

memo1.Lines.SaveToFile('Цепь.txt');

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Showmessage ('Данная программа предназначена для выбора зубчатой приводной цепи определенного типоразмера, согласно данным введеным пользователем.');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Clear;

memo1.Lines.Strings[0]:=' t; B; b1; b2; s; u; l; l1; tau; dd; e; h; Dt; P; R; fi; gamma; bzuba; cL; r; H2; s1; T; De; ';

end;

end.

7. Заключение

Надеюсь разработанная мною программа сможет выполнить свое служебное назначение когда-нибудь. Однако факт того, что человеку ни придется перебирать литературу чтобы рассчитать зубчатую передачу – на лицо.

А ответ на вопрос «Что лучше – цепная передача или ременная?» однозначно ответить мне не представляется возможным. Конечно, цепная передача имеет ряд преимуществ над ременной, например меньшие, чем у ременных передач, габариты или отсутствие проскальзывания и так далее, но они как и все механические передачи ни лишены своих недостатков, которые впоследствии могут повлиять на окончательный выбор инженера, проектирующего станок.