D..9.1 Mathematicaでやってみる

In[1] := u[x_,t_]:=v[x-c t,x+c t]
In[2] := D[u[x,t],{t,2}]/c^2-D[u[x,t],{x,2}]
In[3] := Simplify[%]