來源 |
<< Graphics`ImplicitPlot`
RGB[x_, y_, z_] = RGBColor[x, y, z];
u=Re[Exp[-(x+I*y)^2]];
QR=ImplicitPlot[{u==-4,
u==-3, u==-2.8,u==-2.6,u==-2.4,u==-2.2,
u==-2., u==-1.8,u==-1.6,u==-1.4,u==-1.2,
u==-1., u==-0.8,u==-0.6,u==-0.4,u==-0.2,
u==0,u==0.2,u==0.4,u==0.6,u==0.8,
u==1.,u==1.2,u==1.4,u==1.6,u==1.8,
u==2.,u==2.2,u==2.4,u==2.6,u==2.8,
u==3.,u==4.},{x,-3,3},{y,-3,3},PlotPoints->120,
PlotStyle->{{Thickness[.01],RGB[1,0,0]},
Thickness[.01],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],
Thickness[.01],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],
Thickness[.01],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],RGB[1,0,0],
{Thickness[.01]},RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],
{Thickness[.01]},RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],
{Thickness[.01]},RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],RGB[0,0,1],
{Thickness[.01]},{Thickness[.01]}
}];
u=Im[Exp[-(x+I*y)^2]];
QI=ImplicitPlot[{u==-4,
u==-3, u==-2.8,u==-2.6,u==-2.4,u==-2.2,
u==-2., u==-1.8,u==-1.6,u==-1.4,u==-1.2,
u==-1., u==-0.8,u==-0.6,u==-0.4,u==-0.2,
u==0,u==0.2,u==0.4,u==0.6,u==0.8,
u==1.,u==1.2,u==1.4,u==1.6,u==1.8,
u==2.,u==2.2,u==2.4,u==2.6,u==2.8,
u==3.,u==4.},{x,-3,3},{y,-3,3},PlotPoints->120,
PlotStyle->{{Thickness[.01],RGB[1,0,0]},
{Thickness[.01],RGB[1,0,1]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[1,0,0]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[1,0,0]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[0,1,0]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[0,0,1]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[0,0,1]},RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],RGB[0,1,0],
{Thickness[.01],RGB[0,0,1]},{Thickness[.01],RGB[0,0,1]}
}}}];
Show[QR, QI];
|