>

restart;

Дано

>

w2:=-4:

Граф O-A-B-C-D

>	eq1:=w2*4-w4*2;

>	eq2:=-w2*3-w3*4+w5*4;

Граф O-G-нить-диск-нить-H-D (по вертикали)

>	eq3:=-w2*1-w1*4+w5*2;

диск-нить-H-D(по вертикали)

>	eq4:=-w1*2+w5*2;

Решение

>	solve({eq1,eq2,eq3,eq4});

>