版权声明:我极少创造新知识,大部分情况下是个知识的二道贩子 https://blog.csdn.net/stereohomology/article/details/24478825
应该非常一目了然了吧.
假设是Mathematica,能够用这种代码模拟曲线部分:
With[{yslice1 = .5, yslice2 = -.8},
GraphicsGrid[{{Plot[{ArcTan[-x], 1.5, -1.2}, {x, -5, 5},
Axes -> False, Frame -> False,
PlotStyle -> {Blue, Red, Green}]}, {Plot[{ArcTan[-x*10],
1.35, -1.35}, {x, -5, 5}, Axes -> False, Frame -> False,
PlotStyle -> {Blue, Red, Green}]}},
Spacings -> {Scaled[0.1], Scaled[.5]}]]
以下是有水印版本号:
无水印的PDF版: