作业帮 > 数学 > 作业

用mathematica画麦克斯韦速率分部 图

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/06/17 10:38:11
用mathematica画麦克斯韦速率分部 图

我用mathematica 画的,程序如下,但是画不出,求大神看看哪里出错了

k := 1.38*10^-23;
m := 28;
T := 100;
Plot[{4*Pi*(m/(2*Pi*k*T))^(3/2)*E^(-((m*x^2)/(2*k*T)))*x^2}, {x, 0,
  1000}]

系统提示,k,也就是玻尔兹曼常数小于系统最小值,无法进行计算与画图,求救=.=

用mathematica画麦克斯韦速率分部 图
出错的原因是,-((m*x^2)/(2*k*T))的值太小了,E的-((m*x^2)/(2*k*T))次方超出了系统所能表达的最小的数,可以输入$MinNumber并shift+enter,查看系统所允许的最小的数字.你确定你给的参数没有问题吗?k这么小?
再问: K是玻尔兹曼常数啊。。。
再答: 解决方法有二
一,换一下单位(变向改变k的大小)
二,改变系统$MinNumber
再问: 怎么改变minnumber?
再答: 这是一个系统保护的常量,因此不建议修改,
但是可以使用Unprotect函数取消系统的保护,然后就可以修改了
我看到你在贴吧的求助帖了,貌似已经解决问题~~~是你单位弄错了