原典 | << 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]; |