24小时热门版块排行榜    

查看: 571  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

Abla

新虫 (初入文坛)

[求助] 帮我看一下这个程序啊为什么输不出来,菜鸟求问

\[Epsilon] =
  1 - (2*Pi*12.8*10^9*2*Pi*12.8*10^9 -
    2*Pi*10.3*10^9*2*Pi*10.3*10^9)/(
   67.2*10^9*67.2*10^9 - 2*Pi*10.3*10^9*2*Pi*10.3*10^9 +
    I*0.02*10^9*67.2*10^9);
\[Mu] = 1 - (
   2*Pi*10.95*10^9*2*Pi*10.95*10^9 -
    2*Pi*10.05*10^9*2*Pi*10.05*10^9)/(
   67.2*10^9*67.2*10^9 - 2*Pi*10.05*10^9*2*Pi*10.05*10^9 +
    I*0.02*10^9*67.2*10^9);
\[Chi] = Sqrt[\[Epsilon]]/Sqrt[\[Mu]];
w = 67.2*10^9;
c = 3.0*10^8;
d = 0.01;
\[Lambda] = (2 Pi*c)/w;
q[\[Theta]_] =
  Sqrt[\[Epsilon]]/Sqrt[\[Mu]]*Sqrt[
   1 - (Sin[\[Theta]]*Sin[\[Theta]])/(\[Epsilon]*\[Mu])];
k[\[Theta]_] = (67.2*10^9)/(3*10^8)*Sqrt[\[Epsilon]]*Sqrt[\[Mu]]*Sqrt[
   1 - (Sin[\[Theta]]*Sin[\[Theta]])/(\[Epsilon]*\[Mu])];

r[\[Theta]_] := (-I*Cos[\[Theta]]*Cos[\[Theta]]*
    Sin[k[\[Theta]]*d]/q[\[Theta]] +
   I*q[\[Theta]]*Sin[k[\[Theta]]*d])/(
  2*Cos[\[Theta]]*Cos[k[\[Theta]]*d] -
   I*Cos[\[Theta]]*Cos[\[Theta]]*Sin[k[\[Theta]]*d]/q[\[Theta]] -
   I*q[\[Theta]]*Sin[k[\[Theta]]*d]);
t[\[Theta]_] := (2 Cos[\[Theta]])/(
  2*Cos[\[Theta]]*Cos[k[\[Theta]]*d] -
   I*Cos[\[Theta]]*Cos[\[Theta]]*Sin[k[\[Theta]]*d]/q[\[Theta]] -
   I*q[\[Theta]]*Sin[k[\[Theta]]*d]);
c[\[Theta]_] = Re[r[\[Theta]]];
d[\[Theta]_] = Im[r[\[Theta]]];
a[\[Theta]_] := D[Im[r[\[Theta]]], \[Theta]];
a1[\[Theta]_] = a[\[Theta]];
b[\[Theta]_] := D[Re[r[\[Theta]]], \[Theta]];
b1[\[Theta]] = b[\[Theta]];
c1[\[Theta]] = Re[t[\[Theta]]];
d1[\[Theta]] = Im[t[\[Theta]]];
a2[\[Theta]_] := D[Im[t[\[Theta]]], \[Theta]];
a3[\[Theta]_] = a2[\[Theta]];
b2[\[Theta]_] := D[Re[t[\[Theta]]], \[Theta]];
b3[\[Theta]_] = b2[\[Theta]];
\[CapitalDelta]r[\[Theta]_] = -(\[Lambda]/(2 Pi))*1/(
  c[\[Theta]]*c[\[Theta]] +
   d[\[Theta]]*d[\[Theta]])*(c[\[Theta]]*a1[\[Theta]] -
    d[\[Theta]]*b1[\[Theta]])
\[CapitalDelta]t[\[Theta]_] = -(\[Lambda]/(2 Pi))*1/(
  c[\[Theta]]*c[\[Theta]] +
   d[\[Theta]]*d[\[Theta]])*(c1[\[Theta]]*a3[\[Theta]] -
    d1[\[Theta]]*b3[\[Theta]])
Plot[\[CapitalDelta]r[\[Theta]], {\[Theta], 0, Pi/2}]
Plot[\[CapitalDelta]t[\[Theta]], {\[Theta], 0, Pi/2}]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Abla

新虫 (初入文坛)

引用回帖:
4楼: Originally posted by walk1997 at 2013-03-06 13:35:59
程序里面c,d各出现了2次定义
1次是做为变量 另外又是做为函数出现
把第二个c,d改一下名字吧 另外 很多的定义 cc=xxx也改下

我把常量已经带进去了 不存在那个问题 还是输不出结果
6楼2013-03-19 09:38:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

Abla

新虫 (初入文坛)

为什么输不出来图形啊
2楼2013-03-02 11:54:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Abla

新虫 (初入文坛)

直接粘贴到mathmatica上好像没有这么乱
3楼2013-03-02 12:01:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)

程序里面c,d各出现了2次定义
1次是做为变量 另外又是做为函数出现
把第二个c,d改一下名字吧 另外 很多的定义 cc[\theta]=xxx[\theta]也改下
4楼2013-03-06 13:35:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +29 医学老男孩 2026-08-13 61/3050 2026-08-15 20:41 by cqbnu
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +8 majunge000 2026-08-11 10/500 2026-08-15 18:55 by Equinoxhua
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +7 Ldrop2023 2026-08-13 7/350 2026-08-15 15:57 by mzhh2000
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 22/1100 2026-08-14 23:45 by Noways
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
信息提示
请填处理意见