【求助】这个p怎么解啊

DSolve[c^2 D[p {r, \[Theta], z} e^(I\[Omega]t) , {t, 2}] ==
D[p {r, \[Theta], z} e^(I\[Omega]t), {r, 2}] +
D[p {r, \[Theta], z} e^(I\[Omega]t), {\[Theta], 2}] +
D[p {r, \[Theta], z} e^(I\[Omega]t), {z, 2}],
r == a + b Cos[n\[Theta]] Cos[\[Omega]t] +
c Cos[Subscript[k, x] x] Cos[n\[Theta]] +
dCos[Subscript[k, x] x] Cos[n\[Theta]] Cos[\[Omega]t],
D[r (\[Theta], z, t) {t, 1}] ==
Integrate[D[p {r, \[Theta], z} e^(I\[Omega]t), {r, 1}],
t], p, r, \[Theta], z, t]

错误提示 Syntax::sntxf: "(" cannot be followed by "\[Theta],z,t)".

这个是我的代码，求指点

又出问题了DSolve[c^2 D[p[r, \[Theta], z ] e^(I\[Omega]t), {t, 2}] ==
D[p[r, \[Theta], z] e^(I\[Omega]t), {r, 2}] +
D[p[r, \[Theta], z] e^(I\[Omega]t), {\[Theta], 2}] +
D[p[r, \[Theta], z] e^(I\[Omega]t), {z, 2}],
r == a + b Cos[n\[Theta]] Cos[\[Omega]t] +
c Cos[Subscript[k, x] x] Cos[n\[Theta]] +
dCos[Subscript[k, x] x] Cos[n\[Theta]] Cos[\[Omega]t],
D[r[\[Theta], z, t] {t, 1}] ==
Integrate[D[p[r, \[Theta], z] e^(I\[Omega]t), {r, 1}],
t], p, r, \[Theta], z, t]

DSolve::dsvar: {t r[\[Theta],z,t],r[\[Theta],z,t]}==e^I\[Omega]t t (p^(1,0,0))[r,\[Theta],z] cannot be used as a variable.