cut_quad.m

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· M 代码 · 共 7 行

function [mOutx, mOuty] = cut_quad(mX, mY)
% cut one quadrant
[rows, cols] = size(mX);
r_ind = round(rows/2):rows;
c_ind = round(cols/2):cols;
mOutx = mX(r_ind, c_ind);
mOuty = mY(r_ind, c_ind);