Ix21-FindRoot[f[x]==L+e, x, a ]: xx21=x/. rx21 d12=xx12-a d2 1=a-XX21; dd=If(d12<d21, d12, d21] xxI=a-dd: xx2=a+dd- ghl=ParametricPlot[xxxl,y=t,t,yl,y2) Display Function->Identity] gh2=ParametricPlot[xxx2, y=t, t, yl,y2) Display Function->Identity] Show[g ghl, gh2, Display Function->SDisplay Function xx=(e, dd, xxl, xx21: 结果 得图 取 e=005得图 实验12考察函数极限msnx与数ns9/Mn+1m n2n+1极限间的关系rx21=FindRoot[f[x]==L+e,{x, a}];xx21=x/.rx21; d12=xx12-a;d21=a-xx21;dd=If[d12<d21,d12,d21]; xx1=a-dd;xx2=a+dd; gh1=ParametricPlot[{x=xx1,y=t},{t,y1,y2}, DisplayFunction->Identity]; gh2=ParametricPlot[{x=xx2,y=t},{t,y1,y2}, DisplayFunction->Identity]; Show[g,gh1,gh2,DisplayFunction->$DisplayFunction]; xx={e,dd,xx1,xx2}; 结果： 取 得图 取 得图 实验12 考察函数极限 与数列 极限间的关系