function [b,a] = ALLPASS(r) % ALLPASS % % construct all pass filter % b = [-conj(r) 1]; a = [1 -r];
Maintained by John Loomis, last updated 23 Oct 1997