| 查看: 2061 | 回复: 0 | ||
[求助]
matlab非线性方程组数值求解（负双轴晶体非共线相位匹配角计算）
|
|
本人要计算BiBO晶体的非共线的相位匹配角，物理模型为一束泵浦光产生满足相位条件会产生两束子光束，其有一定的夹角。求泵浦光在晶体中的相位匹配角度。 本人主方程 clear all clc lambdap=0.39 %um lambdai=0.78 lambdas=0.78 nxp=f(lambdap) nxi=f(lambdai) nxs=f(lambdai) nyp=g(lambdap) nyi=g(lambdai) nys=g(lambdas) nzp=h(lambdap) nzi=h(lambdai) nzs=h(lambdas) alphaphi=0 %3/180*pi syms alpha beta thetap phip thetas phis thetai phii thetapie np=k(thetap,phip,lambdap); ns=l(thetas,phis,lambdas); ni=l(thetai,phii,lambdai); eq0=thetap-pi/2-thetapie eq1=phip-pi/2 eq2=2*np-cos(alpha)*ns-cos(beta)*ni eq3=sin(alpha)*ns-sin(beta)*ni eq4=ns*sin(alpha)-sin(alphaphi) eq5=cos(thetas)+sin(thetapie)*cos(alpha) eq6=cos(thetai)+sin(thetapie)*cos(beta) eq7=tan(phii)*sin(beta)-cos(thetapie)*cos(beta) eq8=tan(phis)*sin(alpha)+cos(alpha)*cos(thetapie) [alpha,beta,thetap,phip,thetas,phis,thetai,phii,thetapie]=solve(eq0,eq1,eq2,eq3,eq4,eq5,eq6,eq7,eq8,alpha,beta,thetap,phip,thetas,phis,thetai,phii,thetapie) 调用函数： function f=f(x) %BiBO nx f=sqrt(3.0740+0.0323/(x^2-0.0316)-0.01337*x^2); end %nx function g=g(x) %BIBO ny g=sqrt(3.1685+0.0373/(x^2-0.0346)-0.01750*x^2); end function h=h(x) %BIBO nz h=sqrt(3.6545+0.0511/(x^2-0.0371)-0.0226*x^2); end function k=k(theta,phi,lambda) kx=sin(theta)*cos(phi) ; ky=sin(theta)*sin(phi); kz=cos(theta); nx=f(lambda); ny=g(lambda); nz=h(lambda); a=nx^-2; b=ny^-2; c=nz^-2; B=-(sin(theta)*cos(phi))^2*(b+c)-(sin(theta)*sin(phi))^2*(a+c)-(cos(theta))^2*(a+b); C=(sin(theta)*cos(phi))^2*b*c+(sin(theta)*sin(phi))^2*a*c+(cos(theta))^2*a*b; k=sqrt(2)/sqrt(-B-sqrt(B^2-4*C)) %慢光 function l=l(theta,phi,lambda) kx=sin(theta)*cos(phi) ; ky=sin(theta)*sin(phi); kz=cos(theta); nx=f(lambda); ny=g(lambda); nz=h(lambda); a=nx^-2; b=ny^-2; c=nz^-2; B=-(sin(theta)*cos(phi))^2*(b+c)-(sin(theta)*sin(phi))^2*(a+c)-(cos(theta))^2*(a+b); C=(sin(theta)*cos(phi))^2*b*c+(sin(theta)*sin(phi))^2*a*c+(cos(theta))^2*a*b; l=sqrt(2)/sqrt(-B+sqrt(B^2-4*C)) %e2-快光 解除来无解 可能不能用solve |
回复此楼» 猜你喜欢
**
已经有1人回复
-
0702一志愿吉大B区求调剂 本科期间发表一篇Sci
已经有3人回复
-
物理学I论文润色/翻译怎么收费?
已经有157人回复
-
基底STO,薄膜SRO，XRD里面的振荡，是laue震荡还是kiessig振荡? 怎么判断？
已经有2人回复
-
B区学生调剂-兰州交通大学材料科学与工程学院
已经有11人回复
-
山西大同大学物理学专业还有调剂名额，欢迎调剂！
已经有12人回复
-
桂林理工大学物理学专业招收调剂
已经有13人回复
-
VASP 的一组 GPU / CPU 基准测试记录
已经有0人回复
-
美国顶级物理期刊《应用物理快报》（APL）的编辑欺骗和歧视作者及AIP的官僚主义傲慢
已经有6人回复
-
津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名
已经有0人回复
