Определение характеристик кривого бруса
Mi=q1· p·p·(sin (fii)·fii+cos (fii) — cos0); M: =q1*p*p*(sin (fi)*fi+cos (fi) — cos (0)); Таблица идентификаторов. Алгоритм решения задачи. DM=dPс (sinц-sinб)=qс2(sinц-sinб) dб. Вводим исходные данные: Вертикальная нагрузка. Assign (fa2,'res18.res'); rewrite (fa2); Opredelenie haraktristik krivogo brysa. Анализ результатов. Writeln ('Vvedite isxodnie dannie'); Writeln (fa2, fi: 5:2,' ', Q: 5:2… Читать ещё >
Определение характеристик кривого бруса (реферат, курсовая, диплом, контрольная)
При осуществлении проектов в машиностроительной области, начальной стадией реализации этого проекта является создание модели, которая по возможности могла бы учитывать все факторы, влияющие на качество, надежность, долговечность, заданные характеристики работы при эксплуатации. В соответствии с условиями работы и заданными техническими характеристиками необходимо спроектировать такую модель, которая бы отвечала всем поставленным требованиям. Однако в процессе разработки приходится воплощать несколько моделей и сравнивать их характеристики между собой для более оптимального решения проблемы, в этих случаях наиболее целесообразно использовать ЭВМ.
Автоматизация машиностроения требует не только автоматического управления режимами, например, механической обработки, прессования, термической, физико-химической обработки и других рабочих процессов машиностроения. Для полной механизации работ требуется автоматизация транспортирования (перемещения в пространстве) и переориентация объекта производства. В качестве такого объекта манипулирования может быть обрабатываемая деталь, инструмент или другой предмет самой разнообразной конфигурации. Чаще всего требуется не только переместить в пространстве, но и сориентировать деталь определенным образом, т. е. не только изменить ее местонахождение, но и развернуть в пространстве определенным образом. Эти операции выполняются манипуляторами промышленных роботов.
1. Постановка задачи
Вертикальная нагрузка интенсивностью q равномерно распределена по дуге четверти окружности радиуса с (рис. 1).
Определить нормальное усилие, поперечную силу и изгибающий момент. Построить графики зависимостей N(ц), Q(ц), M(ц) в одной системе координат.
Рис. 1 Рис. 2
Исходные данные:
с=0,4 м
q=80
ц=90?
k=15
2. Математическая модель решения задачи
Усилия в поперечном сечении под углом ц к вертикали от элементарной силы dP=q· ds·dб (рис. 2).
dN=-dP· sinц=-qс·sinцdб
dQ=dP· cosц=qс·cosцdб
dM=dPс (sinц-sinб)=qс2(sinц-sinб) dб
Полные усилия от нагрузки, действующие на отсеченную часть бруса:
3. Алгоритм решения задачи
1. Вводим исходные данные:
p, q1, fi1, k;
2. Для i=1, k+1
2.1. fii=;
3. Для i=1, k+1
3.1. Ni=-· q1·p·sin (fii)·fii;
3.2. Вывод (fii, Ni);
4. Для i=1, k+1
4.1. Qi=q1· p·cos (fii)·fii;
4.2. Вывод (fii, Qi);
5. Для i=1, k+1
5.1. Mi=q1· p·p·(sin (fii)·fii+cos (fii) — cos0);
5.2. Вывод (fii, Mi);
4. Схема алгоритма
5. Таблица идентификаторов
Наименование | физический смысл | идентификатор | |
Вертикальная нагрузка | q | q1 | |
Радиус дуги | с | p | |
Нормальное усилие | N | N | |
Поперечная сила | Q | Q | |
Изгибающий момент | M | M | |
Начальный угол | ц | fi1 | |
6. Текст программы
Program kyrs18;
Uses crt;
TYPE Vect=array [1.100] of real;
Var i, k: integer; p, fi1, q1: real; fa2: text; fi, n, q, m: vect;
begin
ClrScr;
assign (fa2,'res18.res'); rewrite (fa2);
writeln ('Vvedite isxodnie dannie');
readln (p, q1, fi1, k);
writeln (fa2,' Kyrsovoi proekt');
writeln (fa2,' Opredelenie haraktristik krivogo brysa');
writeln (fa2,' Isxodnie dannie:');
writeln (fa2,'p=', p:3:1,' Q=', Q1:2:0,' fi1=', fi1:5:2,' k=', k:2);
writeln (fa2,'Rezultati raboti:');
for i:=1 to k+1 do
fi[i]: =(i-1)*fi1/k;
writeln (fa2);
writeln (fa2,'3avisimost N (fi)');
writeln (fa2,' fi N');
for i:=1 to k+1 do begin
N[i]: =-1*q1*p*sin (fi[i])*fi[i];
writeln (fa2, fi[i]: 5:2,' ', N[i]: 5:2)
end;
writeln (fa2);
writeln (fa2,'3avisimost Q (fi)');
writeln (fa2,' fi Q');
for i:=1 to k+1 do begin
Q[i]: =q1*p*cos (fi[i])*fi[i];
writeln (fa2, fi[i]: 5:2,' ', Q[i]: 5:2)
end;
writeln (fa2);
writeln (fa2,'3avisimost M (fi)');
writeln (fa2,' fi M');
for i:=1 to k+1 do begin
M[i]: =q1*p*p*(sin (fi[i])*fi[i]+cos (fi[i]) — cos (0));
writeln (fa2, fi[i]: 5:2,' ', M[i]: 5:2)
end;
writeln ('PA6OTA 3ABEPIIIEHA');
close (fa2);
repeat until keypressed;
end.
кривой брус программа алгоритм
7. Результаты работы программы
Kyrsovoi proekt
Opredelenie haraktristik krivogo brysa
Isxodnie dannie:
p=0.4 Q=80 000 fi1= 1.57 k=15
Rezultati raboti:
3avisimost N (fi)
fi N
0.00 0.00
0.10 -349.92
0.21 -1392.04
0.31 -3103.48
0.42 -5446.59
0.52 -8369.48
0.63 -11 806.95
0.73 -15 681.51
0.84 -19 904.70
0.94 -24 378.54
1.05 -28 997.18
1.15 -33 648.69
1.26 -38 216.94
1.36 -42 583.59
1.47 -46 630.14
1.57 -50 239.98
3avisimost Q (fi)
fi Q
0.00 0.00
0.10 3331.00
0.21 6552.43
0.31 9556.71
0.42 12 240.23
0.52 14 505.26
0.63 16 261.77
0.73 17 429.11
0.84 17 937.59
0.94 17 729.85
1.05 16 762.06
1.15 15 004.92
1.26 12 444.36
1.36 9082.14
1.47 4936.07
1.57 40.01
3avisimost M (fi)
fi M
0.00 0.00
0.10 69.92
0.21 277.39
0.31 615.55
0.42 1073.12
0.52 1634.62
0.63 2280.59
0.73 2988.04
0.84 3730.79
0.94 4480.01
1.05 5204.76
8. Графическая часть
9. Анализ результатов
В результате работы программы были определены зависимости нормального усилия, поперечной силы и изгибающего момента от полярной координаты .
Максимальное значение продольной силы N достигается при .
Максимальное значение продольной силы Q достигается при .
Максимальное значение продольной силы M достигается при .
1. Рапаков Г. Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. — СПБ.: БХВ — Петербург, 2004. — 352 с.:ил.
2. Анципорович П. П., Алейникова О. И., Булгак Т. И., Луцко Н. Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. — Мн.: БНТУ, 2009.