大师作文网谁能帮我用mathematica算算以下几个极限
来源：学生作业帮 编辑：大师作文网作业帮 分类：数学作业 时间：2024/11/13 07:07:05
谁能帮我用mathematica算算以下几个极限
要近似值
上面3是sinX的平方,x趋向于0,
下面1是lim（……）^x,x趋向于无穷
下面2是x趋向于无穷,根号里面都是x的平方
下面3是x趋向于0
要近似值
上面3是sinX的平方,x趋向于0,
下面1是lim（……）^x,x趋向于无穷
下面2是x趋向于无穷,根号里面都是x的平方
下面3是x趋向于0
看不懂你的问题……你不要准确解?总之,这里先给出准确解的代码：
Flatten[{Limit[#,x -> \[Infinity]] & /@ {((x + 1)/(x - 1))^x,Sqrt[x^2 + 1] - Sqrt[x^2 - 1]},
Limit[#,x -> 0] & /@ {(Sqrt[1 + x] - Sqrt[1 - x])/x,Sin[x]^2/(1 - Cos[x])}}]
(* {E^2,0,1,2} *)
哪个对应哪个你应该看得出来……至于近似解嘛：
Flatten[{{((x + 1)/(x - 1))^x,Sqrt[x^2 + 1] - Sqrt[x^2 - 1]} /.x -> 100000.,
{(Sqrt[1 + x] - Sqrt[1 - x])/x,Sin[x]^2/(1 - Cos[x])} /.x -> 0.00001}]
(* {7.38906,9.99999*10^-6,1.,2.} *)
Flatten[{Limit[#,x -> \[Infinity]] & /@ {((x + 1)/(x - 1))^x,Sqrt[x^2 + 1] - Sqrt[x^2 - 1]},
Limit[#,x -> 0] & /@ {(Sqrt[1 + x] - Sqrt[1 - x])/x,Sin[x]^2/(1 - Cos[x])}}]
(* {E^2,0,1,2} *)
哪个对应哪个你应该看得出来……至于近似解嘛：
Flatten[{{((x + 1)/(x - 1))^x,Sqrt[x^2 + 1] - Sqrt[x^2 - 1]} /.x -> 100000.,
{(Sqrt[1 + x] - Sqrt[1 - x])/x,Sin[x]^2/(1 - Cos[x])} /.x -> 0.00001}]
(* {7.38906,9.99999*10^-6,1.,2.} *)