24小时热门版块排行榜    

查看: 2507  |  回复: 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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 时间戳今天,20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 建议基金发布提前给出明确的时间点 +10 kulium 2026-08-21 13/650 2026-08-21 21:58 by alongwaytogo
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +16 医学老男孩 2026-08-20 20/1000 2026-08-21 21:13 by Ldrop2023
[基金申请] 科研孤儿太难了 +17 我4大白菜 2026-08-20 18/900 2026-08-21 20:57 by zhangev
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] filecode,4个jtjc了 +11 ziyangfang 2026-08-19 14/700 2026-08-21 16:51 by applepetty
[基金申请] 人气不行了 +7 fansofjerry 2026-08-21 7/350 2026-08-21 14:13 by Vivilian
[基金申请] 感觉是下周放榜了 +7 angus9576 2026-08-17 12/600 2026-08-21 13:38 by weiyin
[基金申请] 只有每年这种时候来逛逛小木虫 +23 yaoyewhu2008 2026-08-20 25/1250 2026-08-21 12:19 by Poppy1104
[基金申请] 什么时候开奖? +7 CrisMessi 2026-08-18 7/350 2026-08-21 12:15 by weiyin
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 今天基金会出结果吗?20260819 +15 kkkl_v 2026-08-19 16/800 2026-08-21 11:22 by 365372687
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[教师之家] 为什么余额宝的年化利率越来越低?主要原因有哪些? +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
信息提示
请填处理意见