想求解上面的微分方程组得到准确解R[x,t],求助用mathmatica怎么表示
图片部分代码
R[x, t] = ( {
{r[x, t]},
{s[x, t]}
} )
D[R[x, t], x] = ( {
{D[r[x, t], x]},
{D[s[x, t], x]}
} ) = ( {
{-1, I*E^(-I*t)},
{I*E^(I*t), 1}
} )*( {
{r[x, t]},
{s[x, t]}
} )
D[R[x, t], t] = ( {
{D[r[x, t], t]},
{D[s[x, t], t]}
} ) = ( {
{-3/2*I, I*E^(-I*t)},
{I*E^(I*t), 3/2*I}
} )*( {
{r[x, t]},
{s[x, t]}
} )

恳请各位大神帮帮忙，这个微分方程组形式很简洁优美的，dR/dx=AR, dR/dt=BR, R是关于x，t的二维列向量函数，A，B是给定的2*2矩阵，求解R
对这样形式的微分方程眼熟的帮忙指条路，请说点参考书籍啥的

你没用逻辑等吧

矩阵乘法用.，不是*

……2个未知量，4个方程？