用mathematica画出平面波A(z,t)=exp(iwt－ikz)，w和k的值自定 给出mathematica代码

以下是使用Mathematica绘制平面波的代码：

A[z_, t_] := Exp[I*w*t - I*k*z];
w = 1;
k = 0.5;
Plot3D[Re[A[z, t]], {z, -10, 10}, {t, 0, 5}, AxesLabel -> {"z", "t", "A"}, 
 PlotLabel -> "Real Part of A(z,t)"]

在这个例子中，我们定义了一个函数`A[z_, t_]`表示平面波，其中`z`是平面波的传播方向，`t`是时间。`w`和`k`是自定义的参数，分别表示角频率和波数。我们使用`Plot3D`函数来绘制实部`Re[A[z, t]]`在`z`和`t`的平面上的图形。`AxesLabel`选项用于设置坐标轴标签，`PlotLabel`选项用于设置图形标题。