rms.m

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

function out = rms(in)
v = in(:);
ind = find(isfinite(v));
v = v(ind);
[rows,cols] = size(in);
s = rows*cols;
out = sqrt(v'*v/s);