Помощь в написании студенческих работ
Антистрессовый сервис

Программа определения момента образования трещин при изгибе в среде программирования Paskal

КонтрольнаяПомощь в написанииУзнать стоимостьмоей работы

В заключении хотелось бы отметить, что в ходе проделанной работы были получены начальные навыки программирования в среде Pascal. Получены навыки составления блок — схем в программе MS VISIO 2010. Также были расширены знания по предмету расчета деформаций каменных и армокаменных конструкций. Были изучены главы СНИП, схожие по тематике с задачей курсовой работы. Была написана программа определения… Читать ещё >

Программа определения момента образования трещин при изгибе в среде программирования Paskal (реферат, курсовая, диплом, контрольная)

Программа определения момента образования трещин при изгибе в среде программирования Paskal

1. Постановка задачи Написать программу определения момента образования трещин при изгибе в среде программирования Paskal.

2. Анализ предметной области

2.1 Изгибающий момент Mcrc при образовании трещин определяется на основе деформационной модели с учетом неупругих деформаций растянутого бетона Допускается определять момент Mcrc без учета неупругих деформаций бетона согласно пп.2.2 и 2.3. Если при этом условие (Расчет по раскрытию трещин производят из условия acrc? acrc,ult) не удовлетворяется, то момент образования трещин следует определять с учетом неупругих деформаций бетона.

2.2 Момент образования трещин без учета неупругих деформаций бетона определяют как для сплошного упругого тела по формуле

Mcrc = Rbе,serW ± Neя (1.4)

где W — момент сопротивления приведенного сечения для крайнего растянутого волокна бетона:

eя — расстояние от центра тяжести приведенного сечения элемента до ядровой точки, наиболее удаленной от растянутой зоны, трещинообразование которой проверяется.

Значения W и ея определяются согласно п. 2.3. В формуле (1.4) знак «плюс» принимают при сжимающей продольной силе N, знак «минус» — при растягивающей силе.

2.3 Момент сопротивления W и расстояние ея определяют по формулам:

(1.5)

(1.6)

где Ired — момент инерции приведенного сечения относительно его центра тяжести, определяемый по формуле

Ired = I + Isa + I'sa; (1.7)

I, Is, I's — момент инерции сечения соответственно бетона, растянутой и сжатой арматуры;

Ared — площадь приведенного сечения, равная

Ared = A + Asa + A'sa, (1.8)

— коэффициент приведения арматуры к бетону;

yt — расстояние от наиболее растянутого волокна бетона до центра тяжести приведенного сечения элемента.

При значения W и ея допускается определять без учета арматуры.

Черт.1.1. Схема напряженно-деформированного состояния сечения элемента при проверке образования трещин при действии изгибающего момента (а), изгибающего момента и продольной силы (б)

1 -уровень центра тяжести приведенного сечения

2.4 Для прямоугольных, тавровых и двутавровых сечений при действии момента в плоскости оси симметрии момент образования трещин с учетом неупругих деформаций растянутого бетона допускается определять по формуле (1.4) с заменой значения W на Wpi= Wг, где г — см. табл.1.1

изгиб программирование модель бетон

3. Алгоритм в виде блок схемы

4. Спецификация используемых переменных

Переменная

Описание

Тип

ОЗУ

Mcrc

Изгибающий момент

Real

6 байта

acrc

Ширина раскрытия трещин от действия внешней нагрузки

Real

6 байта

acrc,ult

Предельно допустимая ширина раскрытия трещин

Real

6 байта

W

Момент сопротивления приведенного

Real

6 байтов

N

Растягивающее усилие

Integer

2 байта

eя

Расстояние от центра тяжести приведенного сечения элемента до ядровой точки

Real

6 байтов

Ired

Момент инерции приведенного сечения относительно его центра тяжести

Integer

2 байта

I, Is, I's

Момент инерции сечения соответственно бетона, растянутой и сжатой арматуры

Real

6 байтов

Ared

Площадь приведенного сечения, равная

Real

6 байтов

Коэффициент приведения арматуры к бетону

Real

6 байтов

yt

Расстояние от наиболее растянутого волокна бетона до центра тяжести приведенного сечения элемента

Integer

2 байта

F

Подданая сила

Integer

2 байта

Wpi

Постоянная

Integer

2 байта

5. Описание интерфейса Задача достаточно линейна. Все действия выполняются последовательно. Расчет в первую очередь будет зависеть от входной сжимающей или растягивающей силы, от определения входных переменных. Также в зависимости от входных параметров момент будет рассчитан либо с учетом, либо без арматуры, с учетом либо без не упругих деформаций.

Заключение

В заключении хотелось бы отметить, что в ходе проделанной работы были получены начальные навыки программирования в среде Pascal. Получены навыки составления блок — схем в программе MS VISIO 2010. Также были расширены знания по предмету расчета деформаций каменных и армокаменных конструкций. Были изучены главы СНИП, схожие по тематике с задачей курсовой работы. Была написана программа определения момента образования трещин при изгибе, возникающих в бетоне.

Список используемых источников

1. Пособие по проектированию бетонных и железобетонных конструкций из тяжелого бетона без предварительного напряжения арматуры (к сп 52−101−2003) Москва 2005

2. СНиП 52−01−2003 «Бетонные и железобетонные конструкции» — Введен с 1 января 2003 года

3. Turbo Pascal. Учебник Немнюгин С. А.

4. Конспекты лекций по предмету" Информатика"

Приложение 1

Исходный код программы с комментариями

program work;

var //описание переменных

W, M, er, acrc, acrc_ult, _a, Rbe_ser: real;

yt, Es, Eb, Ired, Ared, As, A, I, Asa, A1sa, Isa, I1sa, Wpi, F, N: integer;

begin

//ввод исходных данных

writeln ('As, A, I, Es, Eb, Asa, A1sa, Isa, I1sa, acrc, acrc_ult, Wpi, yt, F (1,2), Rbe_ser, N');

readln (As, A, I, Es, Eb, Asa, A1sa, Isa, I1sa, acrc, acrc_ult, Wpi, yt, F, Rbe_ser, N);

//без учета арматуры

if (As/A < 0.005) then

begin

Ired := I;

Ared := A;

end

else

begin // с учетом

_a := Es/Eb;

Ared := A + Asa + A1sa;

Ired := I + Isa + I1sa;

end;

if (acrc <= acrc_ult) then//без учета неупругих деформаций

W := Ired/yt

else

W := Wpi; //с учетом упругих дефформаций

er := W/Ared;

if (F = 1) then

M := Rbe_ser*W+N*er//относительно сжимающей силы

else

M := Rbe_ser*W-N*er; //относительно растягивающей силы

writeln ('Rezultat — ', M:1:5);// выводим данные на экран

readln;

end.

Приложение 2

Техническое задание

1) Основание для разработки.

Настоящая разработка ведется на основании курсовой работы по предмету «Информатика».

Наименование курсовой работы: «Определение момента образования трещин при изгибе».

2) Назначение разработки.

Данная программа применяется для расчета момента образования трещин при изгибе.

3) Требования к программе.

3.1 Общие требования к разработке:

— Программа должна быть реализована в среде программирования Paskal.

3.2. Требования к функциональным характеристикам:

— Обеспечить ввод начальных параметров;

— Обеспечить точный расчет момент.

3.3. Требования к надежности.

Надежность обеспечивается следующими средствами:

— контроль входных и выходных данных;

— не зависание

— правильное и своевременное оповещение об ошибках.

3.4 Требования к составу и параметрам технических средств:

— Процессор с тактовой чистотой 600МГц;

— Оперативная память 256 kb;

— Монитор с разрешением 1024×768;

— Клавиатура;

3.5 Требования к информационной программной совместимости:

— OS MS Windows 98 и выше или Dos;

3.6. Специальные требования.

нет

3.7 Требования к документации

3.7.1 Пояснительная записка

— Введение;

— Анализ предметной области;

— Выбор среды разработки;

— Описание программного комплекса;

— Заключение

— Список использованных источников

Приложение 1. Исходный код

Приложение 2. Техническое задание Приложение 3. Таблицы и справочные материалы

Приложение 3

Таблица 1.1 — Коэффициенты сечений

Сечение

Коэффициент г

Форма поперечного сечения

1. Прямоугольное

1,30

2.Тавровое с полкой, расположенной в сжатой зоне

1,30

3. Тавровое с полкой (уширением), расположенной в растянутой зоне:

а) при bf /b? 2 независимо от отношения hf /h

1,25

б) при bf /b > 2 и hf /h? 0,2

1,25

в) при bf /b > 2 и hf /h < 0,2

1,20

4.Двутавровое симметричное (коробчатое):

а) при b'f /b = bf /b? 2 независимо от отношения h'f /h = hf /h

1,30

б) при 2 < b'f /b = bf /b? 6 независимо от отношения h'f /h = hf /h

1,25

в) при b'f /b = bf /b > 6 и h'f /h = hf /h? 0,2

1,25

г) при 6< b'f /b = bf /b? 15 и h'f /h = hf /h < 0,2

1,20

д) при b'f /b = bf /b? 15 и h'f /h = hf /h < 0,2

1,15

5.Двутавровое несимметричное, удовлетворяющее условию b'f /b? 3:

а) при bf /b < 2 независимо от отношения hf /h

1,30

б) при 2 < bf /b? 6 независимо от отношения hf /h

1,25

в) при bf /b > 6 и hf /h > 0,1

1,25

6.Двутавровое несимметричное,

удовлетворяющее условие 3 < b'f /b < 8:

а) при bf /b? 4 независимо от отношения hf /h

1,25

б) при bf /b > 4 и hf /h? 0,2

1,25

в) при bf /b > 4 и hf /h < 0,2

1,20

7. Двутавровое несимметричное, удовлетворяющие условию b'f /b? 8:

а) при hf /h > 0,3

б) при hf /h? 0,3

Показать весь текст
Заполнить форму текущей работой