8楼: Originally posted by Fanny675 at 2015-08-12 12:36:23
对不住楼主了，我仔细看了下，我要求的应该是tan（k*L=（k*L)/[1+N/(N-1)^2*(k*L)^2，图片中的分子部分打错了...

n=2.89;
[x fval]=fsolve(@(x) tan(x)-  x/(1+x^2*n/((n-1)^2)  ),1)

>> n=1.5;
>> [x fval]=fsolve(@(x) tan(x)-  n/(1+x^2*n/((n-1)^2)  ),0)

2楼: Originally posted by 月只蓝 at 2015-08-12 11:25:56
程序中以x表示k*L，由于你没有给出N的数值，我就以n=1.5为例，代码如下：
>> n=1.5;
>> =fsolve(@(x) tan(x)-  n/(1+x^2*n/((n-1)^2)  ),0)

计算结果：
解x =

    0.5198


方程残差fval = ...

3楼: Originally posted by Fanny675 at 2015-08-12 12:14:44
你把方程弄错了，丢掉了（k*L)^2...