Контрольная работа: Механізми

Для перевірки скористаємося формулою Чебишева. Оскільки механізм має одну ступінь свободи, то ми повинні отримати . У нас кількість ланок , число нижчих кінематичних пар , а вищих кінематичних пар немає: . Згідно за формулою Чебишева

W =3∙ n -2∙ p ₁ - p ₂ ,

W =3∙5-2∙7₁ -0=1,

Так як в результаті розрахунку ми отримали одну ступінь свободи, то помилки допущено не було. Механізм має одну вхідну ланку.

2. Лістінг програми комплексного розрахунку механізму

program Mechan1(output);

uses crt,graph,MPF;

{Описание меток}

{Описание констант}

const m=48;

{Описаниетипов}

{type massiv=array[1..m] of real; }

{Описаниепеременных}

var Xo,Yo,Loa,las,FIoa0g,dFi,dFir,lc:real ;

var q,jk,Mas:real ;

var i,ori,k:integer ;

var driver,mode:integer ;

var strvar:string ;

{Описаниемассивов}

var FIab_1,FIab_2,FIabg,alfasg,FIng,FIkg,FIoag,Xa,Ya,Xa_1,Ya_1,Xa_2,Ya_2,

Xn_1,

Yn_1,Xn_2,Yn_2 :massiv ;

{Описаниеиспользуемыхпроцедур}

FIn_1,FIn_2,l,Lac,h,lcc,lab,j:real ;

{POINT}

var Xb,Yb,Xb_1,Yb_1, Xb_2,Yb_2,Xc,Yc,Xc_1,Yc_1, Xc_2,Yc_2,Mc, Mc_1,Mc_2,Mpc, Mpc_1,Mpc_2:massiv ;

var Xd,Yd,Xd_1,Yd_1, Xd_2,Yd_2,:massiv ;

var Xsfd,Ysfd,Xsfd_1,Ysfd_1, Xsfd_2,Ysfd_2, Xsbd,Ysbd,Xsbd_1,Ysbd_1, Xsbd_2,Ysbd_2:massiv ;

var alfabg,alfacg,alfbdg,alffdg:real ;