在mathematica中绘制多规则函数

Question

如何在Mathematica中编写与此类似的函数(复杂轮廓)的代码:

Answer 1

我不确定c是什么,但我认为它是0到1之间的数字,意思是进入直线的高度.那么也许这样的话可以满足你的需求呢？

c = 0.7;
t0 = ArcSin[c];
PolarPlot[If[Abs[t] < t0, Abs[Sin[t0]/Sin[t]], 1], {t, -\[Pi], \[Pi]}]