如何用mathematica作极坐标下的参数方程？
1个回答
展开全部
既然你在吧里面也问了，就直接参考那里吧，
http://tieba.baidu.com/p/2866191283
顺便我贴一下代码吧，
PolarPlot[Evaluate[2*t/(1 + t^2) /.Solve[\[Theta] == Pi*t/(1 + t), t]], {\[Theta], 0, Pi}]
ParametricPlot[{2*t/(1 + t^2)*Cos[Pi*t/(1 + t)],
2*t/(1 + t^2)*Sin[Pi*t/(1 + t)]}, {t, 0, 100}, PlotRange -> All]
http://tieba.baidu.com/p/2866191283
顺便我贴一下代码吧，
PolarPlot[Evaluate[2*t/(1 + t^2) /.Solve[\[Theta] == Pi*t/(1 + t), t]], {\[Theta], 0, Pi}]
ParametricPlot[{2*t/(1 + t^2)*Cos[Pi*t/(1 + t)],
2*t/(1 + t^2)*Sin[Pi*t/(1 + t)]}, {t, 0, 100}, PlotRange -> All]
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
