Question

我试图在参数图中生成一系列曲线（因为函数给出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轴是反转的。我在这里尝试制作具有匹配尺寸的2个列表，没有效果。最简单的处理方法就是使y参数方程反转，因为它不容易在Mathematica中反转一个轴）

Answer 1

你可能想要这个：

ParametricPlot[Transpose[{a[h], b[h]}], {h, 0, 100}, AspectRatio -> 1]

如何在Mathematica中创建函数表的参数图？

1 个答案: