版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

fhn2006

新虫 (著名写手)

应助: 24 (小学生)
金币: 366.5
散金: 2151
红花: 11
帖子: 1560
在线: 526.6小时
虫号: 2234914
注册: 2013-01-11
专业: 凝聚态物性 II ：电子结构

[求助] mathematic运行后出现错误已有1人参与

mathematic运行后出现错误，请大神帮忙看下，程序和出现的错误如下：
Clear["`*"]
alpha = 2.5;
beta = 2;
gama = 1;
klu := Sqrt[5];
kld := Sqrt[0.45];

Tuu :=
  2 - Cos[alpha*gama*n/(beta*klu*Cos[x])] -
Cos[alpha*gama*n/((4*klu^2*Sin[x]^2 + B)*klu*Cos[x])] -
alpha*n/(2*beta*klu^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/(beta*klu*Cos[x])]) -
alpha*n/(2*(4*klu^2*Sin[x]^2 + beta)*klu^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/((4*klu^2*Sin[x]^2 + beta)*klu*Cos[x])]);
Tdd :=
  2 - Cos[alpha*gama*n/(beta*kld*Cos[x])] -
Cos[alpha*gama*n/((4*kld^2*Sin[x]^2 + beta)*kld*Cos[x])] -
alpha*n/(2*beta*kld^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/(beta*kld*Cos[x])]) -
alpha*n/(2*(4*kld^2*Sin[x]^2 + beta)*kld^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/((4*kld^2*Sin[x]^2 + beta)*kld*Cos[x])]);
Tud :=
  kld/klu*(2 - Cos[alpha*gama*n/(beta*kld*Cos[x])] -
   Cos[alpha*gama*n/((4*kld^2*Sin[x]^2 + beta)*kld*Cos[x])]) -
alpha*n/(2*beta*klu*kld*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/(beta*kld*Cos[x])]) -
alpha*n/(2*(4*klu*kld*Sin[x]^2 + beta)*kld^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/((4*kld^2*Sin[x]^2 + beta)*kld*Cos[x])]);
Tdu :=
  klu/kld*(2 - Cos[alpha*gama*n/(beta*klu*Cos[x])] -
   Cos[alpha*gama*n/((4*klu^2*Sin[x]^2 + beta)*klu*Cos[x])]) -
alpha*n/(2*beta*klu*kld*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/(beta*klu*Cos[x])]) -
alpha*n/(2*(4*klu*kld*Sin[x]^2 + beta)*klu^2*Cos[x]^2)*(1 -
   Cos[alpha*gama*n/((4*klu^2*Sin[x]^2 + beta)*klu*Cos[x])]);

juu := NIntegrate[Tuu, {x, -1, 1}]
jdd := NIntegrate[Tdd, {x, -1, 1}]
jud := NIntegrate[Tud, {x, -1, 1}]
jdu := NIntegrate[Tdu, {x, -1, 1}]

tmr := {n, (1 - (jud + jdu)/(juu + jdd))*100}

Export["D://tunnling.txt", Table[tmr, {n, 1, 8, 1}], "Table"];  （该语句和前面不是一个模块）

NIntegrate::inumr: The integrand 2-Cos[0.559017 Sec[x]]-Cos[(1.11803 Sec[x])/(B+20 Power[<<2>>])]-0.125 (1-Cos[0.559017 Sec[x]]) Sec[x]^2-(0.25 (1-Cos[(1.11803 Sec[x])/Plus[<<2>>]]) Sec[x]^2)/(2+20 Sin[x]^2) has evaluated to non-numerical values for all sampling points in the region with boundaries {{0,1}}.

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

1sopt解方程组请教已经有3人回复
【求助】程序运行后出现的错误 access violation 已经有15人回复
【求助】mathematic无法运行，帮个忙啊已经有7人回复

1楼 2014-01-25 14:52:20

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)

程序强帖: 5
应助: 206 (大学生)
金币: 10702.8
散金: 100
红花: 19
帖子: 597
在线: 195.4小时
虫号: 576702
注册: 2008-06-21
专业: 物理学I

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
ben_ladeng: 金币+2, 谢谢指教 2014-01-26 11:00:59
ben_ladeng: 专家考核 2014-01-26 11:01:11
fhn2006: 金币+5, ★★★★★最佳答案 2014-07-11 15:53:51

Tuu定义里面有个B没有赋值

赞一下