| 查看: 977 | 回复: 1 | ||
[求助]
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}}. |
回复此楼» 猜你喜欢
垃圾破二本职称评审标准
已经有17人回复
-
职称评审没过，求安慰
已经有30人回复
-
回收溶剂求助
已经有6人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有22人回复
-
申请26博士
已经有5人回复
-
EST投稿状态问题
已经有7人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 1sopt解方程组请教
已经有3人回复
- 【求助】程序运行后出现的错误 access violation
已经有15人回复
- 【求助】mathematic无法运行，帮个忙啊
已经有7人回复
mshwangg
至尊木虫 (正式写手)
- 程序强帖: 5
- 应助: 206 (大学生)
- 金币: 10702.8
- 散金: 100
- 红花: 19
- 帖子: 597
- 在线: 195.4小时
- 虫号: 576702
- 注册: 2008-06-21
- 专业: 物理学I
2楼2014-01-25 20:38:58