Расчет башенного крана и механизма изменений вылета (стр. 1 из 2)

ВИСШЕЕ ГОСУДАРСТВЕННОЕ УЧЕБНОЕ ЗАВЕДЕНИЕ

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ

ДОНЕЦКИЙ НАЦИОНАЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КУРСОВАЯ РОБОТА

По дисциплине "Введение в информатику"

Тема роботи: Расчет башенного крана и механизма изменений вылета

Исполнил студент

группы МЕХ-08б

Нестеренко Дмитрий

Руководитель работы

Скрипник Т.В.

Донецьк-2009

РЕФЕРАТ

СРЕДНЯЯ СКОРОСТЬ ПЕРЕМЕЩЕНИЯ ГРУЗА, ОТНОСИТЕЛЬНАЯ ПРОДОЛЖИТЕЛЬНОСТЬ ВКЛЮЧЕНИЯ ДВИГАТЕЛЯ, ДЛИНА СТРЕЛЫ, НАИБОЛЬШИЙ УГОЛ НАКЛОНА СТРЕЛЫ, БЛОК-СХЕМА, ЕXCEL, DELPHI 3, МОЩНОСТЬ ЭЛЕКТРОДВИГАТЕЛЯ .

Страниц- 24, Рисунков-8, Таблиц-4, Источников- 3.

Объектом исследования является расчёт мощности и выбор по каталогу кранового электродвигателя.

Цель работы:

- расчёт мощности и выбор кранового электродвигателя с помощью таблиц Microsoft Excel ;

-составление блок-схемы, описание алгоритма и написание программы на языке Delphi 3, которая предназначена для расчета мощности электродвигателя мостового крана.

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

Содержание

Введение

1. Постановка задачи·

2. Контрольный просчёт

3. Блок-схема алгоритма

4. Описание алгоритма

5. Характеристика данных и их условные обозначения

6. Текст программы

7. Описание программы

8. Программный интерфейс

9. Описание работы программы

Заключение

Список используемой литературы

Приложение

Введение

Подъёмно-транспортные машины

Технологический процесс любого производства неразрывно связан с перемещением огромного количества грузов, начиная от подачи сырья до выдачи готовой продукции. В осуществлении грузовых потоков на предприятиях и комплексной механизации процессов труда основную роль играют системы подъёмно-транспортных машин и оборудования. Грузоподъёмные машины предназначены для подъёма, перемещения и подачи груза в требуемое место, обслуживаемое машиной. Они обслуживают производственные процессы в цехах заводов и на строительных объектах, устанавливают и монтируют промышленное оборудование, выполняют погрузочно-разгрузочные работы на складах и являются составной частью комплексной механизации производственных процессов во всех отраслях народного хозяйства. Механизмы передвижения

По месту расположения механизмы передвижения можно разделить на 3 группы:

- мех-мы, расположенные непосредственно на перемещаемой машине;

- мех-мы, расположенные вне перемещаемого объекта с гибкой тягой;

- мех-мы, расположенные непосредственно у ходового колеса;

- по конструкции опорной части крана: рельсовые, безрельсовые, канатные;

- по конструкции ходовой части крана: колёсные, гусеничные, шагающие.

- по роду привода: электрический, Д.В.С., гидравлический, пневматический

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

1. ПОСТАНОВКА ЗАДАЧИ

Наименование параметра	Обозн.	Ед. изм.	Величина
			III в.
Средняя скорость перемещения груза	v ср	м/мин	10
Максимальный вылет стрелы	А	м	22
Длина стрелы	L C	м	25
Наибольший угол наклона стрелы	β	град	65
Расстояние от оси вращения крана до корневого шарнира стрелы	r	м	1
к.п.д. механизма	η м	0,85
Относительная продолжительность включения двигателя	ПВ	%	25

Постановка задачи

Расчет включает определение мощности электродвигателя по среднеквадратичной нагрузке, проверку по максимальному усилию в стреловом полиспасте и по продолжительности времени пуска двигателя и торможения.

Рисунок 1 Схема определения усилия и кинематическая схема механизма изменения вылета крана

Среднеквадратичное усилие в стреловом полиспасте

,

гдеS _Пi – усилия в стреловом полиспасте (Приложение );

Δ l – длины стрелового полиспаста на каждом промежутке

Мощность двигателя

,

гдеv _пол – скорость сокращения полиспаста, м/с;

,

где

– величина сокращения полиспаста;

- величина изменения вылета;

;

По каталогу крановых двигателей (Приложение 1) по значениям ПВ (ПВ=25%) и ближайшего меньшего N _P выбираем тип электродвигателя (MTF 412-6) и его параметры (n=965мин ^-1 и др.).

2.КОНТРОЛЬНЫЙ ПРОСЧЁТ

Рисунок 2

Рисунок 3

3.БЛОК-СХЕМА

4.ОПИСАНИЕ АЛГОРИТМА

1. Начало алгоритма.

2. Ввод исходных данных.

3-4. Инициализация переменных.

5-7. Организация цикла (данные из приложения 2)

8. Присваивание элементов приложения 2.

10-14.Организация цикла (выбор max и min значения приложения 2).

15-20. Расчёт данных.

21-23. Организация цикла (выбор типа двигателя из приложения1).

24.Вывод типа двигателя.

25.Конец алгоритма.

5.ХАРАКТЕРИСТИКА ДАННЫХ И ИХ УСЛОВНЫЕОБОЗНАЧЕНИЯ

№п/п	Наименование данных	Обозначениев алгоритме	Обозначениев программе	Тип переменной
1.	Средняя скорость перемещения груза	Vsr	Vsr	real
2.	Максимальный вылет стрелы	А	A	real
3.	Длина стрелы	Lc	Lc	real
4.	Наибольший угол наклона стрелы	b	b	real
5.	Расстояние от оси вращения крана до корневого шарнира стрелы	r	r	real
6.	к.п.д. механизма	Nm	Nm	real
7.	Относительная продолжительность включения двигателя	PV	PV	real
8.	среднеквадратичное усилие	Scp	Scp	real
9.	величина сокращения полиспата	d_l	d_l	real
10.	Аmax	Аmax	Аmax	real
11.	Аmin	Аmin	Аmin	real
12.	скорость сокращения полиспата	Vpol	Vpol	real
13.	Мощность двигателя	Np	Np	real
14.	da	da	da	real
15.	Lmax	L max	Lmax	real
16.	Lmin	Lmin	Lmin	real
17.	tip	tip	tip	string
18.	PVT	PVT	PVT	real
19.	dl	dl	dl	real

6.ТЕКСТ ПРОГРАММЫ

unit Unit1;

interface

uses

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

StdCtrls, Menus, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

Edit7: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N81: TMenuItem;

N11: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

OpenDialog1: TOpenDialog;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Label15: TLabel;

Edit15: TEdit;

Label16: TLabel;

Edit16: TEdit;

Label17: TLabel;

Edit17: TEdit;

procedure N11Click(Sender: TObject);

procedure N81Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Vsr,A,Lc,b,r,Nm,PV,Scp,S1,max,min:real;

Lmax,Lmin,d_l,Amax,Amin,da,Vpol,Np:real;

tip:array[1..5] of string;

PVT:array[1..5] of real;

dl,Sp:array[1..8] of real;

i:integer;

implementation

{$R *.DFM}

procedure TForm1.N11Click(Sender: TObject);

Var

F1:textfile;

fname:string;

begin

StringGrid1.Visible:=true;

StringGrid1.Cells[0,0]:='тип дв.';

StringGrid1.Cells[0,1]:='мощность';

fname:='';

if opendialog1.Execute then

begin

fname:=OpenDialog1.FileName;

AssignFile(f1,fname);

Reset(f1);

for i:=1 to 5 do

begin

readln(f1, tip[i]);

readln(f1, PVT[I]);

StringGrid1.Cells[i,0]:=tip[i];

StringGrid1.Cells[i,1]:=formatFloat('0.#',PVT[i]);

END;

closefile(f1);

end;

end;

procedure TForm1.N81Click(Sender: TObject);

Var

F1:textfile;

fname:string;

begin

StringGrid2.Visible:=true;

StringGrid2.Cells[0,0]:='длина';

StringGrid2.Cells[0,1]:='усилие';

fname:='';

if opendialog1.Execute then

begin

fname:=OpenDialog1.FileName;

AssignFile(f1,fname);

Reset(f1);

for i:=1 to 8 do

begin

readln(f1, dl[i]);

readln(f1, Sp[I]);

StringGrid2.Cells[i,0]:=formatFloat('0.#',dl[i]);

StringGrid2.Cells[i,1]:=formatFloat('0.#',Sp[i]);

END;

closefile(f1);