difur.mws

>    restart;#К задаче 5 серии D3

>    m:=1:

>    eq:=m*diff(x(t),t$2)=32*sin(5*t)-32*x(t);

eq := diff(x(t),`$`(t,2)) = 32*sin(5*t)-32*x(t)

>    R:=dsolve({eq,x(0)=0,D(x)(0)=13},x(t));

R := x(t) = -69/56*sin(4*2^(1/2)*t)*2^(1/2)+32/7*sin(5*t)

>    evalf(subs(t=0.4,R));

x(.4) = 2.815042221