如何在 Mathematica 中绘制函数表的参数图？
我试图在参数图中生成一系列曲线（因为该函数将 x 作为 y 的函数），但我要么什么也没有得到，要么得到明显不正确的函数。您需要做一些特殊的事情来绘制这些函数的图吗？这是我尝试的代码：（
Clear[T, g, k, f, r, a, b, term]; T = 170 Degree;
f[s_, d_] = Normal[Series[Tan[T - ArcCos[-(d*s)]], {s, 0, 4}]];
r[h_, d_] = Simplify[Integrate[f[s, d], {s, 0, h}]];
a[h_] = Table[r[h, d], {d, 1, 3, 1}]
b[h_] = Table[-h, {Dimensions[a[h]][[1]]}];
ParametricPlot[{a[h], b[h]}, {h, 0, 100}, AspectRatio -> 1]
注意：y轴是倒置的。我在这里尝试制作两个具有匹配维度的列表，但没有效果。处理这个问题的最简单方法就是使 y 参数方程反转，因为它在 Mathematica 中反转轴并不容易）
I am trying to generate a family of curves in a parametric plot (since the function is giving x as a function of y), but I am getting either nothing or clearly incorrect functions. Is there something special which you need to do to make a plot of such functions? This is my attempted code:
Clear[T, g, k, f, r, a, b, term]; T = 170 Degree;
f[s_, d_] = Normal[Series[Tan[T - ArcCos[-(d*s)]], {s, 0, 4}]];
r[h_, d_] = Simplify[Integrate[f[s, d], {s, 0, h}]];
a[h_] = Table[r[h, d], {d, 1, 3, 1}]
b[h_] = Table[-h, {Dimensions[a[h]][[1]]}];
ParametricPlot[{a[h], b[h]}, {h, 0, 100}, AspectRatio -> 1]
(Note: The y axis is inverted. I have tried here to make 2 lists with matching dimensions, to no effect. The easiest way to handle this was just to make the y parametric equation an inversion, since it is not easy to invert an axis in Mathematica)
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
你可能想要这个：
You probably want this: