Программа определения момента образования трещин при изгибе в среде программирования 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 | |||