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

Определение образования трещин при изгибе в среде программирования Paskal. Деформационная модель с учетом неупругих деформаций растянутого бетона. Момент инерции сечения бетона соответственно растянутой и сжатой арматуры. Алгоритм в виде блок-схемы.
Краткое сожержание материала:

Размещено на

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

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

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

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

2.1 Изгибающий момент M_crc при образовании трещин определяется на основе деформационной модели с учетом неупругих деформаций растянутого бетона

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

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

M_crc = R_bе,serW ± Ne_я (1.4)

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

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

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



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

, (1.5)

, (1.6)

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

I_red = I + I_sa + I'_sa; (1.7)

I , I_s , I'_s - момент инерции сечения соответственно бетона, растянутой и сжатой арматуры;

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

A_red = A + A_sa + A'_sa, (1.8)

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

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

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



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

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

2.4 Для прямоугольных, тавровых и двутавровых сечений при действии момента в плоскости оси симметрии момент образования трещин с учетом неупругих деформаций растянутого бетона допускается определять по формуле (1.4) с заменой значения W на W_pi= 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) Основание для разработки.

Настоящая разрабо...