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

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

                         image1.Canvas.MoveTo(round(58+p2),22);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p2),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p2),21,round(60+p2),24);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F2.bmp');

                         Form1.image1.Canvas.Draw(round(47+p2),19,Pic);

                         end

                    else begin

                         image1.Canvas.MoveTo(round(58+p2),22);

                         image1.Canvas.LineTo(round(p2-z2+58),22);

                         image1.Canvas.MoveTo(round(p2-z2+58),22);

                         image1.Canvas.LineTo(round(p2-z2+64),18);

                         image1.Canvas.MoveTo(round(p2-z2+58),22);

                         image1.Canvas.LineTo(round(p2-z2+64),26);

                         image1.Canvas.MoveTo(round(58+p2),22);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p2),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p2),21,round(60+p2),24);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F2.bmp');

                         Form1.image1.Canvas.Draw(round(62+p2),19,Pic);

                         end;

              end; 

if b=3 then begin

            si3;

            if s1=1 then begin

                         image1.Canvas.MoveTo(round(58+p1),5);

                         image1.Canvas.LineTo(round(58+p1+z1),5);

                         image1.Canvas.MoveTo(round(58+p1+z1),5);

                         image1.Canvas.LineTo(round(53+p1+z1),1);

                         image1.Canvas.MoveTo(round(58+p1+z1),5);

                         image1.Canvas.LineTo(round(53+p1+z1),9);

                         image1.Canvas.MoveTo(round(58+p1),5);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p1),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p1),4,round(60+p1),7);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F1.bmp');

                         Form1.image1.Canvas.Draw(round(48+p1),2,Pic);

                        end

                    else begin

                         image1.Canvas.MoveTo(round(58+p1),5);

                         image1.Canvas.LineTo(round(p1-z1+58),5);

                         image1.Canvas.MoveTo(round(p1-z1+58),5);

                         image1.Canvas.LineTo(round(p1-z1+64),1);

                         image1.Canvas.MoveTo(round(p1-z1+58),5);

                         image1.Canvas.LineTo(round(p1-z1+64),9);

                         image1.Canvas.MoveTo(round(58+p1),5);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p1),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p1),4,round(60+p1),7);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F1.bmp');

                         Form1.image1.Canvas.Draw(round(62+p1),2,Pic);

                         end;

            if s2=1 then begin

                         image1.Canvas.MoveTo(round(58+p2),14);

                         image1.Canvas.LineTo(round(58+p2+z2),14);

                         image1.Canvas.MoveTo(round(58+p2+z2),14);

                         image1.Canvas.LineTo(round(53+p2+z2),18);

                         image1.Canvas.MoveTo(round(58+p2+z2),14);

                         image1.Canvas.LineTo(round(53+p2+z2),10);

                         image1.Canvas.MoveTo(round(58+p2),14);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p2),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p2),13,round(60+p2),16);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F2.bmp');

                         Form1.image1.Canvas.Draw(round(47+p2),11,Pic);

                         end

                    else begin

                         image1.Canvas.MoveTo(round(58+p2),14);

                         image1.Canvas.LineTo(round(p2-z2+58),14);

                         image1.Canvas.MoveTo(round(p2-z2+58),14);

                         image1.Canvas.LineTo(round(p2-z2+64),18);

                         image1.Canvas.MoveTo(round(p2-z2+58),14);

                         image1.Canvas.LineTo(round(p2-z2+64),10);

                         image1.Canvas.MoveTo(round(58+p2),14);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p2),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p2),13,round(60+p2),16);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F2.bmp');

                         Form1.image1.Canvas.Draw(round(62+p2),11,Pic);

                         end;

            if s3=1 then begin

                         image1.Canvas.MoveTo(round(58+p3),23);

                         image1.Canvas.LineTo(round(58+p3+z3),23);

                         image1.Canvas.MoveTo(round(58+p3+z3),23);

                         image1.Canvas.LineTo(round(53+p3+z3),19);

                         image1.Canvas.MoveTo(round(58+p3+z3),23);

                         image1.Canvas.LineTo(round(53+p3+z3),27);

                         image1.Canvas.MoveTo(round(58+p3),23);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p3),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                         image1.Canvas.Rectangle(round(57+p3),22,round(60+p3),25);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F3.bmp');

                         Form1.image1.Canvas.Draw(round(47+p3),20,Pic);

                         end

                    else begin

                         image1.Canvas.MoveTo(round(58+p3),23);

                         image1.Canvas.LineTo(round(p3-z3+58),23);

                         image1.Canvas.MoveTo(round(p3-z3+58),23);

                         image1.Canvas.LineTo(round(p3-z3+64),19);

                         image1.Canvas.MoveTo(round(p3-z3+58),23);

                         image1.Canvas.LineTo(round(p3-z3+64),27);

                         image1.Canvas.MoveTo(round(58+p3),23);

                         Form1.Image1.Canvas.Pen.Style:=psDashDot;

                         image1.Canvas.LineTo(round(58+p3),760);

                         Form1.Image1.Canvas.Pen.Style:=psSolid;

                        image1.Canvas.Rectangle(round(57+p3),22,round(60+p3),25);

                         Pic:=Tbitmap.Create;

                         Pic.LoadFromFile('F3.bmp');

                         Form1.image1.Canvas.Draw(round(62+p3),20,Pic);

                         end;

            end; 

if b=1 then begin

            si1;

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

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

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

            Form1.Image1.Canvas.LineTo(60,190-round(sil7));

            Form1.Image1.Canvas.LineTo(round(59+p1),190-round(sil7));

            Form1.Image1.Canvas.LineTo(round(58+p1),190);

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

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

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('N1.bmp'); 

            Form1.Image1.Canvas.MoveTo(68,102);

            Form1.Image1.Canvas.LineTo(60,190-round(sil7)); 

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

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

            Form1.Memo1.Lines.Add('= '+Floattostr(abs(f1))+' кН')

            else Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f1),ffFixed,15,okr)+' кН'); 

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('N1.bmp');

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

            end;

if b=2 then begin

            obr2;

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

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

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

            Form1.Image1.Canvas.LineTo(60,190-round(sil8[1]));

            Form1.Image1.Canvas.LineTo(round(i3+29),190-round(sil8[1]));

            Form1.Image1.Canvas.LineTo(round(i3+30),190-round(sil8[2]));

            Form1.Image1.Canvas.LineTo(round(i2+29),190-round(sil8[2]));

            Form1.Image1.Canvas.LineTo(round(i2+30),190);

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

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

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('N2.bmp');

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

            Pic:=Tbitmap.Create;

            Pic.LoadFromFile('N1.bmp');

            Form1.image1.Canvas.Draw(round(i3+35),90,Pic); 

            Form1.Image1.Canvas.MoveTo(68,102);

            Form1.Image1.Canvas.LineTo(60,190-round(sil8[1]));

            Form1.Image1.Canvas.MoveTo(round(i3+38),102);

            Form1.Image1.Canvas.LineTo(round(i3+30),190-round(sil8[2])); 

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

            Form1.Memo1.Lines.Add('= '+Floattostr(abs(f1))+' кН');

            Form1.Memo1.Lines.Add('= '+Floattostr(abs(f2))+' кН');

            end

            else begin

            Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f1),ffFixed,15,okr)+' кН');

            Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f2),ffFixed,15,okr)+' кН');

            end; 

            Pic.LoadFromFile('N2.bmp');

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

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

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

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

Титульник.doc

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

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