函数图形中存在断点

Question

flatTopEnvelope::usage="flatTopEnvelope[\[Omega],num,nRamp] returns a Function object representing a flat-top envelope at carrier frequency \[Omega] lasting a total of num cycles and with linear ramps nRamp cycles long.";
Begin["`Private`"];
flatTopEnvelope[\[Omega]_,num_,nRamp_]:=Function[t,Piecewise[{{0,t<0},{Sin[(\[Omega] t)/(4nRamp)]^2,0<=t<(2 \[Pi])/\[Omega] nRamp},{1,(2 \[Pi])/\[Omega] nRamp<=t<(2 \[Pi])/\[Omega] (num-nRamp)},{Sin[(\[Omega] ((2 \[Pi])/\[Omega] num-t))/(4nRamp)]^2,(2 \[Pi])/\[Omega] (num-nRamp)<=t<(2 \[Pi])/\[Omega] num},{0,(2 \[Pi])/\[Omega] num<=t}}]]
End[];

Plot[{flatTopEnvelope[0.057, 5, 2][t] Sin[0.057 t], 
  flatTopEnvelope[0.057, 5, 2][
   t], -flatTopEnvelope[0.057, 5, 2][t]}, {t, 0, 530}, 
 ImageSize -> 800]

图形中存在断点，我觉得应该是因为那里正好是包络的拐点，函数斜率不一致，因为要做计算，请问该怎么解决？

Answer 1

如果只是想在绘图时去掉断点，可以使用参数：Exclusions -> None

例如：

Plot[{flatTopEnvelope[0.057, 5, 2][t] Sin[0.057 t], 
  flatTopEnvelope[0.057, 5, 2][
   t], -flatTopEnvelope[0.057, 5, 2][t]}, {t, 0, 530}, 
 Exclusions -> None, ImageSize -> 800]

 

Comments

不是要去掉断点，主要是在做计算的时候 在这个位置上数据会发生错误

---

举个例子。你是不是求高阶导数了？

---

没有 我把源代码都发上了，我觉得是因为在那个点处，因为是分段函数，改点连续，但是导数不一致导致的图中产生了断点，就想问问怎么解决这个。