解方程出现死循环

dingiacas

A = 0.19;
k = 20;
sol = NDsolve[{
D[a[t],{t,2}]==k{0.25k(A-a[t])-D[a[t],t]}, a[0] == 0.3, a'[0] == 0},
  a[t], {t, 0, 30}]
Plot[a[t] /. sol, {t, 0, 2}, PlotRange -> All]
怎么求解时好像出现死循环了？麻烦各位指点一下，多谢了！

smarten

同学，连方程都写不正确的话，你来问有什么意义呢？
不过刚翻了第一页Mathematica的帮助，就开始做题，然后来问“为什么出错”，最好花一个礼拜的功夫，把Mathematica看一看，玩一玩，然后在开始做题。问问题最好在一个月以后。
这儿是修改好的代码：

1. A = 0.19;
   
2. k = 20;
   
3. sol = NDSolve[{D[a[t], {t, 2}] == k (0.25 k (A - a[t]) - D[a[t], t]),
   
4.    a[0] == 0.3, a'[0] == 0}, a, {t, 0, 30}]
   
5. Plot[a[t] /. sol[[1]], {t, 0, 2}, PlotRange -> All]

复制代码