单自由度系统，求解其振动响应

wrj001

Mape版太冷清了，发一个提提人气:

题目：对单自由度系统，求解其振动响应表达式，赋值各参数后，运用Matlab（或Maple）仿真并绘制振动响应曲线。
已知：m为学号后入学年份；k为学号后四位；c姓名总笔画数。初始位移为学号后两位，初速度为0。F为学号后六位，omega=Pi;

此处以Maple 为例，
f := m*(diff(x(t), t$2))+c*(diff(x(t), t))+k*x(t) = F0*sin(omega*t):
f1:=dsolve({f,x(0) = x0, D(x)(0) = v0}, x(t));

m := 2017:
k :=1025:
c := 25:
F0 := 8:
omega := Pi:
x0:=25;
v0:=0;
f2 := unapply(rhs(f1), t)
plot(f2);
自己做的，抛砖引玉。