24小时热门版块排行榜    

查看: 2200  |  回复: 2
【悬赏金币】回答本帖问题,作者束文生将赠送您 25 个金币

束文生

铁虫 (初入文坛)

[求助] 求助介电常数(复数)怎么用一阶德拜方程拟合 已有1人参与

介电常数在每个频点的数据为复数,现在知道部分频点的介电常数,需要用一阶德拜方程来拟合,如何得到德拜方程的系数呢?用matlab还是origin?
一阶德拜方程: y=(a+(b-a)/(1+(2*pi*f*c)^2))-j*(d/(2*pi*f*(1/(36*pi)*10^-9))+((b-a)*2*pi*f*c)/(1+(2*pi*f*c)^2));其中f为频率,a b  c d 为需要拟合的系数;
频率:
3000000   
4000000
5000000
6000000
7000000
8000000
9000000
10000000
15000000
20000000
25000000
30000000
40000000
50000000
60000000
70000000
80000000
90000000
100000000
介电常数实部:
13.5
10.61
8.8
7.58
6.7
6.04
5.53
5.12
3.92
3.35
3
2.78
2.52
2.37
2.26
2.18
2.11
2.048
2.01
介电常数虚部:
17.85
15.28
13.35
11.86
10.67
9.72
8.93
8.27
6.07
4.83
4.02
3.46
2.72
2.25
1.92
1.67
1.47
1.3
1.17
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wlfc

新虫 (初入文坛)

【答案】应助回帖

用OpenLu(可从www.forcal.net下载)求解。

!!!using["luopt","math","win"]; //使用命名空间

g(a,b,c,d,f)= (a+(b-a)/(1+(2*pi*f*c)^2))-1.0i*(d/(2*pi*f*(1/(36*pi)*1e-9))+((b-a)*2*pi*f*c)/(1+(2*pi*f*c)^2));

目标函数(a,b,c,d : i,s, e11,e22 : max, f, e1, e2)=
{
    i=-1, s=0, while{++i<max, toreal[g(a,b,c,d,f(i,0)), &e11,&e22], s=s+[e1(i,0)-e11]^2+[e2(i,0)-e22]^2 },
    s
};

main(: tArray : max, f, e1, e2)=
{
    tArray=matrix{ //存放实验数据 //f    e1[realPart]    e2[imagPart]
        "3000000        13.5        17.85
4000000        10.61        15.28
5000000        8.8        13.35
6000000        7.58        11.86
7000000        6.7        10.67
8000000        6.04        9.72
9000000        5.53        8.93
10000000        5.12        8.27
15000000        3.92        6.07
20000000        3.35        4.83
25000000        3        4.02
30000000        2.78        3.46
40000000        2.52        2.72
50000000        2.37        2.25
60000000        2.26        1.92
70000000        2.18        1.67
80000000        2.11        1.47
90000000        2.048        1.3
100000000        2.01        1.17
"
    },
    len[tArray,0,&max], f=tArray(all:0), e1=tArray(all:1),e2=tArray(all:2), //用len函数取矩阵的行数,f等取矩阵的列
    Opt1[@目标函数] //Opt1函数全局优化
};

结果(a,b,c,d,最小值):
2.393920870707986         18.24067405097755         -3.758382749525807e-008   -1.610640545623026e-003   3.654009362095743
2楼2021-08-09 13:59:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wlfc

新虫 (初入文坛)

图形:https://blog.csdn.net/wlfc/article/details/119540527
3楼2021-08-09 16:18:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 束文生 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售渎SCI文章,我:8⊙ 55 1⊙ 54。备注【⊙=0】 +4 ipys00zm58 2026-03-06 6/300 2026-03-07 00:30 by vwchyxxzm4
[考研] 306求调剂 +7 Bahati 2026-03-05 7/350 2026-03-06 22:11 by 星空星月
[考研] 欢迎211本科同学,过A区国家线,A区非偏远一本,交叉学科课题组 +19 lisimayy 2026-03-04 31/1550 2026-03-06 16:55 by llll5217
[考研] 290分材料工程085601求调剂 数二英一 +9 llx0610 2026-03-02 10/500 2026-03-06 16:24 by @飒飒飒飒
[考研] 316求调剂 +3 林小星发大财 2026-03-05 5/250 2026-03-06 09:05 by Iveryant
[考研] 0856材料求调剂 +17 hyf hyf hyf 2026-02-28 18/900 2026-03-05 09:32 by oxidpl
[考研] 376求调剂 +3 王浩然sam 2026-03-04 3/150 2026-03-05 07:48 by bxbo
[考研] 一志愿武汉理工大学-085602-总分296分-求调剂 +7 紫川葡柚 2026-03-04 7/350 2026-03-04 21:04 by kakakapanpan
[考研] 282求调剂 +5 2103240126 2026-03-02 8/400 2026-03-04 17:29 by 妄深于海
[考研] 0855机械工程324求调剂 +3 郑SK 2026-03-02 7/350 2026-03-04 17:24 by congmingdou
[考研] 295求调剂 +4 小赛不吃香菜 2026-03-04 4/200 2026-03-04 16:13 by sslc1985
[考研] 289求调剂 +8 yang婷 2026-03-02 10/500 2026-03-04 09:10 by 无际的草原
[考研] 268求调剂 +6 好运连绵不绝 2026-03-02 6/300 2026-03-03 13:03 by 秋收
[考研] 288求调剂 +3 少71.8 2026-03-02 5/250 2026-03-03 06:01 by tgxtgxtgx9
[考研] 【2026 硕士调剂】课题组 招收调剂生 +3 考研版棒棒 2026-03-02 5/250 2026-03-03 01:45 by kkky.
[考研] 求调剂 +11 yunziaaaaa 2026-03-01 13/650 2026-03-02 21:59 by sunny81
[考研] 哈工大计算机刘劼团队招生 +4 hit_aiot 2026-03-01 6/300 2026-03-02 11:53 by 一声问好
[考研] 化工专硕342,一志愿大连理工大学,求调剂 +6 kyf化工 2026-02-28 7/350 2026-03-02 10:56 by 无际的草原
[考研] 材料调剂 +6 爱擦汗的可乐冰 2026-02-28 7/350 2026-03-02 10:42 by Jy?
[考研] 307求调剂 +4 73372112 2026-02-28 6/300 2026-03-01 00:04 by ll247
信息提示
请填处理意见