24小时热门版块排行榜    

查看: 1034  |  回复: 7

惜梦寻草

新虫 (初入文坛)

[求助] matlab程序调试

如题,程序如下,不知道为什么会报错,希望能帮助调试一下,谢谢!
clear
clc
a1=5.756;
a2=0.0983;
a3=0.2020;
a4=189.32;
a5=12.52;
a6=1.32e-2;
b1=2.860e-6;
b2=4.700e-8;
b3=6.113e-8;
b4=1.516e-4;
T=25;
f=(T-24.5).*(T+570.82);
A=28.0:0.01:32.0;
lamdap=1.064;  
lamdas=1.4:0.01:5.4;
lamdai=1./(1./lamdap-1./lamdas);
c=1;
c2=1;
for i=1:length(A)
    m=1;
    for n=1:length(lamdas)
        if  lamdai(n)>lamdas(n);
            lamdass(m)=lamdas(n);  
            lamdaii(m)=lamdai(n);
            np(m)=(a1+b1*f+(a2+b2*f)/(lamdap^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdap^2-a5^2)-a6*lamdap^2)^(1/2);
            ns(m)=(a1+b1*f+(a2+b2*f)/(lamdass(m)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdass(m)^2-a5^2)-a6*lamdass(m)^2)^(1/2);
            ni(m)=(a1+b1*f+(a2+b2*f)/(lamdaii(m)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdaii(m)^2-a5^2)-a6*lamdaii(m)^2)^(1/2);
            w(m)=abs(np(m)./lamdap-ns(m)./lamdass(m)-ni(m)./lamdaii(m)-1./A);
            m=m+1;
        end
    end
    if min(w)<10^-5
        [x1,y1]=min(w);
        A1(c)=A(i);
        lamdas1(c)=lamdass(y1);
        lamdai1(c)=lamdaii(y1);
        lamdap2=lamdas1(c);
        lamdas2=(lamdap2+0.001):0.0001:6;
        lamdai2=1./(1./lamdap2-1./lamdas2);
        c=c+1;
        m2=1;
        for n2=1:length(lamdas2)
            if  lamdai2(n2)>lamdas2(n2)
                lamdass2(m2)=lamdas2(n2);
                lamdaii2(m2)=lamdai2(n2);  
                ns2(m2)=(a1+b1*f+(a2+b2*f)/(lamdass2(m2)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdass2(m2)^2-a5^2)-a6*lamdass2(m2)^2)^(1/2);
                ni2(m2)=(a1+b1*f+(a2+b2*f)/(lamdaii2(m2)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdaii2(m2)^2-a5^2)-a6*lamdaii2(m2)^2)^(1/2);
                np2(m2)=(a1+b1*f+(a2+b2*f)/(lamdap2^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdap2^2-a5^2)-a6*lamdap2^2)^(1/2);
                w2(m2)=abs(np2(m2)/lamdap2-ns2(m2)/lamdass2(m2)-ni2(m2)/lamdaii2(m2)-1./A);
                m2=m2+1;
            end
        end
        if min(w2)<10^-6.07
            [x2,y2]=min(w2);
            A2(c2)=A(i);
            lamdasss2(c2)=lamdass2(y2);
            lamdaiii2(c2)=lamdaii2(y2);
            c2=c2+1;
        end
    end
end
plot(A1,lamdas1,A1,lamdai1,A2,lamdasss2,A2,lamdaiii2)
回复此楼

» 猜你喜欢

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

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

shutaham

金虫 (正式写手)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
csgt0: 金币+1, 谢谢 2013-01-08 13:58:02
惜梦寻草: 金币+2 2013-01-09 18:57:26
In an assignment  A(I) = B, the number of elements in B and I must be the
same.

Error in Untitled (line 30)
            w(m)=abs(np(m)./lamdap-ns(m)./lamdass(m)-ni(m)./lamdaii(m)-1./A);
>>
估计问题出在那个 1./A 上
2楼2013-01-08 10:10:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jiahongen

新虫 (初入文坛)

呵呵,正在学习中
3楼2013-01-08 13:46:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

惜梦寻草

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by shutaham at 2013-01-08 10:10:51
In an assignment  A(I) = B, the number of elements in B and I must be the
same.

Error in Untitled (line 30)
            w(m)=abs(np(m)./lamdap-ns(m)./lamdass(m)-ni(m)./lamdaii(m)-1./A);
>&g ...

谢谢!那应该怎么改呢?A应该不是一个值
4楼2013-01-08 19:49:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lgycjpcqu

金虫 (正式写手)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
csgt0: 金币+1, 谢谢 2013-01-09 09:22:05
惜梦寻草: 金币+2 2013-01-09 18:57:35
A向量中共有401个元素,m的取值范围由于判定语句
if  lamdai(n)>lamdas(n);
的存在必然会小于401(如果等于此判定就没有意义)
所以错误提示说,w和A中的元素要求相等。
如果语句
w(m)=abs(np(m)./lamdap-ns(m)./lamdass(m)-ni(m)./lamdaii(m)-1./A);
的意思说当上面的判定成立时,用A向量对应位置的元素计算w的数值的话,改成1/A(m)即可。
我也是初学者,呵呵希望对你有帮助!
5楼2013-01-09 08:58:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

惜梦寻草

新虫 (初入文坛)

引用回帖:
5楼: Originally posted by lgycjpcqu at 2013-01-09 08:58:18
A向量中共有401个元素,m的取值范围由于判定语句
if  lamdai(n)>lamdas(n);
的存在必然会小于401(如果等于此判定就没有意义)
所以错误提示说,w和A中的元素要求相等。
如果语句
w(m)=abs(np(m)./lamdap- ...

修改了以后运行一下还是有问题
??? Undefined function or variable 'A1'.
不知道怎么改了
6楼2013-01-09 18:57:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

connors

禁虫 (小有名气)


感谢参与,应助指数 +1
csgt0: 金币+1, 谢谢 2013-01-10 10:35:48
本帖内容被屏蔽

7楼2013-01-09 20:15:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lgycjpcqu

金虫 (正式写手)

【答案】应助回帖

★ ★
csgt0: 金币+1, 谢谢 2013-01-10 10:35:54
惜梦寻草: 金币+1, 有帮助, 谢谢啦! 2013-01-11 08:16:16
引用回帖:
6楼: Originally posted by 惜梦寻草 at 2013-01-09 18:57:04
修改了以后运行一下还是有问题
??? Undefined function or variable 'A1'.
不知道怎么改了...

我看了一下,修改后
if min(w)<10^-5
的判断不能成立,所以A1没有数值,
按照你的程序j计算后好像
min(w)=3.054*10^(-5)
Undefined function or variable 'A1'.
就是A1没有进行定义或是你就算中没有赋值,好好检查一下计算A1的计算程序即可发现问题。
8楼2013-01-09 22:20:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 惜梦寻草 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 国自然面上复盘~欢迎讨论 (金币+5) +11 晴天加油 2026-08-26 12/600 2026-08-28 01:22 by li09465290@
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +7 苏东坡二世 2026-08-23 7/350 2026-08-27 18:14 by 瞬息宇宙
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 LIbGuocjEEYw 2026-08-26 4/200 2026-08-27 02:01 by Ie9AyIAvGbvs
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[教师之家] 跳槽后在研项目怎么办? +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
信息提示
请填处理意见