base26.m

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

function out = base26(in)
in = upper(in)-'0';
out = in*(('Z'-'0').^(0:length(in)-1))';