求简单的的方程

dingiacas

d[t]=t/6;
A1[t]=0.030d[t]+0.10;
A2[t]=0.040d[t]+0.12;
w[t]=0.45d[t]+0.3;

D[a1[t], {t, 2}]=20{5(A1[t]-a1[t])-D[a1[t], t]};
D[a2[t], {t, 2}]=20{5(A2[t]-a2[t])-D[a2[t], t]};


D[x1[t], t]}=w[t]+a2[t]*Sin[x2[t]-x1[t]];
D[x2[t], t]}=w[t]+a1[t]*Sin[x1[t]-x2[t]];

初始条件： a1[0] == 0.3, a2[0] == 0.34,a1'[0] == 0, a2'[0] == 0, x1[0] == 14.9229, x2[0] == 15.7004

要求画图：
y1[t]=a1[t]*{1+Cos[x1[t]]}
y2[t]=a2[t]*{1+Cos[x2[t]]}

为什么x1[t],x2[t]都没法出来？
请指点一二！谢谢！
程序见附件。

chungyuandye

Sin，S要大寫！

Plot[Flatten[{a1[t]*{1 + Cos[\[Phi]1[t]]}, a2[t]*{1 + Cos[\[Phi]2[t]]}} /. Fre[[1]] /. Amp[[1]], 1], {t, 0,  30}]