作业帮有些mathematic的问题 能帮下忙吗?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/25 01:40:51
有些mathematic的问题 能帮下忙吗?
你把问题写出来呀~
再问： 原点在（0，0）的大圆半径10，外有一小圆半径为2相切，初始位置小圆原点在x轴，A为小圆上一点初始在（15,0），现小圆绕大圆转画出A的轨迹和大圆小圆画在一张图上 谢谢啦
再答： 如果大圆小圆相切的话，小圆上的点应该是（14，0）吧。 R=10；r=2； Table[{a = ParametricPlot[{R*Cos[t], R*Sin[t]}, {t, 0, 2Pi}, DisplayFunction -> Identity]; b = ParametricPlot[{(R + r)*Cos[k*2Pi/48] + r*Cos[t], (R + r)*Sin[k*2Pi/48] + r*Sin[t]}, {t, 0, 2Pi}, DisplayFunction -> Identity]; c = ParametricPlot[{(R + r)*Cos[t] + r*Cos[t + R*t/r], (R + r)*Sin[ t] + r*Sin[t + R*t/r]}, {t, 0, k*2Pi/48}, DisplayFunction -> Identity]; Show[{ a, b, c}, AspectRatio -> Automatic, PlotRange -> {{-15, 15}, {-15, 15}}, DisplayFunction -> $DisplayFunction]}, {k, 1, 48}]
再问： 原点在（0，0）的大圆半径10，外有一小圆半径为2相切，初始位置小圆原点在x轴，A为小圆上一点初始在（15,0），现小圆绕大圆转画出A的轨迹和大圆小圆画在一张图上 谢谢啦
再答： 如果大圆小圆相切的话，小圆上的点应该是（14，0）吧。 R=10；r=2； Table[{a = ParametricPlot[{R*Cos[t], R*Sin[t]}, {t, 0, 2Pi}, DisplayFunction -> Identity]; b = ParametricPlot[{(R + r)*Cos[k*2Pi/48] + r*Cos[t], (R + r)*Sin[k*2Pi/48] + r*Sin[t]}, {t, 0, 2Pi}, DisplayFunction -> Identity]; c = ParametricPlot[{(R + r)*Cos[t] + r*Cos[t + R*t/r], (R + r)*Sin[ t] + r*Sin[t + R*t/r]}, {t, 0, k*2Pi/48}, DisplayFunction -> Identity]; Show[{ a, b, c}, AspectRatio -> Automatic, PlotRange -> {{-15, 15}, {-15, 15}}, DisplayFunction -> $DisplayFunction]}, {k, 1, 48}]