Wolfram mathematica 在mathematica中使用Dsolve

我用dsolve找到了薛定谔方程的微分方程，它涉及到磁共振，我得到了一个错误

DSolve[{I*a'[t] == .5*(w0*a[t] + w1*Cos[w*t]*b[t]), 

 I*b'[t] == .5*(w1*Cos[w*t]*a[t] - w0*b[t]), 

a[t]^2 + b[t]^2 == 1}, {a, b}, t]

我从中得到了答复

There are fewer dependent variables than equations, so the system is \

决定过度

我看到了3个等式和3个未知数，所以我真的不知道它为什么这样做。

---

任何帮助都将不胜感激

也许这会有所帮助

参考文献

---

您有两个未知函数

a和b

。(?)

DSolve[
  b'[t] == ((I w1)/2) (Exp[I (w + w0) t] + Exp[-I (w - w0) t]) - I w0 b[t],
  b[t], t] // Simplify