Source |
<< Graphics`ImplicitPlot`
RGB[x_, y_, z_] = RGBColor[x, y, z];
u=Re[Erf[x+I*y]];
QP=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[Erf[x+I*y]];
PI=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[PR, PI];
|