Advertisement

如何删除多余的竖线

阅读量:

常规情况下用于绘制正切曲线的代码如下:

复制代码
    Plot[Tan[x] - 3 x/(3 + 2967/1000000 x^2), {x, -Pi, 2 Pi},  PlotStyle -> Red,  AxesStyle ->{{Arrowheads[.03], Directive[Black, 12]}, {Arrowheads[.03], Directive[Black, 12]}}]
    

成效:

这里写图片描述

竖线的存在属于冗余信息,这是Plot功能特性所导致的结果,若需消除该现象,可通过调整Exclusive参数的设定值来实现。

复制代码
    Plot[Tan[x] - 3 x/(3 + 2967/1000000 x^2), {x, -Pi, 2 Pi}, 
     Exclusions -> Cos[x] == 0, 
     PlotStyle -> Red,AxesStyle -> {{Arrowheads[.03], Directive[Black,12]}, {Arrowheads[.03], Directive[Black, 12

全部评论 (0)

还没有任何评论哟~