如何製作Mathematica中函數表的參數圖？

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]