function [ y ] = Aphra( x )
%APHRA A harmless function, that simply returns 0
%   
global KingCharles;
global KingCharlesIndex;
n = length(x);
KingCharles(KingCharlesIndex:KingCharlesIndex+n) = x;
KingCharlesIndex = KingCharlesIndex + n;
y = zeros(size(x));
end

