Курсовая работа: Привод конвейера ПК-19

Делительный шаг

Основной шаг

Строим картину эвольвентного зацепления по результатам расчетов. Масштабный коэффициент построения .

Определение коэффициента торцового перекрытия аналитически

Текст расчетной программы

unitUnit1;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit;

Edit6: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel;

Label4: TLabel; Label5: TLabel; Label6: TLabel; GroupBox2: TGroupBox;

Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit;

Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit;

Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit;

Edit22: TEdit; Edit23: TEdit; Edit24: TEdit; Edit25: TEdit; Edit26: TEdit;

Edit27: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel;

Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel;

Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel;

Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel;