is_first_in_second.m

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

function bOut = is_first_in_second(curveFirst, curveSecond)
csFirst = curveFirst.cs;
csSecond = curveSecond.cs;
point = ppval(csFirst, csFirst.breaks(1));
x = point(1) + curveFirst.xc;
y = point(2) + curveFirst.yc;
bOut = is_in_shape(curveSecond.cs, curveSecond.xc, curveSecond.yc, x, y);