0
I was just trying to ask a question but when I started to paste the equations I got
disp = {u[r, z], w[r, z]};
ddisp = {
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[r, z],
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[...