24小时热门版块排行榜    

查看: 1897  |  回复: 27

想要_回家

铜虫 (小有名气)

[求助] 金属狭缝内的有效折射率的方程求解

不知道matlab大神能不能帮我解一下这个方程,我之前找同学帮忙,结果他说这个方程除非化简成y=ax的形式他才能解,但是这个方程既有复数,又有双曲函数,完全不会接,就想看看有没有大神能直接摆那个程序接一下,金币不够你说,我在加到你满意
其中k0,介电常数都是给定的,主要想看一看有效折射率n,随缝宽w的变化。
金属狭缝内的有效折射率的方程求解
有效折射率方程2.jpg
回复此楼

» 猜你喜欢

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

。。。。。。。
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

想要_回家

铜虫 (小有名气)

擦,公式怎么没了,我再传一下
。。。。。。。
2楼2013-07-15 10:39:31
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

想要_回家

铜虫 (小有名气)

tanh((wk_0)/2 √(n^2-ε_d ))=-ε_(d√(n^2-ε_m ))/(ε_m √(n^2-ε_d ))
。。。。。。。
3楼2013-07-15 10:46:32
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

想要_回家

铜虫 (小有名气)

再传图片吧
金属狭缝内的有效折射率的方程求解-1
有效折射率方程.png

。。。。。。。
4楼2013-07-15 10:53:23
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
把所有的参数值放上来。
MATLAB、MS小问题、普通问题请发帖求助!时间精力有限,恕不接受无偿私信求助。
5楼2013-07-15 10:56:58
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

想要_回家

铜虫 (小有名气)

k0=6.082e6
空气介电常数εd=1
金属介电常数ε_m =-42.7616+(-1.308i)
。。。。。。。
6楼2013-07-15 11:18:47
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

想要_回家

铜虫 (小有名气)

w范围从0-100nm,求n有w的变化曲线图
。。。。。。。
7楼2013-07-15 11:19:34
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

麦香堡

金虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
clear all
clc
clf
k0=6.082e6;
ed=1;%空气介电常数εd=1
em=-42.7616+(-1.308i);%金属介电常数ε_m =-42.7616+(-1.308i)
w=10^(-9)*(0:0.1:100);
n=-100:0.1:100;
[w,n]=meshgrid(w,n);
A=real(tanh(w*k0.*sqrt(n.^2-ed)/2)+ed.*sqrt(n.^2-em)/em./sqrt(n.^2-ed));
%等式两边相减得A
i=find(abs(A)<0.01);%找出A接近0的值时的位置,精确度0.01可自调
plot(w(i),n(i))%画出对应w、n的图像,即为式的解
大家好,我叫表面,一直在等离子
8楼2013-07-15 12:01:35
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

麦香堡

金虫 (初入文坛)

引用回帖:
8楼: Originally posted by 麦香堡 at 2013-07-15 12:01:35
clear all
clc
clf
k0=6.082e6;
ed=1;%空气介电常数εd=1
em=-42.7616+(-1.308i);%金属介电常数ε_m =-42.7616+(-1.308i)
w=10^(-9)*(0:0.1:100);
n=-100:0.1:100;
=meshgrid(w,n);
A=real(tanh(w*k0.*sqr ...

scatter(w(i),n(i))%画出对应w、n的图像
*********************
呃,错了,应该画散点图......
大家好,我叫表面,一直在等离子
9楼2013-07-15 12:05:57
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

麦香堡

金虫 (初入文坛)

不知你n的取值范围。。要是大于零或小于零,直接plot....效果不错

............
n=0:0.01:10;%不知n的取值是多少
[w,n]=meshgrid(w,n);
A=real(tanh(w*k0.*sqrt(n.^2-ed)/2)+ed.*sqrt(n.^2-em)/em./sqrt(n.^2-ed));
%等式两边相减得A
i=find(abs(A)<0.0001);%找出A接近0的值时的位置,精确度可自调
plot(w(i),n(i))%画出对应w、n的图像
****************
新手发帖,比较乱~~Orz
大家好,我叫表面,一直在等离子
10楼2013-07-15 12:18:05
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 想要_回家 的主题更新
信息提示
请填处理意见