Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие

Автор работы: Пользователь скрыл имя, 25 Декабря 2010 в 09:54, курсовая работа

Описание работы

Цель данной работы – выполнить расчет стержневой системы методами сопротивления материалов на растяжение-сжатие (рассмотреть случаи статически определяемой системы).

Для реализации поставленной цели в работе необходимо решить следующие задачи:

1.разработать сценарий работы приложения;
2.разработать макеты экранных форм;
3.разработать приложение, реализующее следующие функции:

•ввод данных;
•расчет и вывод результатов;
•построение эпюр;
•вывод справочной информации о приложении;
•возможность изменения интерфейса рабочей области.

Содержание работы

ВВЕДЕНИЕ 5
1 ПОНЯТИЕ ДОХОДЫ НАСЕЛЕНИЯ, ИХ КЛАССИФИКАЦИЯ. ВИДЫ
ДОХОДОВ 6
2 ДОХОДЫ НАСЕЛЕНИЯ. ПОКАЗАТЕЛИ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ НАСЕЛЕНИЯ 8
3 АНАЛИЗ ПОКАЗАТЕЛЕЙ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ. КРИВАЯ ЛОРЕНЦА 13
ЗАКЛЮЧЕНИЕ 17
БИБЛИОГРАФИЧЕСКИЙ СПИСОК 18

Скачать архив (437.95 Кб) Сколько стоит заказать работу?

Файлы: 15 файлов

1 Выбор языка программирования.doc

— 82.00 Кб (Просмотреть файл, Скачать файл)

2 анализ и уточнение требований к ПП.doc

— 77.50 Кб (Просмотреть файл, Скачать файл)

3 разработка основных методов и алгоритмов программного продукта.doc

— 72.00 Кб (Просмотреть файл, Скачать файл)

4.doc

— 94.00 Кб (Просмотреть файл, Скачать файл)

5 разработка Ф c.doc

— 89.00 Кб (Просмотреть файл, Скачать файл)

6 Проектирование интерфейса пользователя.doc

— 124.50 Кб (Просмотреть файл, Скачать файл)

6 Проектирование интерфейса пользователя в2.doc

— 132.50 Кб (Просмотреть файл, Скачать файл)

7 разработка тестов.doc

— 152.50 Кб (Просмотреть файл, Скачать файл)

Библиографический список+.doc

— 57.50 Кб (Просмотреть файл, Скачать файл)

введение.doc

— 70.00 Кб (Просмотреть файл, Скачать файл)

заключение.doc

— 65.50 Кб (Просмотреть файл, Скачать файл)

ПРИЛОЖЕНЕ A.doc

— 267.50 Кб (Скачать файл)

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 2 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis4[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis4[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

if (a=2) and (b=2) then begin

epi5;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,580);

Form1.Image1.Canvas.LineTo(round(ep52[1]),580-round(masif5[1]));

Form1.Image1.Canvas.LineTo(round(ep52[2]),580-round(masif5[2]));

Form1.Image1.Canvas.LineTo(round(ep52[3]),580-round(masif5[3]));

Form1.Image1.Canvas.LineTo(round(ep52[4]),580-round(masif5[3]));

Form1.Image1.Canvas.LineTo(round(ep52[4]),580);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

if ComboBox6.Text='ì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis5[i])/m)+' кН/м * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis5[i])/m,ffFixed,15,okr)+' кН/м * E')

end;

if ComboBox6.Text='ñì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis5[i])/m)+' кН/см * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis5[i])/m,ffFixed,15,okr)+' кН/см * E')

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis5[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis5[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

if (a=2) and (b=3) then begin

epi6;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,580);

Form1.Image1.Canvas.LineTo(round(ep62[1]),580-round(masif6[1]));

Form1.Image1.Canvas.LineTo(round(ep62[2]),580-round(masif6[2]));

Form1.Image1.Canvas.LineTo(round(ep62[3]),580-round(masif6[3]));

Form1.Image1.Canvas.LineTo(round(ep62[4]),580-round(masif6[4]));

Form1.Image1.Canvas.LineTo(round(ep62[5]),580-round(masif6[4]));;

Form1.Image1.Canvas.LineTo(round(ep62[5]),580);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

if ComboBox6.Text='ì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis6[i])/m)+' кН/м * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis6[i])/m,ffFixed,15,okr)+' кН/м * E')

end;

if ComboBox6.Text='ñì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis6[i])/m)+' кН/см * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis6[i])/m,ffFixed,15,okr)+' кН/см * E')

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis6[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis6[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

if (a=3) and (b=1) then begin

epi7;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,580);

Form1.Image1.Canvas.LineTo(round(ep72[1]),580-round(masif7[1]));

Form1.Image1.Canvas.LineTo(round(ep72[2]),580-round(masif7[2]));

Form1.Image1.Canvas.LineTo(round(ep72[3]),580-round(masif7[3]));

Form1.Image1.Canvas.LineTo(round(ep72[4]),580-round(masif7[4]));

Form1.Image1.Canvas.LineTo(round(ep72[4]),580);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

if ComboBox6.Text='ì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis7[i])/m)+' кН/м * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis7[i])/m,ffFixed,15,okr)+' кН/м * E')

end;

if ComboBox6.Text='ñì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis7[i])/m)+' кН/см * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis7[i])/m,ffFixed,15,okr)+' кН/см * E')

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 3 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis7[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis7[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

if (a=3) and (b=2) then begin

epi8;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,580);

Form1.Image1.Canvas.LineTo(round(ep82[1]),580-round(masif8[1]));

Form1.Image1.Canvas.LineTo(round(ep82[2]),580-round(masif8[2]));

Form1.Image1.Canvas.LineTo(round(ep82[3]),580-round(masif8[3]));

Form1.Image1.Canvas.LineTo(round(ep82[4]),580-round(masif8[4]));

Form1.Image1.Canvas.LineTo(round(ep82[5]),580-round(masif8[5]));;

Form1.Image1.Canvas.LineTo(round(ep82[5]),580);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

if ComboBox6.Text='ì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis8[i])/m)+' кН/м * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis8[i])/m,ffFixed,15,okr)+' кН/м * E')

end;

if ComboBox6.Text='ñì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis8[i])/m)+' кН/см * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis8[i])/m,ffFixed,15,okr)+' кН/см * E')

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 4 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis8[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis8[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

if (a=3) and (b=3) then begin

epi9;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,580);

Form1.Image1.Canvas.LineTo(round(ep92[1]),580-round(masif9[1]));

Form1.Image1.Canvas.LineTo(round(ep92[2]),580-round(masif9[2]));

Form1.Image1.Canvas.LineTo(round(ep92[3]),580-round(masif9[3]));

Form1.Image1.Canvas.LineTo(round(ep92[4]),580-round(masif9[4]));

Form1.Image1.Canvas.LineTo(round(ep92[5]),580-round(masif9[5]));;

Form1.Image1.Canvas.LineTo(round(ep92[6]),580-round(masif9[5]));;

Form1.Image1.Canvas.LineTo(round(ep92[6]),580);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

if ComboBox6.Text='ì' then begin

for i:=1 to 5 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis9[i])/m)+' кН/м * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis9[i])/m,ffFixed,15,okr)+' кН/м * E')

end;

if ComboBox6.Text='ñì' then begin

for i:=1 to 5 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis9[i])/m)+' кН/см * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis9[i])/m,ffFixed,15,okr)+' кН/см * E')

end;

if ComboBox6.Text='ìì' then begin

for i:=1 to 5 do

if Form4.ComboBox1.Text='Íåîãðàíè÷åííî' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(chis9[i])/m)+' кН/мм * E') else

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(chis9[i])/m,ffFixed,15,okr)+' кН/мм * E')

end;

end

else

MessageDlg('Точки приложения сил, недолжны выходить за пределы бруса.',mtInformation,[mbOK],0);

end

else

MessageDlg('Силы должны вводиться по порядку.',mtInformation,[mbOK],0);

end

else

MessageDlg('Ошибка. Проверьте поля площадей.',mtInformation,[mbOK],0);

end

else

MessageDlg('Ошибка. Проверьте поля значений сил.',mtInformation,[mbOK],0);

end

else

MessageDlg('Ошибка. Проверьте поля точек приложения сил.',mtInformation,[mbOK],0);

end

else

MessageDlg('Ошибка. Проверьте поля длин участков.',mtInformation,[mbOK],0);

end

else

MessageDlg('Ошибка. Проверьте поля площадей.',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданно значение третей силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна точка приложения третей силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданно значение второй силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна точка приложения второй силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданно значение первой силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна точка приложения первой силы',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна площадь третьего участка',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна длина третьего участка',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна площадь второго участка',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна длина второго участка',mtInformation,[mbOK],0);

end

else

MessageDlg('Не заданна площадь первого участка',mtInformation,[mbOK],0);

end

ПРИЛОЖЕНЕ Б.doc

— 137.50 Кб (Просмотреть файл, Скачать файл)

содержание.doc

— 158.50 Кб (Просмотреть файл, Скачать файл)

Титульник.doc

— 130.00 Кб (Просмотреть файл, Скачать файл)

Информация о работе Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие