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

Автор работы: Пользователь скрыл имя, 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 Кб (Скачать файл)

            Form1.image2.Canvas.Draw(2,109,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image2.Canvas.Draw(2,122,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l3.bmp');

            Form1.image2.Canvas.Draw(2,135,Pic); 

end; 

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

epi4;

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

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

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

Form1.Image1.Canvas.LineTo(60,380-round(ep43[1]));

Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[1]));

Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[2]));

Form1.Image1.Canvas.LineTo(round(ep42[2]),380-round(ep43[2]));

Form1.Image1.Canvas.LineTo(round(ep42[2]),380-round(ep43[3]));

Form1.Image1.Canvas.LineTo(round(ep42[3]),380-round(ep43[3]));

Form1.Image1.Canvas.LineTo(round(ep42[3]),380);

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

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

Form1.Memo1.Lines.Add('');

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

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos4[1]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos4[2]/m))+' Па');

end

else begin

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos4[1]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos4[2]/m),ffFixed,15,okr)+' Па');

end;

Form1.Memo1.Lines.Add(''); 

Form1.Image1.Canvas.MoveTo(round(ep42[1])-15,495);

Form1.Image1.Canvas.LineTo(round(ep42[1]),580-round(masif4[1]));

Form1.Image1.Canvas.MoveTo(round(ep42[2])-15,495);

Form1.Image1.Canvas.LineTo(round(ep42[2]),580-round(masif4[2])); 

Form1.Image1.Canvas.MoveTo(70,295);

Form1.Image1.Canvas.LineTo(60,380-round(ep43[1]));

Form1.Image1.Canvas.MoveTo(20+round(ep42[1]),295);

Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[2])); 
 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o3.bmp');

            Form1.image1.Canvas.Draw(65,285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o2.bmp');

            Form1.image1.Canvas.Draw(15+round(ep42[1]),285,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l1.bmp');

            Form1.image1.Canvas.Draw(round(ep42[1])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image1.Canvas.Draw(round(ep42[2])-20,485,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o2.bmp');

            Form1.image2.Canvas.Draw(2,31,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o1.bmp');

            Form1.image2.Canvas.Draw(2,44,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l1.bmp');

            Form1.image2.Canvas.Draw(2,70,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image2.Canvas.Draw(2,83,Pic); 

                        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,380);

Form1.Image1.Canvas.LineTo(60,380-round(ep53[1]));

Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[1]));

Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[2]));

Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[2]));

Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[3]));

Form1.Image1.Canvas.LineTo(round(ep52[3]),380-round(ep53[3]));

Form1.Image1.Canvas.LineTo(round(ep52[3]),380);

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

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

Form1.Memo1.Lines.Add('');

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

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[1]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[2]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[3]/m))+' Па');

end

else begin

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[1]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[2]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[3]/m),ffFixed,15,okr)+' Па');

end;

Form1.Memo1.Lines.Add(''); 

Form1.Image1.Canvas.MoveTo(round(ep52[1])-15,495);

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

Form1.Image1.Canvas.MoveTo(round(ep52[2])-15,495);

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

Form1.Image1.Canvas.MoveTo(round(ep52[3])-15,495);

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

Form1.Image1.Canvas.MoveTo(70,295);

Form1.Image1.Canvas.LineTo(60,380-round(ep53[1]));

Form1.Image1.Canvas.MoveTo(20+round(ep52[1]),295);

Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[2]));

Form1.Image1.Canvas.MoveTo(20+round(ep52[2]),295);

Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[3])); 
 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o3.bmp');

            Form1.image1.Canvas.Draw(65,285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o2.bmp');

            Form1.image1.Canvas.Draw(15+round(ep52[1]),285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o1.bmp');

            Form1.image1.Canvas.Draw(15+round(ep52[2]),285,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l1.bmp');

            Form1.image1.Canvas.Draw(round(ep52[1])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image1.Canvas.Draw(round(ep52[2])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l3.bmp');

            Form1.image1.Canvas.Draw(round(ep52[3])-20,485,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o3.bmp');

            Form1.image2.Canvas.Draw(2,44,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o2.bmp');

            Form1.image2.Canvas.Draw(2,57,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o1.bmp');

            Form1.image2.Canvas.Draw(2,70,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l1.bmp');

            Form1.image2.Canvas.Draw(2,96,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image2.Canvas.Draw(2,109,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l3.bmp');

            Form1.image2.Canvas.Draw(2,122,Pic); 

                        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,380);

Form1.Image1.Canvas.LineTo(60,380-round(ep63[1]));

Form1.Image1.Canvas.LineTo(round(ep62[1]),380-round(ep63[1]));

Form1.Image1.Canvas.LineTo(round(ep62[1]),380-round(ep63[2]));

Form1.Image1.Canvas.LineTo(round(ep62[2]),380-round(ep63[2]));

Form1.Image1.Canvas.LineTo(round(ep62[2]),380-round(ep63[3]));

Form1.Image1.Canvas.LineTo(round(ep62[3]),380-round(ep63[3]));

Form1.Image1.Canvas.LineTo(round(ep62[3]),380-round(ep63[4]));

Form1.Image1.Canvas.LineTo(round(ep62[4]),380-round(ep63[4]));

Form1.Image1.Canvas.LineTo(round(ep62[4]),380);

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

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

Form1.Memo1.Lines.Add('');

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

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[1]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[2]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[3]/m))+' Па');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[4]/m))+' Па');

end

else begin

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[1]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[2]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[3]/m),ffFixed,15,okr)+' Па');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[4]/m),ffFixed,15,okr)+' Па');

end;

Form1.Memo1.Lines.Add(''); 

Form1.Image1.Canvas.MoveTo(round(ep62[1])-15,495);

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

Form1.Image1.Canvas.MoveTo(round(ep62[2])-15,495);

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

Form1.Image1.Canvas.MoveTo(round(ep62[3])-15,495);

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

Form1.Image1.Canvas.MoveTo(round(ep62[4])-15,495);

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

Form1.Image1.Canvas.MoveTo(70,295);

Form1.Image1.Canvas.LineTo(60,380-round(ep63[1]));

Form1.Image1.Canvas.MoveTo(20+round(ep62[1]),295);

Form1.Image1.Canvas.LineTo(round(ep62[1]),380-round(ep63[2]));

Form1.Image1.Canvas.MoveTo(20+round(ep62[2]),295);

Form1.Image1.Canvas.LineTo(round(ep62[2]),380-round(ep63[3]));

Form1.Image1.Canvas.MoveTo(20+round(ep62[3]),295);

Form1.Image1.Canvas.LineTo(round(ep62[3]),380-round(ep63[4])); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o4.bmp');

            Form1.image1.Canvas.Draw(65,285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o3.bmp');

            Form1.image1.Canvas.Draw(15+round(ep62[1]),285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o2.bmp');

           Form1.image1.Canvas.Draw(15+round(ep62[2]),285,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('o1.bmp');

            Form1.image1.Canvas.Draw(15+round(ep62[3]),285,Pic); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l1.bmp');

            Form1.image1.Canvas.Draw(round(ep62[1])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l2.bmp');

            Form1.image1.Canvas.Draw(round(ep62[2])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l3.bmp');

            Form1.image1.Canvas.Draw(round(ep62[3])-20,485,Pic);

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('l4.bmp');

            Form1.image1.Canvas.Draw(round(ep62[4])-20,485,Pic); 

            Pic:=Tbitmap.Create;

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

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

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

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

Титульник.doc

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

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