kinN27a.mws

Задача 27a

  [Maple OLE 2.0 Object]

>    restart;

>    AB:=77:OA:=40:OD:=OA/2:

>    alf:=evalf(arccos((43+OA*cos(Pi/4))/AB));

>    h:=evalf(AB*sin(alf)-OA*sin(Pi/4));

>    beta:=evalf(arctan((h+OD*sin(Pi/4))/(43+OD*cos(Pi/4))));

alf := .3877298612

h := .82848669

beta := .2562303975

>    read "C:\\graph.m";

Неподвижные точки (нулевые скорости)

>    v[B,1],v[O,1],v[O,2]:=0$3:

Заданная угловая скорость ОА  

>    w1:=31:

Размеры

>    Gr1:=Граф([B,A,O],[AB,OA],[alf,-3*Pi/4],[w2,w1]):

>    eq1:=Gr1[1]; eq2:=Gr1[2];

>    S:=solve({eq1,eq2});assign(S);

eq1 := 0 = -29.11275793*w2+620*2^(1/2)

eq2 := 0 = v[B,2]+71.28427124*w2-620*2^(1/2)

S := {w2 = 30.11780645, v[B,2] = -1270.113476}

>    Gr2:=Граф([O,D],[OD],[Pi/4],[w1]);

>    S:=solve({op(Gr2)});assign(S);

>    v:=evalf(v[D,1]*cos(beta)+v[D,2]*sin(beta)-v[B,2]*sin(beta));

>   

>   

Gr2 := [v[D,1] = -310*2^(1/2), v[D,2] = 310*2^(1/2)]

S := {v[D,1] = -310*2^(1/2), v[D,2] = 310*2^(1/2)}

v := 8.9068928

>