graph1.mws

>    restart;

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

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

>    v[O,1],v[O,2],v[P,1],v[P,2]:=0$4:

>    w1:=2:R:=5:

>    Gr1:=Граф([P,D1,A,O],[R*sqrt(2),10,5],[Pi/4,0,-Pi/2],[w4,w5,w1]):

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

>    Gr2:=Граф([P,E,C,B,O],[R,5*sqrt(2),10,10],[Pi/2,Pi/4,0,-Pi/2],[w4,w3,w2,w1]):

>    eq3:=Gr2[1]; eq4:=Gr2[2];

>    S:=solve({eq1,eq2,eq3,eq4},{w2,w3,w4,w5}); assign(S):

eq1 := 0 = 10-5*w4

eq2 := 0 = 5*w4+10*w5

eq3 := 0 = 20-5*w4-5*w3

eq4 := 0 = 5*w3+10*w2

S := {w4 = 2, w5 = -1, w3 = 2, w2 = -1}

[Maple OLE 2.0 Object]