24小时热门版块排行榜    

查看: 1017  |  回复: 1

fhn2006

新虫 (著名写手)

[求助] 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}}.
回复此楼

» 猜你喜欢

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

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

mshwangg

至尊木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +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没有赋值
2楼2014-01-25 20:38:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 fhn2006 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 299求调剂 +5 某某某某位 2026-03-21 5/250 2026-03-23 23:36 by 热情沙漠
[考研] 材料专硕找调剂 +3 哈哈哈吼吼吼哈 2026-03-23 3/150 2026-03-23 23:13 by peike
[考研] 材料/农业专业,07/08开头均可,过线就行 +3 呵唔哦豁 2026-03-23 4/200 2026-03-23 22:30 by 汪!?!
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-17 10/500 2026-03-23 13:05 by 醉在风里
[考研] 317求调剂 +12 申子申申 2026-03-19 18/900 2026-03-22 22:23 by luoyongfeng
[考研] 08工科 320总分 求调剂 +11 梨花珞晚风 2026-03-17 11/550 2026-03-22 17:42 by luoyongfeng
[考研] 287求调剂 +8 晨昏线与星海 2026-03-19 9/450 2026-03-22 17:01 by i_cooler
[考研] 求调剂 +5 Zhangbod 2026-03-21 7/350 2026-03-22 13:13 by Zhangbod
[考研] 考研调剂 +4 来好运来来来 2026-03-21 4/200 2026-03-22 12:15 by 星空星月
[考研] 华东师范大学-071000生物学-293分-求调剂 +3 研究生何瑶明 2026-03-18 3/150 2026-03-21 01:30 by JourneyLucky
[考研] 22408 344分 求调剂 一志愿 华电计算机技术 +4 solanXXX 2026-03-20 4/200 2026-03-20 23:49 by alg094825
[考研] 一志愿武汉理工材料工程专硕调剂 +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 求调剂 +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[考研] 求调剂 +3 eation27 2026-03-20 3/150 2026-03-20 19:32 by JourneyLucky
[考研] 一志愿南理工085701环境302求调剂院校 +3 葵梓卫队 2026-03-20 3/150 2026-03-20 19:28 by zhukairuo
[考研] 086500 325 求调剂 +3 领带小熊 2026-03-19 3/150 2026-03-20 18:38 by 尽舜尧1
[考研] 广西大学家禽遗传育种课题组2026年硕士招生(接收计算机专业调剂) +3 123阿标 2026-03-17 3/150 2026-03-20 15:58 by 飞行琦
[考研] 材料,纺织,生物(0856、0710),化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[考博] 26博士申请 +3 1042136743 2026-03-17 3/150 2026-03-17 23:30 by 轻松不少随
信息提示
请填处理意见