如图，图中上面的那一个微分方程组得到了想要的答案，可是为何下面那个同样格式的方程执行后并没有计算出结果只是把它又重复了一遍呢？
问题方程代码如下
DSolve[{10 Sin[z[x]] + 2 Derivative[1][y][x] *Derivative[1][z][x] +
y[x] *(z^\[Prime]\[Prime])[x] == 0,
6 (y^\[Prime]\[Prime])[x] ==
10 Cos[z[x]] + y[x] *(Derivative[1][z][x])^2}, {y, z}, x]

刚开始学习mathematica不久，水平实在捉急，尝试改过了各种格式都不能计算出结果，求大神指路

前一个方程线性，后一个非线性。非线性基本洗洗睡，能改数值解的改数值解。

我使用了数值解解此方程，在绘图的时候其中的一个未知数的解能给出图像可是另一个并没有绘出图来，请问这里是哪里出现问题了吗？

代码如下
NDSolve[{11 r''[t] ==
r[t] (\[Theta]'[t])^2 + 10 Cos[\[Theta][t]] -
100, (r[t])^2 \[Theta]''[t] +
2 r[t] \[Theta]'[t] r'[t] == -10 r[t] Sin[\[Theta][t]],
r[0] == 1, \[Theta][0] == Pi/3,
r'[0] == 0, \[Theta]'[0] == 0}, {r, \[Theta]}, {t, 0, 5}]
Plot[Evaluate[r[t] /. %], {t, 0, 1}]
Plot[Evaluate[\[Theta][t] /. %], {t, 0, 1}]