📄 fdtd_3d_pml_hz.cpp
字号:
#include "fdtd_3d_pml_hz.h"
///////////////////////////////////////////////////////////////////////////////////////
//Calculate Hz field
///////////////////////////////////////////////////////////////////////////////////////
void calc_Hz_1(double ***Hz, double ***Ex, double ***Ey, double ***Bz_1, long ***Ind,
double *mu_r, double *K_Bz_a_1, double *K_Bz_b_1, double *K_Hz_a_1,
double *K_Hz_b_1, double *K_Hz_c_1, double *K_Hz_d_1, double inv_dx,
double inv_dy, long nPML_x_1, long nPML_y_1, long nPML_z_1)
{
long i, j, k;
double Bz_r;
//1
for (i = 0; i < nPML_x_1; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_1[i][j][k];
Bz_1[i][j][k] = K_Bz_a_1[i]*Bz_1[i][j][k] +
K_Bz_b_1[i]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] +
K_Hz_b_1[j]*( K_Hz_c_1[k]*Bz_1[i][j][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
}
}
}
void calc_Hz_2(double ***Hz, double ***Ex, double ***Ey, double ***Bz_2, long ***Ind,
double *mu_r, double *K_Hz_a_1, double *K_Hz_b_1, double *K_Hz_c_1,
double *K_Hz_d_1, double dtDIVdx, double dtDIVdy, long nPML_x_1,
long nx_MIN_1_MIN_nPML_x_2, long nPML_y_1, long nPML_z_1)
{
long i, j, k, ia;
double Bz_r;
//2
ia = 0;
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_2[ia][j][k];
Bz_2[ia][j][k] += ( (Ex[i][j+1][k] - Ex[i][j][k])*dtDIVdy -
(Ey[i+1][j][k] - Ey[i][j][k])*dtDIVdx );
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] +
K_Hz_b_1[j]*( K_Hz_c_1[k]*Bz_2[ia][j][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
}
ia++;
}
}
void calc_Hz_3(double ***Hz, double ***Ex, double ***Ey, double ***Bz_3, long ***Ind,
double *mu_r, double *K_Bz_a_2, double *K_Bz_b_2, double *K_Hz_a_1,
double *K_Hz_b_1, double *K_Hz_c_1, double *K_Hz_d_1, double inv_dx,
double inv_dy, long nx_MIN_1_MIN_nPML_x_2, long nx_MIN_1, long nPML_y_1,
long nPML_z_1, long nPML_x_2_MIN_1)
{
long i, j, k, ia, ii;
double Bz_r;
//3
ia = 0;
ii = nPML_x_2_MIN_1;
for (i = nx_MIN_1_MIN_nPML_x_2; i < nx_MIN_1; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_3[ia][j][k];
Bz_3[ia][j][k] = K_Bz_a_2[ii]*Bz_3[ia][j][k] +
K_Bz_b_2[ii]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] +
K_Hz_b_1[j]*( K_Hz_c_1[k]*Bz_3[ia][j][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
}
ia++;
ii--;
}
}
void calc_Hz_4(double ***Hz, double ***Ex, double ***Ey, double ***Bz_4, long ***Ind,
double *mu_r, double *K_Bz_a_1, double *K_Bz_b_1, double *K_Hz_c_1,
double *K_Hz_d_1, double inv_dx, double inv_dy, long nPML_x_1, long nPML_y_1,
long ny_MIN_1_MIN_nPML_y_2, long nPML_z_1, double inv_TwoOREp0)
{
long i, j, k, ja;
double Bz_r;
//4
for (i = 0; i < nPML_x_1; i++)
{
ja = 0;
for (j = nPML_y_1; j < ny_MIN_1_MIN_nPML_y_2; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_4[i][ja][k];
Bz_4[i][ja][k] = K_Bz_a_1[i]*Bz_4[i][ja][k] +
K_Bz_b_1[i]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] += inv_TwoOREp0*( K_Hz_c_1[k]*Bz_4[i][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
}
}
}
void calc_Hz_5(double ***Hz, double ***Ex, double ***Ey, double ***Bz_5, long ***Ind,
double *mu_r, double *K_Hz_c_1, double *K_Hz_d_1, double dtDIVdx,
double dtDIVdy, long nPML_x_1, long nx_MIN_1_MIN_nPML_x_2, long nPML_y_1,
long ny_MIN_1_MIN_nPML_y_2, long nPML_z_1, double inv_TwoOREp0)
{
long i, j, k, ia, ja;
double Bz_r;
//5
ia = 0;
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
ja = 0;
for (j = nPML_y_1; j < ny_MIN_1_MIN_nPML_y_2; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_5[ia][ja][k];
Bz_5[ia][ja][k] += ( (Ex[i][j+1][k] - Ex[i][j][k])*dtDIVdy -
(Ey[i+1][j][k] - Ey[i][j][k])*dtDIVdx );
Hz[i][j][k] += inv_TwoOREp0*( K_Hz_c_1[k]*Bz_5[ia][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
}
ia++;
}
}
void calc_Hz_6(double ***Hz, double ***Ex, double ***Ey, double ***Bz_6, long ***Ind,
double *mu_r, double *K_Bz_a_2, double *K_Bz_b_2, double *K_Hz_c_1,
double *K_Hz_d_1, double inv_dx, double inv_dy, long nx_MIN_1_MIN_nPML_x_2,
long nx_MIN_1, long nPML_y_1, long ny_MIN_1_MIN_nPML_y_2, long nPML_z_1,
long nPML_x_2_MIN_1, double inv_TwoOREp0)
{
long i, j, k, ia, ja, ii;
double Bz_r;
//6
ia = 0;
ii = nPML_x_2_MIN_1;
for (i = nx_MIN_1_MIN_nPML_x_2; i < nx_MIN_1; i++)
{
ja = 0;
for (j = nPML_y_1; j < ny_MIN_1_MIN_nPML_y_2; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_6[ia][ja][k];
Bz_6[ia][ja][k] = K_Bz_a_2[ii]*Bz_6[ia][ja][k] +
K_Bz_b_2[ii]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] += inv_TwoOREp0*( K_Hz_c_1[k]*Bz_6[ia][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
}
ia++;
ii--;
}
}
void calc_Hz_7(double ***Hz, double ***Ex, double ***Ey, double ***Bz_7, long ***Ind,
double *mu_r, double *K_Bz_a_1, double *K_Bz_b_1, double *K_Hz_a_2,
double *K_Hz_b_2, double *K_Hz_c_1, double *K_Hz_d_1, double inv_dx,
double inv_dy, long nPML_x_1, long ny_MIN_1_MIN_nPML_y_2, long ny_MIN_1,
long nPML_z_1, long nPML_y_2_MIN_1)
{
long i, j, k, ja, jj;
double Bz_r;
//7
for (i = 0; i < nPML_x_1; i++)
{
ja = 0;
jj = nPML_y_2_MIN_1;
for (j = ny_MIN_1_MIN_nPML_y_2; j < ny_MIN_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_7[i][ja][k];
Bz_7[i][ja][k] = K_Bz_a_1[i]*Bz_7[i][ja][k] +
K_Bz_b_1[i]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_2[jj]*Hz[i][j][k] +
K_Hz_b_2[jj]*( K_Hz_c_1[k]*Bz_7[i][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
jj--;
}
}
}
void calc_Hz_8(double ***Hz, double ***Ex, double ***Ey, double ***Bz_8, long ***Ind,
double *mu_r, double *K_Hz_a_2, double *K_Hz_b_2, double *K_Hz_c_1,
double *K_Hz_d_1, double dtDIVdx, double dtDIVdy, long nPML_x_1,
long nx_MIN_1_MIN_nPML_x_2, long ny_MIN_1_MIN_nPML_y_2, long ny_MIN_1,
long nPML_z_1, long nPML_y_2_MIN_1)
{
long i, j, k, ia, ja, jj;
double Bz_r;
//8
ia = 0;
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
ja = 0;
jj = nPML_y_2_MIN_1;
for (j = ny_MIN_1_MIN_nPML_y_2; j < ny_MIN_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_8[ia][ja][k];
Bz_8[ia][ja][k] += ( (Ex[i][j+1][k] - Ex[i][j][k])*dtDIVdy -
(Ey[i+1][j][k] - Ey[i][j][k])*dtDIVdx );
Hz[i][j][k] = K_Hz_a_2[jj]*Hz[i][j][k] +
K_Hz_b_2[jj]*( K_Hz_c_1[k]*Bz_8[ia][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
jj--;
}
ia++;
}
}
void calc_Hz_9(double ***Hz, double ***Ex, double ***Ey, double ***Bz_9, long ***Ind,
double *mu_r, double *K_Bz_a_2, double *K_Bz_b_2, double *K_Hz_a_2,
double *K_Hz_b_2, double *K_Hz_c_1, double *K_Hz_d_1, double inv_dx,
double inv_dy, long nx_MIN_1_MIN_nPML_x_2, long nx_MIN_1,
long ny_MIN_1_MIN_nPML_y_2, long ny_MIN_1, long nPML_z_1, long nPML_x_2_MIN_1,
long nPML_y_2_MIN_1)
{
long i, j, k, ia, ja, ii, jj;
double Bz_r;
//9
ia = 0;
ii = nPML_x_2_MIN_1;
for (i = nx_MIN_1_MIN_nPML_x_2; i < nx_MIN_1; i++)
{
ja = 0;
jj = nPML_y_2_MIN_1;
for (j = ny_MIN_1_MIN_nPML_y_2; j < ny_MIN_1; j++)
{
for (k = 0; k < nPML_z_1; k++)
{
Bz_r = Bz_9[ia][ja][k];
Bz_9[ia][ja][k] = K_Bz_a_2[ii]*Bz_9[ia][ja][k] +
K_Bz_b_2[ii]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_2[jj]*Hz[i][j][k] +
K_Hz_b_2[jj]*( K_Hz_c_1[k]*Bz_9[ia][ja][k] +
K_Hz_d_1[k]*Bz_r )/mu_r[Ind[i][j][k]];
}
ja++;
jj--;
}
ia++;
ii--;
}
}
void calc_Hz_10(double ***Hz, double ***Ex, double ***Ey, double ***Bz_10, long ***Ind,
double *mu_r, double *K_Bz_a_1, double *K_Bz_b_1, double *K_Hz_a_1,
double *K_Hz_b_1, double inv_dx, double inv_dy, long nPML_x_1, long nPML_y_1,
long nPML_z_1, long nz_MIN_nPML_z_2, double TwoOREp0DIVMu0)
{
long i, j, k, ka;
double Bz_r;
//10
for (i = 0; i < nPML_x_1; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
ka = 0;
for (k = nPML_z_1; k < nz_MIN_nPML_z_2; k++)
{
Bz_r = Bz_10[i][j][ka];
Bz_10[i][j][ka] = K_Bz_a_1[i]*Bz_10[i][j][ka] +
K_Bz_b_1[i]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] +
K_Hz_b_1[j]*TwoOREp0DIVMu0*( Bz_10[i][j][ka] - Bz_r )/mu_r[Ind[i][j][k]];
ka++;
}
}
}
}
void calc_Hz_11(double ***Hz, double ***Ex, double ***Ey, long ***Ind, double *mu_r,
double *K_Hz_a_1, double *K_Hz_b_1, double TwoOREp0DIVMu0ORdtDIVdx,
double TwoOREp0DIVMu0ORdtDIVdy, long nPML_x_1, long nx_MIN_1_MIN_nPML_x_2,
long nPML_y_1, long nPML_z_1, long nz_MIN_nPML_z_2)
{
long i, j, k;
//11
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
for (k = nPML_z_1; k < nz_MIN_nPML_z_2; k++)
{
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] + K_Hz_b_1[j]/mu_r[Ind[i][j][k]]*
( (Ex[i][j+1][k] - Ex[i][j][k])*TwoOREp0DIVMu0ORdtDIVdy -
(Ey[i+1][j][k] - Ey[i][j][k])*TwoOREp0DIVMu0ORdtDIVdx );
}
}
}
}
void calc_Hz_12(double ***Hz, double ***Ex, double ***Ey, double ***Bz_12, long ***Ind,
double *mu_r, double *K_Bz_a_2, double *K_Bz_b_2, double *K_Hz_a_1,
double *K_Hz_b_1, double inv_dx, double inv_dy, long nx_MIN_1_MIN_nPML_x_2,
long nx_MIN_1, long nPML_y_1, long nPML_z_1, long nz_MIN_nPML_z_2,
long nPML_x_2_MIN_1, double TwoOREp0DIVMu0)
{
long i, j, k, ia, ka, ii;
double Bz_r;
//12
ia = 0;
ii = nPML_x_2_MIN_1;
for (i = nx_MIN_1_MIN_nPML_x_2; i < nx_MIN_1; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
ka = 0;
for (k = nPML_z_1; k < nz_MIN_nPML_z_2; k++)
{
Bz_r = Bz_12[ia][j][ka];
Bz_12[ia][j][ka] = K_Bz_a_2[ii]*Bz_12[ia][j][ka] +
K_Bz_b_2[ii]*( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dy -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dx );
Hz[i][j][k] = K_Hz_a_1[j]*Hz[i][j][k] +
K_Hz_b_1[j]*TwoOREp0DIVMu0*( Bz_12[ia][j][ka] - Bz_r )/mu_r[Ind[i][j][k]];
ka++;
}
}
ia++;
ii--;
}
}
void calc_Hz_13(double ***Hz, double ***Ex, double ***Ey, long ***Ind, double *mu_r,
double *K_Bz_a_1, double *K_Bz_b_1, double inv_dxORmu_0,
double inv_dyORmu_0, long nPML_x_1, long nPML_y_1,
long ny_MIN_1_MIN_nPML_y_2, long nPML_z_1, long nz_MIN_nPML_z_2)
{
long i, j, k;
//13
for (i = 0; i < nPML_x_1; i++)
{
for (j = nPML_y_1; j < ny_MIN_1_MIN_nPML_y_2; j++)
{
for (k = nPML_z_1; k < nz_MIN_nPML_z_2; k++)
{
Hz[i][j][k] = K_Bz_a_1[i]*Hz[i][j][k] + K_Bz_b_1[i]/mu_r[Ind[i][j][k]]*
( (Ex[i][j+1][k] - Ex[i][j][k])*inv_dyORmu_0 -
(Ey[i+1][j][k] - Ey[i][j][k])*inv_dxORmu_0 );
}
}
}
}
void calc_Hz_14(double ***Hz, double ***Ex, double ***Ey, long ***Ind, double *mu_r,
double dtDIVMu0DIVdx, double dtDIVMu0DIVdy, long nx_a,
long nx_b, long ny_a, long ny_b, long nz_a, long nz_b)
{
long i, j, k;
//14 Outside of the PML region
for (i = nx_a; i < nx_b; i++)
{
for (j = ny_a; j < ny_b; j++)
{
for (k = nz_a; k < nz_b; k++)
{
Hz[i][j][k] += ( (Ex[i][j+1][k] - Ex[i][j][k])*dtDIVMu0DIVdy -
(Ey[i+1][j][k] - Ey[i][j][k])*dtDIVMu0DIVdx )/mu_r[Ind[i][j][k]];
}
}
}
}
void calc_Hz_15(double ***Hz, double ***Ex, double ***Ey, long ***Ind, double *mu_r,
double *K_Bz_a_2, double *K_Bz_b_2, double inv_dxORmu_0,
double inv_dyORmu_0, long nx_MIN_1_MIN_nPML_x_2, long nx_MIN_1,
long nPML_y_1, long ny_MIN_1_MIN_nPML_y_2, long nPML_z_1,
long nz_MIN_nPML_z_2, long nPML_x_2_MIN_1)
{
long i, j, k, ii;
//15
ii = nPML_x_2_MIN_1;
for (i = nx_MIN_1_MIN_nPML_x_2; i < nx_MIN_1; i++)
{
for (j = nPML_y_1; j < ny_MIN_1_MIN_nPML_y_2; j++)
{
for (k = nPML_z_1; k < nz_MIN_nPML_z_2; k++)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -