四阶龙格-库塔法,解微分方程组,时域频域转换采用分步傅里叶法

该博客介绍了如何使用四阶龙格-库塔法来求解微分方程组,特别是针对光混频过程。通过分步傅里叶法进行时域和频域转换,实现对激光在晶体中传播的精确模拟,同时考虑了线性和非线性传播效应、损耗以及腔内强度计算。
摘要由CSDN通过智能技术生成

%%NLO4mix.m
function [Ap,As,Ai,cavp,cavs,cavi]=NLO4mix(lambda_p,lambda_s,lambda_i,np,ns,ni,dz,crystal_L,Ap,As,Ai,fx,fy,dx,dy,mu,c,loss_p,loss_s,loss_i,deff)
j=1i;
kappap=2deffpi./(np.lambda_p);
kappas=2
deffpi./(ns.lambda_s);
kappai=2
deff
pi./(ni.lambda_i);
% Initialize Internal Intensities
cavp=zeros(1,length(crystal_L));
cavs=zeros(1,length(crystal_L));
cavi=zeros(1,length(crystal_L));
for t=1:length(crystal_L)
% Split Step - exp(L/2)exp(N)exp(L/2)A
% Linear (dz/2), Nonlinear (dz), Linear (dz/2)
% Propagation in Crystal half step (dz/2)
Ap=CrystalProp(Ap,lambda_p,np,dz/2,fx,fy,loss_p);
As=CrystalProp(As,lambda_s,ns,dz/2,fx,fy,loss_s);
Ai=CrystalProp(Ai,lambda_i,ni,dz/2,fx,fy,loss_i);
% Nonlinear Mixing - Traditional 4th Order Runga Kutta over full step dz
k1p=j
dz
kappap

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值