scale.m

利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤

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