m_max.m

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

function [ri,ci] = m_max(in)
[y,i] = max(in,[],1);
[y,ci] = max(y,[],2);
ri = i(ci);