level 2
yearlove阿狸
楼主
Plot3D[{4^2/(
2 \[Pi]) (1 + 4^2 ((nx)^2 + (ny)^2) +
4*Sqrt[x^2 +
y^2] (E^(I*0.5*2 \[Pi]) + E^(-I*0.5*2 \[Pi]))) E^(-4^2*(x^2 +
y^2))}, {x, -0.8 , 0.8 }, {y, -0.8, 0.8 }, PlotRange -> All,
AxesLabel -> {x, y, Q}]
想把图片导出
我知道用Export
还找到一个类似的，可是还是不懂
Grid@Partition[#, {2}] &@
Table[Plot[Sin[n x], {x, 0, 2 \[Pi]}], {n, 1, 4}]
SystemOpen@Export["D:\\try.pdf", #] &@%
SystemOpen@Export["D:\\try.eps", #] &@%
求大神解答
2018年10月11日 13点10分
1
2 \[Pi]) (1 + 4^2 ((nx)^2 + (ny)^2) +
4*Sqrt[x^2 +
y^2] (E^(I*0.5*2 \[Pi]) + E^(-I*0.5*2 \[Pi]))) E^(-4^2*(x^2 +
y^2))}, {x, -0.8 , 0.8 }, {y, -0.8, 0.8 }, PlotRange -> All,
AxesLabel -> {x, y, Q}]
想把图片导出
我知道用Export
还找到一个类似的，可是还是不懂
Grid@Partition[#, {2}] &@
Table[Plot[Sin[n x], {x, 0, 2 \[Pi]}], {n, 1, 4}]
SystemOpen@Export["D:\\try.pdf", #] &@%
SystemOpen@Export["D:\\try.eps", #] &@%
求大神解答