Я пытаюсь сгенерировать семейство кривых в параметрическом графике (поскольку функция дает 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)