Машиностроение \ Теория механизмов и машин

Компьютерное моделирование и анализ кинематики плоских рычажных механизмов, страница 12

line(pvx, pvy, x1, y1);  {Скорость Vb1,2} OutTextXY(x1 + 5,y1 + 5,'b'); x2 := x1 - round(kv*v3*cos(fi3));

y2 := y1 + round(kv*v3*sin(fi3));

line(x1,y1,x2,y2);           {Скорость   Vb32} line(pvx,pvy,x2,y2);

OutTextXY(x2 - 10,y2 + 5,'b3'); x1 := pvx + round(kv*v5); y1 := pvy; line(pvx, pvy, x1, y1); OutTextXY(x1,y1 + 5,'e'); x2 := pvx + round(kv*vdx); y2 := pvy - round(kv*vdy); line(pvx, pvy, x2, y2); OutTextXY(x2,y2 - 10,'d'); line(x1,y1,x2,y2);

x1 := pvx - round(kv*lcb*sin(fi3)*om3); y1 := pvy - round(kv*lcb*cos(fi3)*om3); line(pvx,pvy,x1,y1);  {План ускорений}

SetColor(blue);

OutTextXY(400,360,'План ускорений');

str(epsi3:6:2,st2); str(epsi4:6:2,st3); str(a5:6:4,st4); OutTextXY(30,425,'Epsi1= 0.00  ' + '  Epsi3= ' + st2); OutTextXY(294,425,'Epsi4= ' + st3 + '       A5= ' + st4); OutTextXY(pax + 5,pay + 5,'Pa'); x1 := pax + round(ka*abx); y1 := pay - round(ka*aby); line(pax,pay,x1,y1);

OutTextXY(x1 - 10,y1 + 5,'b'); x2 := x1 + round(ka*2*v3*om3*sin(fi3)); y2 := y1 + round(ka*2*v3*om3*cos(fi3)); line(x1,y1,x2,y2);

OutTextXY(x2 - 10,y2 + 5,'k'); x1 := x2 - round(ka*a3*cos(fi3)); y1 := y2 + round(ka*a3*sin(fi3)); line(x2,y2,x1,y1); OutTextXY(x1 - 10,y1,'r'); x1 := pax; y1 := pay;

x2 := x1 - round(ka*lcb*sqr(om3)*cos(fi3));

y2 := y1 + round(ka*lcb*sqr(om3)*sin(fi3)); line(x1,y1,x2,y2); OutTextXY(x2 + 10,y2 + 5,'n'); x1 := x2 - round(ka*lcb*epsi3*sin(fi3));

y1 := y2 - round(ka*lcb*epsi3*cos(fi3)); line(x2,y2,x1,y1);

OutTextXY(x1 + 10,y1 + 5,'t'); line(pax,pay,x1,y1); OutTextXY(x1 + 10,y1 - 10,'b3');

x1 := pax + round(ka*adx); y1 := pay - round(ka*ady); OutTextXY(x1 - 10,y1 - 10,'d');

x2 := x1 - round(ka*l4*cos(fi4)*sqr(om4)); y2 := y1 + round(ka*l4*sin(fi4)*sqr(om4)); line(x1,y1,x2,y2);

x1 := x2 - round(ka*l4*sin(fi4)*epsi4);

y1 := y2 - round(ka*l4*cos(fi4)*epsi4); line(x2,y2,x1,y1); x2 := pax + round(ka*a5); y2 := pay;

line(pax,pay,x2,y2); OutTextXY(x2,y2 + 5,'e'); rectangle(20,380,620,455); rectangle(18,378,622,457); ch := readkey; if ch = #27 then exit; if i <> nc then cleardevice;

end; ch := readkey;

if ch = #27 then exit else goto start; End.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Артоболевский И.И. Теория механизмов и машин.-М.:, Наука,   1975. - 638 с. 2. Заблонский К.И., Белоконев И.М., Щекин Б.М. Теория механизмов и машин.-К.:, Выща школа, 1989. - 375 с.

3.  Белоконев И.М. Механика машин. Расчеты с применением ЭЦВМ.-К.:, Выща школа, 1978. - 232 с.

4.  Лабораторный практикум и курсовое проектирование по теории механизмов и машин с использованием ЭВМ: Учеб. пособие для технических вузов/ А.М.

Ашавский, В.Ф. Балабанов, В.С. Шейнбаум и др.; Под общ. ред. А.М. Ашавского.-М.:, Машиностроение, 1983. - 160 с.

5.  Попов С.А. Курсовое проектирование по теории механизмов и механике машин: Учеб. пособие для машиностроит. спец. вузов/ Под редакцией К.В.

Фролова. -М.: Высш. школа, 1986. - 295 с.

6.  Епанешников А.М., Епанешников В.А. Программирование в среде TURBO PASCAL 7.0.-М.: «Диалог-Мифи», 1993. - 288 с.

7.  Фаронов В.В. Программирование на персональных ЭВМ в среде ТурбоПаскаль.- М.: Изд-во МГТУ, 1990. - 580 с.

Алексей Николаевич  Мамаев,

Владимир Викторович Кореновский

КОМПЬЮТЕРНОЕ МОДЕЛИРОВАНИЕ И АНАЛИЗ КИНЕМАТИКИ ПЛОСКИХ РЫЧАЖНЫХ МЕХАНИЗМОВ.

Методические указания к курсовому проектированию по теории механизмов и машин.

                Лицензия ЛР № 021209 от 17 апреля 1997 г.

Подписано в печать                          Заказ                                   Тираж

Усл. п.л.                                              Пч.-изд.л

Бумага типографская.                       Формат 60х90/16

МГТУ “МАМИ”,  Москва,  105839  Б. Семеновская  ул.,  38

Скачать файл