24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1029  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 344 材料专业 求调剂211 无地域要求 +8 hualkop 2026-04-11 8/400 2026-04-12 22:24 by fqwang
[考研] 339求调剂 +3 hanwudada 2026-04-12 3/150 2026-04-12 21:43 by lbsjt
[教师之家] 山东双非院校考核超级无底线,领导幸灾乐祸,教师遭殃恐 +3 qut2026 2026-04-11 7/350 2026-04-12 20:24 by qut2026
[考研] 求调剂 +16 张番茄不炒蛋 2026-04-10 17/850 2026-04-12 13:58 by 熬夜成!
[考研] 308求调剂 +5 VvvvL 2026-04-10 5/250 2026-04-12 10:17 by babysonlkd
[考研] 085404 293求调剂 +9 勇远库爱314 2026-04-08 9/450 2026-04-12 02:24 by 秋豆菜芽
[考研] 277 数一104,学硕,求调剂 +21 瓶子PZ 2026-04-09 23/1150 2026-04-11 23:12 by labixiaoqiao
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 309求调剂 +14 wdhw 2026-04-10 15/750 2026-04-10 21:06 by zhouxiaoyu
[考研] 本科西工大 324求调剂 +4 wysyjs25 2026-04-10 4/200 2026-04-10 20:00 by 来看流星雨10
[考研] 材料专业344求调剂 +16 hualkop 2026-04-10 21/1050 2026-04-10 17:28 by laoshidan
[考研] 一志愿京区985,085401电子信息,本科电子信息 +3 阳光开朗的男孩 2026-04-10 3/150 2026-04-10 16:29 by sophia_93
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 生物学求调剂 一志愿沪9,326分 +7 刘墨墨 2026-04-06 7/350 2026-04-10 08:11 by kangsm
[考研] 297求调剂 +27 GENJIOW 2026-04-07 30/1500 2026-04-09 23:20 by wolf97
[考研] 334求调剂 +16 Riot2025 2026-04-08 17/850 2026-04-09 09:28 by wdyheheeh
[考研] 机械工程313分找工科调剂 +3 双一流本科机械 2026-04-08 3/150 2026-04-08 20:41 by 土木硕士招生
[考研] 求考研材料调剂 +3 材化李可 2026-04-07 3/150 2026-04-08 00:21 by JourneyLucky
[考研] 调剂 +4 mcbbc 2026-04-06 5/250 2026-04-07 12:33 by upczlm1989
[考研] 求调剂到材料 +5 程9915 2026-04-06 5/250 2026-04-06 15:21 by yulian1987
信息提示
请填处理意见