Question

mathematica如何将以下分段参数方程绘制出来？

课程设计需要绘制出一个凸轮机构，现在已经得到所需的4段参数方程；如何将这四段参数方程绘制出来？

我原本的思路是这样的：
ParametricPlot[{(38.5 - 3.5 Cos[3 \[Delta]]) Sin[\[Delta]], (38.5 -
3.5 Cos[3 \[Delta]]) Cos[\[Delta]]}, {\[Delta], 0 \[Degree],
60 \[Degree]}]
ParametricPlot[{42 Sin[\[Delta]], 42 Cos[\[Delta]]}, {\[Delta],
60 \[Degree], 65 \[Degree]}]
ParametricPlot[{(38.5 +
3.5 Cos[3 (\[Delta] - 65 \[Degree])]) Sin[\[Delta]], (38.5 +
3.5 Cos[3 (\[Delta] - 65 \[Degree])]) Cos[\[Delta]]}, {\[Delta],
65 \[Degree], 125 \[Degree]}]
ParametricPlot[{35 Sin[\[Delta]], 35 Cos[\[Delta]]}, {\[Delta],
125 \[Degree], 360 \[Degree]}]
将这四段函数分别设为F1,F2,F3,F4，再用Show表示在同一坐标系中，但是根本无法运行。。
而且这四段函数分开绘制出来好像也有点问题。。请问要怎么修改啊。真的很急，谢谢

Answer 1

a1 = PolarPlot[{Sqrt[((38.5 -
3.5 Cos[3 \[Delta]]) Sin[\[Delta]])^2 + ((38.5 -
3.5 Cos[3 \[Delta]]) Cos[\[Delta]])^2]}, {\[Delta],
0 \[Degree], 60 \[Degree]}]
a2 = PolarPlot[{Sqrt[(42 Sin[\[Delta]])^2 + (42 Cos[\[Delta]])^2]}, {\
\[Delta], 60 \[Degree], 65 \[Degree]}]
a3 = PolarPlot[{Sqrt[((38.5 +
3.5 Cos[3 (\[Delta] -
65 \[Degree])]) Sin[\[Delta]])^2 + ((38.5 +
3.5 Cos[3 (\[Delta] -
65 \[Degree])]) Cos[\[Delta]])^2]}, {\[Delta],
65 \[Degree], 125 \[Degree]}]
a4 = PolarPlot[{Sqrt[(35 Sin[\[Delta]])^2 + (35 Cos[\[Delta]])^2]}, {\
\[Delta], 125 \[Degree], 360 \[Degree]}]
Show[a1, a2, a3, a4]