scale.m

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

function out = scale(in)
m = min(min(in));
out = in-m;
M = abs(max(max(out)));
out = out/M;
[r,c] = size(in);
if length(find(in<0))>0.2*r*c
    out = out-1/2;
end