?? fdtd_3d_pml_hy.cpp
字號:
{
Hy[i][j][k] = K_Hy_a_2[ii]*Hy[i][j][k] + K_Hy_b_2[ii]/mu_r[Ind[i][j][k]]*
( (Ez[i+1][j][k] - Ez[i][j][k])*TwoOREp0DIVMu0ORdtDIVdx -
(Ex[i][j][k+1] - Ex[i][j][k])*TwoOREp0DIVMu0ORdtDIVdz );
}
}
ii--;
}
}
void calc_Hy_16(double ***Hy, double ***Ex, double ***Ez, double ***By_16, long ***Ind,
double *mu_r, double *K_Hy_a_1, double *K_Hy_b_1, double *K_Hy_c_2,
double *K_Hy_d_2, double dtDIVdx, double dtDIVdz, long nPML_x_1,
long ny_MIN_nPML_y_2, long ny, long nPML_z_1, long nz_MIN_1_MIN_nPML_z_2,
long nPML_y_2_MIN_1)
{
long i, j, k, ja, ka, jj;
double By_r;
//16
for (i = 0; i < nPML_x_1; i++)
{
ja = 0;
jj = nPML_y_2_MIN_1;
for (j = ny_MIN_nPML_y_2; j < ny; j++)
{
ka = 0;
for (k = nPML_z_1; k < nz_MIN_1_MIN_nPML_z_2; k++)
{
By_r = By_16[i][ja][ka];
By_16[i][ja][ka] += ( (Ez[i+1][j][k] - Ez[i][j][k])*dtDIVdx -
(Ex[i][j][k+1] - Ex[i][j][k])*dtDIVdz );
Hy[i][j][k] = K_Hy_a_1[i]*Hy[i][j][k] +
K_Hy_b_1[i]*( K_Hy_c_2[jj]*By_16[i][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
}
ja++;
jj--;
}
}
}
void calc_Hy_17(double ***Hy, double ***Ex, double ***Ez, double ***By_17, long ***Ind,
double *mu_r, double *K_Hy_c_2, double *K_Hy_d_2, double dtDIVdx,
double dtDIVdz, long nPML_x_1, long nx_MIN_1_MIN_nPML_x_2, long ny_MIN_nPML_y_2,
long ny, long nPML_z_1, long nz_MIN_1_MIN_nPML_z_2, long nPML_y_2_MIN_1,
double inv_TwoOREp0)
{
long i, j, k, ia, ja, ka, jj;
double By_r;
//17
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_nPML_y_2; j < ny; j++)
{
ka = 0;
for (k = nPML_z_1; k < nz_MIN_1_MIN_nPML_z_2; k++)
{
By_r = By_17[ia][ja][ka];
By_17[ia][ja][ka] += ( (Ez[i+1][j][k] - Ez[i][j][k])*dtDIVdx -
(Ex[i][j][k+1] - Ex[i][j][k])*dtDIVdz );
Hy[i][j][k] += inv_TwoOREp0*( K_Hy_c_2[jj]*By_17[ia][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
}
ja++;
jj--;
}
ia++;
}
}
void calc_Hy_18(double ***Hy, double ***Ex, double ***Ez, double ***By_18, long ***Ind,
double *mu_r, double *K_Hy_a_2, double *K_Hy_b_2, double *K_Hy_c_2,
double *K_Hy_d_2, double dtDIVdx, double dtDIVdz, long nx_MIN_1_MIN_nPML_x_2,
long nx_MIN_1, long ny_MIN_nPML_y_2, long ny, long nPML_z_1,
long nz_MIN_1_MIN_nPML_z_2, long nPML_x_2_MIN_1, long nPML_y_2_MIN_1)
{
long i, j, k, ia, ja, ka, ii, jj;
double By_r;
//18
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_nPML_y_2; j < ny; j++)
{
ka = 0;
for (k = nPML_z_1; k < nz_MIN_1_MIN_nPML_z_2; k++)
{
By_r = By_18[ia][ja][ka];
By_18[ia][ja][ka] += ( (Ez[i+1][j][k] - Ez[i][j][k])*dtDIVdx -
(Ex[i][j][k+1] - Ex[i][j][k])*dtDIVdz );
Hy[i][j][k] = K_Hy_a_2[ii]*Hy[i][j][k] +
K_Hy_b_2[ii]*( K_Hy_c_2[jj]*By_18[ia][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
}
ja++;
jj--;
}
ia++;
ii--;
}
}
void calc_Hy_19(double ***Hy, double ***Ex, double ***Ez, double ***By_19, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_1,
double *K_Hy_b_1, double *K_Hy_c_1, double *K_Hy_d_1, double inv_dx,
double inv_dz, long nPML_x_1, long nPML_y_1, long nz_MIN_1_MIN_nPML_z_2,
long nz_MIN_1, long nPML_z_2_MIN_1)
{
long i, j, k, ka, kk;
double By_r;
//19
for (i = 0; i < nPML_x_1; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_19[i][j][ka];
By_19[i][j][ka] = K_By_a_2[kk]*By_19[i][j][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_1[i]*Hy[i][j][k] +
K_Hy_b_1[i]*( K_Hy_c_1[j]*By_19[i][j][ka] +
K_Hy_d_1[j]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
}
}
}
void calc_Hy_20(double ***Hy, double ***Ex, double ***Ez, double ***By_20, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_c_1,
double *K_Hy_d_1, double inv_dx, double inv_dz, long nPML_x_1,
long nx_MIN_1_MIN_nPML_x_2, long nPML_y_1, long nz_MIN_1_MIN_nPML_z_2,
long nz_MIN_1, long nPML_z_2_MIN_1, double inv_TwoOREp0)
{
long i, j, k, ia, ka, kk;
double By_r;
//20
ia = 0;
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
for (j = 0; j < nPML_y_1; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_20[ia][j][ka];
By_20[ia][j][ka] = K_By_a_2[kk]*By_20[ia][j][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] += inv_TwoOREp0*( K_Hy_c_1[j]*By_20[ia][j][ka] +
K_Hy_d_1[j]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
}
ia++;
}
}
void calc_Hy_21(double ***Hy, double ***Ex, double ***Ez, double ***By_21, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_2,
double *K_Hy_b_2, double *K_Hy_c_1, double *K_Hy_d_1, double inv_dx,
double inv_dz, long nx_MIN_1_MIN_nPML_x_2, long nx_MIN_1, long nPML_y_1,
long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1, long nPML_x_2_MIN_1,
long nPML_z_2_MIN_1)
{
long i, j, k, ia, ka, ii, kk;
double By_r;
//21
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;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_21[ia][j][ka];
By_21[ia][j][ka] = K_By_a_2[kk]*By_21[ia][j][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_2[ii]*Hy[i][j][k] +
K_Hy_b_2[ii]*( K_Hy_c_1[j]*By_21[ia][j][ka] +
K_Hy_d_1[j]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
}
ia++;
ii--;
}
}
void calc_Hy_22(double ***Hy, double ***Ex, double ***Ez, double ***By_22, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_1,
double *K_Hy_b_1, double inv_dx, double inv_dz, long nPML_x_1, long nPML_y_1,
long ny_MIN_nPML_y_2, long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1,
long nPML_z_2_MIN_1, double TwoOREp0DIVMu0)
{
long i, j, k, ja, ka, kk;
double By_r;
//22
for (i = 0; i < nPML_x_1; i++)
{
ja = 0;
for (j = nPML_y_1; j < ny_MIN_nPML_y_2; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_22[i][ja][ka];
By_22[i][ja][ka] = K_By_a_2[kk]*By_22[i][ja][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_1[i]*Hy[i][j][k] +
K_Hy_b_1[i]*TwoOREp0DIVMu0*( By_22[i][ja][ka] - By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
ja++;
}
}
}
void calc_Hy_23(double ***Hy, double ***Ex, double ***Ez, long ***Ind, double *mu_r,
double *K_By_a_2, double *K_By_b_2, double inv_dxORmu_0, double inv_dzORmu_0,
long nPML_x_1, long nx_MIN_1_MIN_nPML_x_2, long nPML_y_1, long ny_MIN_nPML_y_2,
long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1, long nPML_z_2_MIN_1)
{
long i, j, k, kk;
//23
for (i = nPML_x_1; i < nx_MIN_1_MIN_nPML_x_2; i++)
{
for (j = nPML_y_1; j < ny_MIN_nPML_y_2; j++)
{
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
Hy[i][j][k] = K_By_a_2[kk]*Hy[i][j][k] + K_By_b_2[kk]/mu_r[Ind[i][j][k]]*
( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dxORmu_0 -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dzORmu_0 );
kk--;
}
}
}
}
void calc_Hy_24(double ***Hy, double ***Ex, double ***Ez, double ***By_24, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_2,
double *K_Hy_b_2, double inv_dx, double inv_dz, long nx_MIN_1_MIN_nPML_x_2,
long nx_MIN_1, long nPML_y_1, long ny_MIN_nPML_y_2, long nz_MIN_1_MIN_nPML_z_2,
long nz_MIN_1, long nPML_x_2_MIN_1, long nPML_z_2_MIN_1, double TwoOREp0DIVMu0)
{
long i, j, k, ia, ja, ka, ii, kk;
double By_r;
//24
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_nPML_y_2; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_24[ia][ja][ka];
By_24[ia][ja][ka] = K_By_a_2[kk]*By_24[ia][ja][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_2[ii]*Hy[i][j][k] +
K_Hy_b_2[ii]*TwoOREp0DIVMu0*( By_24[ia][ja][ka] - By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
ja++;
}
ia++;
ii--;
}
}
void calc_Hy_25(double ***Hy, double ***Ex, double ***Ez, double ***By_25, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_1,
double *K_Hy_b_1, double *K_Hy_c_2, double *K_Hy_d_2, double inv_dx,
double inv_dz, long nPML_x_1, long ny_MIN_nPML_y_2, long ny,
long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1, long nPML_y_2_MIN_1,
long nPML_z_2_MIN_1)
{
long i, j, k, ja, ka, jj, kk;
double By_r;
//25
for (i = 0; i < nPML_x_1; i++)
{
ja = 0;
jj = nPML_y_2_MIN_1;
for (j = ny_MIN_nPML_y_2; j < ny; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_25[i][ja][ka];
By_25[i][ja][ka] = K_By_a_2[kk]*By_25[i][ja][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_1[i]*Hy[i][j][k] +
K_Hy_b_1[i]*( K_Hy_c_2[jj]*By_25[i][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
ja++;
jj--;
}
}
}
void calc_Hy_26(double ***Hy, double ***Ex, double ***Ez, double ***By_26, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_c_2,
double *K_Hy_d_2, double inv_dx, double inv_dz, long nPML_x_1,
long nx_MIN_1_MIN_nPML_x_2, long ny_MIN_nPML_y_2, long ny,
long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1, long nPML_y_2_MIN_1,
long nPML_z_2_MIN_1, double inv_TwoOREp0)
{
long i, j, k, ia, ja, ka, jj, kk;
double By_r;
//26
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_nPML_y_2; j < ny; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_26[ia][ja][ka];
By_26[ia][ja][ka] = K_By_a_2[kk]*By_26[ia][ja][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] += inv_TwoOREp0*( K_Hy_c_2[jj]*By_26[ia][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
ja++;
jj--;
}
ia++;
}
}
void calc_Hy_27(double ***Hy, double ***Ex, double ***Ez, double ***By_27, long ***Ind,
double *mu_r, double *K_By_a_2, double *K_By_b_2, double *K_Hy_a_2,
double *K_Hy_b_2, double *K_Hy_c_2, double *K_Hy_d_2, double inv_dx,
double inv_dz, long nx_MIN_1_MIN_nPML_x_2, long nx_MIN_1, long ny_MIN_nPML_y_2,
long ny, long nz_MIN_1_MIN_nPML_z_2, long nz_MIN_1, long nPML_x_2_MIN_1,
long nPML_y_2_MIN_1, long nPML_z_2_MIN_1)
{
long i, j, k, ia, ja, ka, ii, jj, kk;
double By_r;
//27
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_nPML_y_2; j < ny; j++)
{
ka = 0;
kk = nPML_z_2_MIN_1;
for (k = nz_MIN_1_MIN_nPML_z_2; k < nz_MIN_1; k++)
{
By_r = By_27[ia][ja][ka];
By_27[ia][ja][ka] = K_By_a_2[kk]*By_27[ia][ja][ka] +
K_By_b_2[kk]*( (Ez[i+1][j][k] - Ez[i][j][k])*inv_dx -
(Ex[i][j][k+1] - Ex[i][j][k])*inv_dz );
Hy[i][j][k] = K_Hy_a_2[ii]*Hy[i][j][k] +
K_Hy_b_2[ii]*( K_Hy_c_2[jj]*By_27[ia][ja][ka] +
K_Hy_d_2[jj]*By_r )/mu_r[Ind[i][j][k]];
ka++;
kk--;
}
ja++;
jj--;
}
ia++;
ii--;
}
}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -