Определение характеристик кривого бруса

При осуществлении проектов в машиностроительной области, начальной стадией реализации этого проекта является создание модели, которая по возможности могла бы учитывать все факторы, влияющие на качество, надежность, долговечность, заданные характеристики работы при эксплуатации. В соответствии с условиями работы и заданными техническими характеристиками необходимо спроектировать такую модель, которая бы отвечала всем поставленным требованиям. Однако в процессе разработки приходится воплощать несколько моделей и сравнивать их характеристики между собой для более оптимального решения проблемы, в этих случаях наиболее целесообразно использовать ЭВМ.

Автоматизация машиностроения требует не только автоматического управления режимами, например, механической обработки, прессования, термической, физико-химической обработки и других рабочих процессов машиностроения. Для полной механизации работ требуется автоматизация транспортирования (перемещения в пространстве) и переориентация объекта производства. В качестве такого объекта манипулирования может быть обрабатываемая деталь, инструмент или другой предмет самой разнообразной конфигурации. Чаще всего требуется не только переместить в пространстве, но и сориентировать деталь определенным образом, т.е. не только изменить ее местонахождение, но и развернуть в пространстве определенным образом. Эти операции выполняются манипуляторами промышленных роботов.

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

Вертикальная нагрузка интенсивностью q равномерно распределена по дуге четверти окружности радиуса с (рис. 1).

Определить нормальное усилие, поперечную силу и изгибающий момент. Построить графики зависимостей N(ц), Q(ц), M(ц) в одной системе координат.

Рис. 1 Рис. 2

Исходные данные:

с=0,4 м

q=80

ц=90?

k=15

2. Математическая модель решения задачи

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=80000 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 -11806.95

0.73 -15681.51

0.84 -19904.70

0.94 -24378.54

1.05 -28997.18

1.15 -33648.69

1.26 -38216.94

1.36 -42583.59

1.47 -46630.14

1.57 -50239.98

3avisimost Q(fi)

fi Q

0.00 0.00

0.10 3331.00

0.21 6552.43

0.31 9556.71

0.42 12240.23

0.52 14505.26

0.63 16261.77

0.73 17429.11

0.84 17937.59

0.94 17729.85

1.05 16762.06

1.15 15004.92

1.26 12444.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. Графическая часть