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，图片中的分子部分打错了...

10楼: Originally posted by 月只蓝 at 2015-08-12 12:49:41
那把代码中方程改一下即可，比如求x=1附近的解：
n=2.89;
=fsolve(@(x) tan(x)-  x/(1+x^2*n/((n-1)^2)  ),1)

计算结果：
解x =

    0.0384


方程残差fval =

  6.4872e-005

已经说过，因为ta ...

12楼: Originally posted by Fanny675 at 2015-08-12 12:54:42
谢谢提醒，第一次发帖子，对这个不太熟悉。能把程序给我一下吗，我没看到附图呢...

13楼: Originally posted by 月只蓝 at 2015-08-12 12:55:56
程序早已发在10楼了，你查看本帖第一页的第10楼。...

14楼: Originally posted by Fanny675 at 2015-08-12 12:58:40
画图的程序没有啊...

clear all;
n=2.89;
x=linspace(-50,50,100);
y= tan(x)-  x./(1+x.^2*n/((n-1)^2)  );
figure(1)
plot(x,y,'b',[-50 50],[0 0],'r');