多字段图[f_,{x_,xmin_,xmax_},{y_,ymin_,ymax_}, opts:选项模式[]]:= 矢量图[Evaluate@{Re[f],-Im[f]}, {x,xmin,xmax},{y,ymin,ymax}, 矢量缩放->{自动,自动,日志[#5+1]&}, opts选项 ]
Pólya图
另请参见
与Wolfram一起探索| Alpha
引用如下:
多字段图[f_,{x_,xmin_,xmax_},{y_,ymin_,ymax_}, opts:选项模式[]]:= 矢量图[Evaluate@{Re[f],-Im[f]}, {x,xmin,xmax},{y,ymin,ymax}, 矢量缩放->{自动,自动,日志[#5+1]&}, opts选项 ]