>

restart;

Дано

>	x5:=9:y5:=4:w:=6:epsilon:=-2:

>	x1:=0:y1:=0:

>	xd:=9+3*cos(w*t+Pi+epsilon*t^2/2): yd:=4+3*sin(w*t+Pi+epsilon*t^2/2):

>	eq1:=(xd-xc)^2+(yd-yc)^2=36:

>	eq2:=(x1-xc)^2+(y1-yc)^2=16:

>	eq3:=simplify(eq2-eq1):

>	xc:=solve(eq3,xc):

>

eq1:

>	R:=solve(eq1,yc):#assign(R):

>

yc:=R[1]:

>	simplify(subs(t=0,yc));

4

>	k:=(yd-yc)/(xd-xc):

>	yb:=yc+k*(xb-xc):

>	eq3:=xb^2+yb^2=25:

>	R2:=solve(eq3,xb):

>	xb:=R2[2]:

>	simplify(subs(t=0,R2[2]));

3

>	S:=sqrt((xb-xc)^2+(yb-yc)^2):

>	v:=simplify(subs(t=0,diff(S,t)));

v := 12

>	a:=simplify(subs(t=0,diff(S,t$2)));

a := -118

>	simplify(subs(t=0,[xc,xb,xd,yc,yb,yd]));

[0, 3, 6, 4, 4, 4]