perp.m

来自「Matlab程序」· M 代码 · 共 8 行

function pOut = Perp( pIn, noCheck )

if nargin < 2
    assert('all(size(pIn)==[2,1])')
end

pOut(1,1) = -pIn(2);
pOut(2,1) = +pIn(1);