> | p1:=11.:p2:=7.:m:=20.:q:=2.: |
> | eq[1]:=-xc: |
> | eq[2]:=-yc+yd: |
> | eq[3]:=3*yd-m: |
> | eq[4]:=xa+xc-p2*cos(Pi/3)+2*q: |
> | eq[5]:=ya+yb+yc-p2*sin(Pi/3)-p1: |
> | eq[6]:=-2*q+6*yb-3*p2*sin(Pi/3)+3*yc-3*xc: |
> | s:=solve({seq(eq[i],i=1..6)},{xa,ya,xc,yc,yd,yb}); |
> | assign(s): |
Проверка
> | evalf(ya+yb-p2*sin(Pi/3)-p1+yc); |