Расчет балки на изгиб
Курсовой проект - Строительство
Другие курсовые по предмету Строительство
жно выполнить на компьютере.
Задача свелась к просчету значений четырех функций при изменении аргумента на промежутке некоторым шагом. В программировании это реализуется организацией цикла табулирования.
Общий вид схемы алгоритма такой программы приводится на рис. 18, где использованы обозначения xнач - первое значение аргумента, f(x) - вычисляемая функция, h - шаг изменения аргумента, xкон - последнее значение аргумента. В решаемой задаче xнач = 0, xкон = l =3 м.
Рис. 18. Схема алгоритма решаемой задачи.
Рис.19 Программа для вычисления прогиба, угла поворота, изгибающего момента и перерезывающей силы
var q,l,A11,A12,A21,A22,B1,B2,,det1,det2,M0,Q0,x,v,v1,k,M1:real;,v111,M11,Q1:string;
begin
q:=StrToFloat(Edit1.Text);:=StrToFloat(Edit2.Text);:=l*l/2;:=l*l*l/6;:=-l;:=-(l*l)/2;:=q*l*l*l*l/24;:=-(q*l*l*l)/6;:=A11*A22-A12*A21;:=B1*A22-B2*A12;:=A11*B2-A21*B1;:=det1/det;:=det2/det;:=0;
repeat
v:=(-M0*x*x/2)-(Q0*x*x*x/6)+q*x*x*x*x/24;:=(-M0*x)-(Q0*x*x/2)+(q*x*x*x)/6;:=M0+Q0*x-(q*x*x)/2;:=Q0-q*x;(v:10:2,v11);(v1:10:2,v111);(M1:10:2,M11);(k:10:2,Q1);.Lines.Add(v11);.Lines.Add(v111);.Lines.Add(M11);.Lines.Add(Q1);:=x+0.25;
until x>l
end;
end.
ВЫВОДЫ
Расчет балки на изгиб можно производить с использованием компьютера в вычислительной части расчёта. Применение табличного процессора Microsoft Excel, благодаря большому количеству встроенных функций, значительно ускоряет вычисления и позволяет не только производить расчёты на компьютере, но и получать электронный вариант эпюр.
Решение данной задачи средствами пакета математических расчётов MathCAD позволяет быстро реализовать вычисления и наглядно представить их результаты графически.
Программа на языке программирования Borland Delphi является реализацией цикла табулирования, типичной задачей курса информатики. Выполнение всех этих действий полностью подготовлено содержанием курса Информатика, освоенного в I и II семестрах.
балка изгиб эпюра excel delphi
ИСПОЛЬЗУЕМЫЕ ИСТОЧНИКИ
1) Быкова О.Г. Информатика. Методические указания к выполнению курсовой работы для студентов специальности 130504.- СПб, 2007.- 44с.