画图精度问题，所计算的数很小，结果就看不到

Question

Plot[exp[-4.06*10^11*sqrt(3-x)],{x,1,2}]

Answer 1

首先，请查Exp和Sqrt函数并学习其用法。

http://reference.wolfram.com/language/ref/Exp.html?q=Exp

http://reference.wolfram.com/language/ref/Sqrt.html?q=Sqrt

其次，鉴于函数上升太快，可以认为函数图形就是一个水平线，除了x=1这个点附近极小范围内。下面使用对数坐标轴去画图，当然，实现方式曲折了点，可能还有更简单的方式。本段在部分电脑上无法运行，取决于你使用的电脑上$MinNumber能够有多接近于0.

p = ListLinePlot[
   Log@Table[Exp[-4.06*10^11*Sqrt[3 - x]], {x, 1, 2, 0.01}],
   DataRange -> {1, 2}];
Show[p, MapAt[If[NumberQ@#, E^#, #] &, 
  AbsoluteOptions[p, Ticks], {1, 2, 2, All, 2}]]

Comments

老实说改掉低级错误并不足以解答这个问题……

---

鉴于函数上升太快，可以认为函数图形就是一个水平线，除了x=1这个点附近极小范围内。