请教各位大神,为什么图片出不来,代码如下:
mathematica吧
全部回复
仅看楼主
level 1
zzzzzzzl93 楼主
\[Alpha]=0.5;\[Beta]=1;\[Rho]=1;\[Lambda]=0.01;b=-1;a=-0.18;
M=-((a(a^2+b^2))/(b^2 \[Lambda]));
f=M+(x-a t)^2+b^2 t^2;
g=1/((a \[Alpha]^2+\[Lambda])^2+b^2 \[Alpha]^4) 4(I(a^2 \[Alpha]^3+b^2 \[Alpha]^3+a \[Alpha] \[Lambda])x-I \[Alpha](a^2+b^2)(a \[Alpha]^2+\[Lambda])t-\[Alpha]^2 (a^2+b^2))+f;
A=\[Rho] Exp[I \[Alpha] x - (I \[Lambda] t)/\[Alpha]]*g/f;
Plot3D[A*(Conjugate[A]),{x,-10,10},{t,-10,10},PlotPoints->60,AxesLabel->{"x "," t"," \[VerticalSeparator]A\[VerticalSeparator]^2"},PlotRange->All,AxesEdge->{{-1,-1},{-1,-1},{-1,-1}},Ticks->{{-5,0,5},{-3,0,3},{0,10}},Boxed->False,Mesh->False]
Manipulate[Plot3D[A*(Conjugate[A]),{x,-10,10},{t,-10,10},PlotPoints->60,AxesLabel->{"x "," t"," \[VerticalSeparator]A\[VerticalSeparator]^2"},PlotRange->All,AxesEdge->{{-1,-1},{-1,-1},{-1,-1}},Ticks->{{-5,0,5},{-3,0,3},{0,10}},Boxed->False,Mesh->False],{\[Lambda],0.01,0.1}];
Quit[]
2023年06月16日 14点06分 1
吧务
level 10
我这里无此问题。
2023年06月20日 16点06分 2
1