Constant k01=2*pi/0.88,n0=3.4,n1=3.6,n2=3.4,n3=3.55;
Function
K0^2=k01^2*n0^2-beta0^2;
K1^2=k01^2*n1^2-beta0^2;
K2^2=k01^2*n2^2-beta0^2;
K3^2=k01^2*n3^2-beta0^2;
(K1^2*K2*K3^2+K0*K3^4+K0*K1^2*K2^2+K0^2*K2*K3^2)*(tan(K3*0.2))^2=K3^2*(K0^2*K2+K0*K2^2+K0*K1^2+K1^2*K2);

2楼: Originally posted by lihongyu0526 at 2013-09-26 14:46:02
你有6个未知数，却只有5个方程。

4楼: Originally posted by dingd at 2013-09-26 16:12:27
1：Solve函数是求符号解，很多情况下符号解是无法求出的，此时可改用数值解命令fsolve；
2：5个方程却只有4个未知数（k1,k2,k3,beta0），属超越方程，无精确解；
3：如果去掉最后一个方程，可得唯一解：

beta0 ...

6楼: Originally posted by 月只蓝 at 2013-09-26 18:17:37
function solve_nonl
clear all;clc
x0=;
options=optimset('MaxIter',1000,'MaxFunEvals',5000);
x=fsolve(@nonl,x0,options)


function f=nonl(x)
K0=x(1);
K1=x(2);
K2=x(3);
K3=x(4);
beta0=x(5); ...

8楼: Originally posted by dingd at 2013-09-26 20:39:37
试试1stOpt，不用初值（1stOpt不区分大小写，小写k0用k01代替）：

Constant k01=2*pi/0.88,n0=3.4,n1=3.6,n2=3.4,n3=3.55;
Function
K0^2=k01^2*n0^2-beta0^2;
K1^2=k01^2*n1^2-beta0^2;
K2^2=k01^2*n2^2-be ...