|
f[t]：=（t-k*t/（k+m*t-m*h））；
g[t]：=D[f[t]，t]；系数[g[t]]
p[t]：=h^2 k+k^3-h^3 m-h k^2 m-3 h k t+3 h ^2 m t+2 k t ^2-3 h m t ^2+m t ^3 m=2；h=1；k=1；（*斜率m，点（h，k）*）
t=t1/。查找根[p[t1]==0，{t1，1，2}，工作精度->100]
{N[t]，0}（*x轴上的端点*）
{N[k*t/（k+m*t-m*h）]，
N[m*k*t/（k+m*t-m*h）]}（第y行的*endpt=mx*）
d=N[Sqrt[f[t]]，100]
显示[绘图[{k*（x-t）/（h-t），m*x}，{x，0，2}]，
等高线图[（x-h）^2+（y-k）^2==.001，{x，0，4}，{y，0，3}]，绘图范围->{0，1.7}，纵横比->自动]
| 