24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2237  |  回复: 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

新虫 (初入文坛)

图形:https://blog.csdn.net/wlfc/article/details/119540527
3楼2021-08-09 16:18:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

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的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 考研求调剂 +5 子木呐 2026-04-12 5/250 2026-04-12 22:15 by paopaotu326
[考研] 290求调剂 +14 柯淮然 2026-04-12 16/800 2026-04-12 19:22 by dan_wang
[硕博家园] 新一代电子信息294求调剂 不挑学校 +7 Ytyt11 2026-04-09 8/400 2026-04-12 16:57 by ajpv风雷
[考研] 电子信息270求调剂 +18 terminal469 2026-04-07 18/900 2026-04-12 16:23 by ajpv风雷
[考研] 调剂 +10 只叙离别辞 2026-04-09 12/600 2026-04-11 20:57 by 逆水乘风
[考研] 11408。358求调剂 +3 TMYzds 2026-04-07 3/150 2026-04-11 17:10 by 氮气气气
[考研] 296求调剂 +6 汪!?! 2026-04-09 6/300 2026-04-11 11:25 by zhq0425
[考研] 求调剂 +6 archer.. 2026-04-09 8/400 2026-04-11 10:55 by zhq0425
[考研] 求调剂 +13 雪逢冬 2026-04-10 13/650 2026-04-11 09:58 by 猪会飞
[考研] 311求调剂 +13 xyp想读书 2026-04-10 14/700 2026-04-11 09:41 by 猪会飞
[考研] 302分求调剂 +9 凡语祈愿 2026-04-08 10/500 2026-04-10 23:26 by 314126402
[考研] 材料调剂 +5 hzhahg 2026-04-06 5/250 2026-04-10 10:10 by may_新宇
[考研] 青岛科技大学材料学院,环境学院调剂补录4月10日以前都可以 +3 1青科大。 2026-04-09 5/250 2026-04-10 09:58 by 翩翩一书生
[考研] 本科211 工科085400 280分求调剂 可跨专业 +3 LZH(等待调剂中 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[考研] 284求调剂 +7 让我上岸吧阿西 2026-04-09 7/350 2026-04-09 18:59 by haironglove
[考研] 085600材料与化工专硕329 求调剂 +24 额cc 2026-04-06 25/1250 2026-04-09 16:01 by wp06
[考研] 化工学硕 285求调剂 +26 Wisjxn 2026-04-07 26/1300 2026-04-08 14:42 by screening
[考研] 304求调剂 +10 素年祭语 2026-04-06 17/850 2026-04-08 09:05 by 蓝云思雨
[考研] 机械工程264学硕求调剂 +3 qiushangxian 2026-04-06 3/150 2026-04-08 01:53 by Linzejun
[考研] 材料调剂 +11 一样YWY 2026-04-07 11/550 2026-04-07 15:13 by shdgaomin
信息提示
请填处理意见