公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
429 浏览
Plot[exp[-4.06*10^11*sqrt(3-x)],{x,1,2}]
用户: zainali123 (11 分)
修改于 用户:苹果

1个回答

+2 投票

首先,请查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}]]

用户: 苹果 (2.2k 分)
修改于 用户:苹果
老实说改掉低级错误并不足以解答这个问题……
鉴于函数上升太快,可以认为函数图形就是一个水平线,除了x=1这个点附近极小范围内。
...